fix login button

This commit is contained in:
Swrup 2022-02-20 18:37:24 +01:00
parent 4a78066683
commit 1731ac5dd9
5 changed files with 13 additions and 8 deletions

View file

@ -54,7 +54,7 @@ let login_post request =
| Ok () ->
let url =
match Dream.query request "redirect" with
| None -> "/jpp"
| None -> "/"
| Some redirect -> Dream.from_percent_encoded redirect
in
Dream.respond ~status:`See_Other