Commit 14b82aca authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove SITE_SERVICES

parent f2c1fc0e
......@@ -159,10 +159,6 @@ module type WEB_ELECTION = sig
module Z : ELECTION_HANDLERS
end
module type SITE_SERVICES = sig
include AUTH_SERVICES
end
type election_files = {
f_election : string;
f_metadata : string;
......@@ -176,7 +172,7 @@ module type REGISTRABLE_ELECTION = sig
end
module type SITE = sig
include SITE_SERVICES
include AUTH_SERVICES
include AUTH_HANDLERS_PUBLIC
val import_election :
election_files -> (module REGISTRABLE_ELECTION) option Lwt.t
......
......@@ -74,7 +74,7 @@ let make_login_box style auth links =
]
)
module Make (S : SITE_SERVICES) : TEMPLATES = struct
module Make (S : AUTH_SERVICES) : TEMPLATES = struct
let site_login_box =
let auth = (module S : AUTH_SERVICES) in
......
open Web_signatures
module Make (S : SITE_SERVICES) : TEMPLATES
module Make (S : AUTH_SERVICES) : TEMPLATES
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