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