add ? before query parameters

10 months ago · a132a181c8
parent 3bee8a357d
commit a132a181c8
1 changed files with 1 additions and 1 deletions
--- a/lib/builder_web.ml
+++ b/lib/builder_web.ml
@ -486,7 +486,7 @@ let add_routes datadir configdir =
    let parent = parent ^ "/" in
    let url = match Dream.queries req with
      | [] -> parent
-      | xs -> parent ^ (Dream.to_form_urlencoded xs)
+      | xs -> parent ^ "?" ^ (Dream.to_form_urlencoded xs)
    in
    Dream.redirect ~status:`Temporary_Redirect req url
  in