Always register imported election

48f77bf8 · Stephane Glondu · 7656da10 · 48f77bf8
Commit 48f77bf8 authored Jul 08, 2014 by Stephane Glondu
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

src/web/web_main.ml src/web/web_main.ml +3 -3

No files found.
--- a/src/web/web_main.ml
+++ b/src/web/web_main.ml
@@ -137,10 +137,10 @@ lwt () =
          Printf.sprintf "Ignored: %s" f.f_election
        ); return ()
      | Some w ->
+        let module W = (val w : REGISTRABLE_ELECTION) in
+        lwt w = W.register () in
+        let module W = (val w : WEB_ELECTION) in
        if featured then (
-          let module W = (val w : REGISTRABLE_ELECTION) in
-          lwt w = W.register () in
-          let module W = (val w : WEB_ELECTION) in
          let uuid = Uuidm.to_string W.election.e_params.e_uuid in
          Site.add_featured_election uuid
        ) else return ()