Commit 002965a1 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove WEB_ELECTION_.H

parent e2b41f5b
......@@ -92,8 +92,6 @@ module Make (D : ELECTION_DATA) (P : WEB_PARAMS) : REGISTRABLE = struct
module W = struct
include W
module H = Auth.Handlers
module B : WEB_BALLOT_BOX = struct
let suffix = "_" ^ String.map (function
......@@ -474,7 +472,7 @@ module Make (D : ELECTION_DATA) (P : WEB_PARAMS) : REGISTRABLE = struct
Eliom_reference.set Web_services.cont cont >>
Eliom_reference.set ballot (Some the_ballot) >>
match user with
| None -> W.H.do_login None cont ()
| None -> Auth.Handlers.do_login None cont ()
| Some u -> cont () ()
)
)
......
......@@ -128,7 +128,6 @@ module type WEB_ELECTION_ = sig
module E : ELECTION with type elt = G.t
module S : AUTH_SERVICES
module B : WEB_BALLOT_BOX
module H : AUTH_HANDLERS_PUBLIC
end
module type WEB_ELECTION = sig
......
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