Commit 0aaa7365 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Remove legacy login-admin UI

parent 3748c524
...@@ -50,7 +50,7 @@ module Make (N : NAME) (S : CONT_SERVICE) (T : TEMPLATES) : AUTH_INSTANCE = stru ...@@ -50,7 +50,7 @@ module Make (N : NAME) (S : CONT_SERVICE) (T : TEMPLATES) : AUTH_INSTANCE = stru
lwt on_success = Eliom_reference.get on_success_ref in lwt on_success = Eliom_reference.get on_success_ref in
on_success ~user_name ~user_logout >> on_success ~user_name ~user_logout >>
S.cont ()) S.cont ())
in T.string_login ~service ~kind:`Dummy in T.dummy_login ~service
) )
let handler ~on_success () = let handler ~on_success () =
......
...@@ -117,10 +117,9 @@ module Make (S : Web_signatures.ALL_SERVICES) = struct ...@@ -117,10 +117,9 @@ module Make (S : Web_signatures.ALL_SERVICES) = struct
] in ] in
base ~title:site_title ~content base ~title:site_title ~content
let string_login ~kind ~service = let dummy_login ~service =
let title, field_name, input_type = match kind with let title, field_name, input_type =
| `Dummy -> "Dummy login", "Username:", `Text "Dummy login", "Username:", `Text
| `Admin -> "Admin login", "Admin password:", `Password
in in
let form = post_form ~service let form = post_form ~service
(fun name -> (fun name ->
......
...@@ -168,8 +168,7 @@ end ...@@ -168,8 +168,7 @@ end
module type TEMPLATES = sig module type TEMPLATES = sig
val string_login : val dummy_login :
kind:[< `Admin | `Dummy ] ->
service:(unit, 'a, [< Eliom_service.post_service_kind ], service:(unit, 'a, [< Eliom_service.post_service_kind ],
[< Eliom_service.suff ], 'b, [< Eliom_service.suff ], 'b,
[< string Eliom_parameter.setoneradio ] [< string Eliom_parameter.setoneradio ]
......
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