robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add ? before query parameters

Browse source
This commit is contained in:
Hannes Mehnert 2022-04-11 17:08:10 +02:00
parent 3bee8a357d
commit a132a181c8
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/builder_web.ml
View file

@ -486,7 +486,7 @@ let add_routes datadir configdir =
let parent = parent ^ "/" in let parent = parent ^ "/" in
let url = match Dream.queries req with let url = match Dream.queries req with
| [] -> parent | [] -> parent
| xs -> parent ^ (Dream.to_form_urlencoded xs) | xs -> parent ^ "?" ^ (Dream.to_form_urlencoded xs)
in in
Dream.redirect ~status:`Temporary_Redirect req url Dream.redirect ~status:`Temporary_Redirect req url
in in