Forget saved ballot on election home

cc080069 · Stephane Glondu · 6bce9c8d · cc080069
Commit cc080069 authored Jul 21, 2014 by Stephane Glondu
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

src/web/web_election.ml src/web/web_election.ml +1 -0

No files found.
--- a/src/web/web_election.ml
+++ b/src/web/web_election.ml
@@ -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