fix login button
This commit is contained in:
parent
4a78066683
commit
1731ac5dd9
5 changed files with 13 additions and 8 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue