Commit cc080069 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Forget saved ballot on election home

parent 6bce9c8d
......@@ -358,6 +358,7 @@ module Make (D : ELECTION_DATA) (P : WEB_PARAMS) : REGISTRABLE = struct
let () = Html5.register ~service:W.S.home
(if_eligible can_read
(fun user () ->
Eliom_reference.unset ballot >>
let cont () () = Redirection.send W.S.home in
Eliom_reference.set S.cont cont >>
match_lwt Eliom_reference.get cast_confirmed with
......
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