Commit a3d093b6 authored by Stephane Glondu's avatar Stephane Glondu

Rename Auth_common into Web_auth

Keep "Auth_" prefix for auth systems.
parent 3dede40a
......@@ -154,4 +154,4 @@ module A : AUTH_SYSTEM = struct
let make = make
end
let () = Auth_common.register_auth_system (module A : AUTH_SYSTEM)
let () = Web_auth.register_auth_system (module A : AUTH_SYSTEM)
......@@ -84,4 +84,4 @@ module A : AUTH_SYSTEM = struct
let make = make
end
let () = Auth_common.register_auth_system (module A : AUTH_SYSTEM)
let () = Web_auth.register_auth_system (module A : AUTH_SYSTEM)
......@@ -109,4 +109,4 @@ module A : AUTH_SYSTEM = struct
let make = make
end
let () = Auth_common.register_auth_system (module A : AUTH_SYSTEM)
let () = Web_auth.register_auth_system (module A : AUTH_SYSTEM)
......@@ -3,7 +3,7 @@ Serializable_builtin_j
Serializable_j
Web_serializable_j
Web_common
Auth_common
Web_auth
Auth_dummy
Auth_password
Auth_cas
......
......@@ -440,7 +440,7 @@ let make {raw_election; metadata; featured; params_fname; public_keys_fname} =
let b = check_acl metadata.e_voters u in
if b then (
let record =
Auth_common.string_of_user u,
Web_auth.string_of_user u,
(CalendarLib.Fcalendar.Precise.now (), None)
in
lwt result =
......
......@@ -63,7 +63,7 @@ let () =
)
| Element ("auth", ["name", auth_instance],
[Element (auth_system, auth_config, [])]) ->
let open Auth_common in
let open Web_auth in
let i = {auth_system; auth_instance; auth_config} in
auth_instances := i :: !auth_instances
| Element (tag, _, _) ->
......
......@@ -31,7 +31,7 @@ module type CONFIG = sig
val name : string
val path : string list
val source_file : string
val instances : Auth_common.auth_instance list
val instances : Web_auth.auth_instance list
end
module Make (C : CONFIG) : SITE_SERVICES = struct
......@@ -40,7 +40,7 @@ module Make (C : CONFIG) : SITE_SERVICES = struct
let make_path x = C.path @ x
module Auth = Auth_common.Make (C)
module Auth = Web_auth.Make (C)
let main_election = ref None
let featured = ref []
......
......@@ -25,7 +25,7 @@ module type CONFIG = sig
val name : string
val path : string list
val source_file : string
val instances : Auth_common.auth_instance list
val instances : Web_auth.auth_instance list
end
module Make (C : CONFIG) : SITE_SERVICES
......@@ -33,7 +33,7 @@ let site_title = "Election Server"
let welcome_message = "Welcome!"
let format_user u =
em [pcdata (Auth_common.(string_of_user u))]
em [pcdata (Web_auth.(string_of_user u))]
module Make (S : SITE_SERVICES) : TEMPLATES = struct
......
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