From 3bee8a357d25bba33099f77910d0ed6f1af292d5 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Mon, 11 Apr 2022 16:54:28 +0200
Subject: [PATCH] add query params to redirect

---
 lib/builder_web.ml | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lib/builder_web.ml b/lib/builder_web.ml
index e277c5d..518eca6 100644
--- a/lib/builder_web.ml
+++ b/lib/builder_web.ml
@@ -477,13 +477,18 @@ let add_routes datadir configdir =
   in
 
   let redirect_parent req =
-    let path = Dream.target req in
     let parent =
+      Dream.target req |>
       String.split_on_char '/' |>
       List.rev |> List.tl |> List.rev |>
       String.concat "/"
     in
-    Dream.redirect ~status:`Temporary_Redirect req (parent ^ "/")
+    let parent = parent ^ "/" in
+    let url = match Dream.queries req with
+      | [] -> parent
+      | xs -> parent ^ (Dream.to_form_urlencoded xs)
+    in
+    Dream.redirect ~status:`Temporary_Redirect req url
   in
 
   let w f req = or_error_response (f req) in