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