Commit 12137cfd authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Fix regression in logout handling on election home

parent 0544f53e
......@@ -308,7 +308,12 @@ let make {raw_election; metadata; featured; params_fname; public_keys_fname} =
let () = Html5.register ~service:W.S.home
(if_eligible S.get_logged_user can_read
(fun user () -> T.home ~user ())
(fun user () ->
let module X = struct let s = W.S.home end in
let x = (module X : SAVED_SERVICE) in
Eliom_reference.set S.saved_service x >>
T.home ~user ()
)
)
let f_raw user () =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment