swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

oopsie

Browse source
This commit is contained in:
pena 2022-04-06 04:45:19 +02:00 • committed by Swrup
parent 1e3b0a6b39
commit f56724edeb
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/utils.ml
View file

@ -19,7 +19,9 @@ let logged_in_or_redirect request logged_in =
match Dream.session "user_id" request with match Dream.session "user_id" request with
| None -> | None ->
let target = Dream.target request in 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) ] "" Dream.respond ~status:`See_Other ~headers:[ ("Location", redirect_url) ] ""
| Some user_id -> logged_in user_id | Some user_id -> logged_in user_id