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

Builder_web: Fixed type-errors + usage of correct dream queries helper

Browse source
This commit is contained in:
rand00 2022-04-11 18:19:54 +02:00
parent 8f173295ab
commit 010197d900
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/builder_web.ml
View file

@ -476,11 +476,12 @@ let add_routes ~datadir ~cachedir ~configdir =
String.concat "/" String.concat "/"
in in
let parent = parent ^ "/" in let parent = parent ^ "/" in
let url = match Dream.queries req with let url = match Dream.all_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
|> Lwt_result.ok
in in
let w f req = or_error_response (f req) in let w f req = or_error_response (f req) in