add ? before query parameters

pull/104/head
Hannes Mehnert 10 months ago
parent 3bee8a357d
commit a132a181c8
  1. 2
      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

Loading…
Cancel
Save