From 010197d90066d6a8c21177a6785265deab011ab5 Mon Sep 17 00:00:00 2001
From: rand00 <oth.rand@gmail.com>
Date: Mon, 11 Apr 2022 18:19:54 +0200
Subject: [PATCH] Builder_web: Fixed type-errors + usage of correct dream
 queries helper

---
 lib/builder_web.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/builder_web.ml b/lib/builder_web.ml
index cb07e61..1d918d6 100644
--- a/lib/builder_web.ml
+++ b/lib/builder_web.ml
@@ -476,11 +476,12 @@ let add_routes ~datadir ~cachedir ~configdir =
       String.concat "/"
     in
     let parent = parent ^ "/" in
-    let url = match Dream.queries req with
+    let url = match Dream.all_queries req with
       | [] -> parent
       | xs -> parent ^ "?" ^ (Dream.to_form_urlencoded xs)
     in
     Dream.redirect ~status:`Temporary_Redirect req url
+    |> Lwt_result.ok
   in
 
   let w f req = or_error_response (f req) in