From e890b93ba67525b39f7a04d34fb63a0531a8afd1 Mon Sep 17 00:00:00 2001
From: zapashcanon <leo@ndrs.fr>
Date: Wed, 6 Apr 2022 04:45:19 +0200
Subject: [PATCH] oopsie

---
 src/utils.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/utils.ml b/src/utils.ml
index 751b0d8..6dda041 100644
--- a/src/utils.ml
+++ b/src/utils.ml
@@ -19,7 +19,9 @@ let logged_in_or_redirect request logged_in =
   match Dream.session "user_id" request with
   | None ->
     let target = Dream.target request in
-    let redirect_url = Format.sprintf "/login=?redirect=%s" target in
+    let redirect_url =
+      Format.sprintf "/login?redirect=%s" (Dream.to_percent_encoded target)
+    in
     Dream.respond ~status:`See_Other ~headers:[ ("Location", redirect_url) ] ""
   | Some user_id -> logged_in user_id