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

oopsie

Browse source
This commit is contained in:
zapashcanon 2022-04-06 04:45:19 +02:00
parent 4eaf4810d5
commit e890b93ba6
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
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
| 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