From a132a181c82390891bb68ca2079c9dc93d040781 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Mon, 11 Apr 2022 17:08:10 +0200
Subject: [PATCH] add ? before query parameters

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

diff --git a/lib/builder_web.ml b/lib/builder_web.ml
index 518eca6..258d12c 100644
--- a/lib/builder_web.ml
+++ b/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