Commit 001ab016 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Rename Web_auth.Make.register to configure

parent 6187770e
......@@ -73,7 +73,7 @@ module Make (N : NAME) = struct
(* Forward reference, will be set to eponymous template *)
let login_choose = ref (fun () -> assert false)
let register auth_services xs =
let configure auth_services xs =
login_choose := Web_templates.choose auth_services links;
List.iter
(fun auth_instance ->
......
......@@ -29,7 +29,7 @@ val register_auth_system : (module AUTH_SYSTEM) -> unit
module MakeLinks (N : NAME) : AUTH_LINKS
module Make (C : NAME) : sig
val register : (module AUTH_SERVICES) -> auth_config list -> unit
val configure : (module AUTH_SERVICES) -> auth_config list -> unit
module Services : AUTH_SERVICES
module Handlers : AUTH_HANDLERS_PUBLIC
end
......@@ -278,7 +278,7 @@ module Make (D : ELECTION_DATA) (P : WEB_PARAMS) : REGISTRABLE = struct
open Eliom_registration
let () =
Auth.register (module W.S : AUTH_SERVICES) N.auth_config
Auth.configure (module W.S : AUTH_SERVICES) N.auth_config
let login service () =
lwt cont = Eliom_reference.get Web_services.cont in
......
......@@ -225,7 +225,7 @@ lwt () =
) election_ptable
let install_authentication auth_configs =
Web_site_auth.register (module Web_site_auth : AUTH_SERVICES) auth_configs
Web_site_auth.configure (module Web_site_auth : AUTH_SERVICES) auth_configs
let () = Any.register ~service:home
(fun () () ->
......
......@@ -26,7 +26,7 @@ module C = struct
end
module A = Web_auth.Make (C)
let register = A.register
let configure = A.configure
include A.Services
open Eliom_registration
......
open Web_serializable_t
open Web_signatures
val register : (module AUTH_SERVICES) -> auth_config list -> unit
val configure : (module AUTH_SERVICES) -> auth_config list -> unit
include AUTH_SERVICES
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