Commit 74a6f533 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Rename election_update_credential{_form => } and move it one level up

parent e8d8f5f9
......@@ -250,7 +250,7 @@ In the following, we assume `ocsigenserver` is properly configured.
1. Go to `/login-admin` on the live server and log in using the admin
password.
2. Go to `/election/update-cred?uuid=UUID`, and fill in the form.
2. Go to `/update-cred?uuid=UUID`, and fill in the form.
### Tally
......
......@@ -255,13 +255,13 @@ module SSite = struct
~get_params:unit
()
let election_update_credential_form = service
~path:["election"; "update-cred"]
let election_update_credential = service
~path:["update-cred"]
~get_params:uuid
()
let election_update_credential_post = post_service
~fallback:election_update_credential_form
~fallback:election_update_credential
~post_params:(string "old_credential" ** string "new_credential")
()
......@@ -333,7 +333,7 @@ module SSite = struct
)
let () = Html5.register
~service:election_update_credential_form
~service:election_update_credential
(fun uuid () ->
lwt user = S.get_logged_user () in
match user with
......
......@@ -64,25 +64,25 @@ module type SITE_SERVICES = sig
[< Eliom_service.registrable > `Registrable ], 'a)
Eliom_service.service
val election_update_credential_post :
(Serializable_t.uuid, string * string,
val election_update_credential :
(Uuidm.t, unit,
[> `Attached of
([> `Internal of [ `Coservice | `Service ] ], [> `Post ])
([> `Internal of [> `Service ] ], [> `Get ])
Eliom_service.a_s ],
[ `WithoutSuffix ],
[ `One of Serializable_t.uuid ] Eliom_parameter.param_name,
[ `One of string ] Eliom_parameter.param_name *
[ `One of string ] Eliom_parameter.param_name,
[ `One of Uuidm.t ] Eliom_parameter.param_name, unit,
[< Eliom_service.registrable > `Registrable ], 'a)
Eliom_service.service
val election_update_credential_form :
(Uuidm.t, unit,
val election_update_credential_post :
(Serializable_t.uuid, string * string,
[> `Attached of
([> `Internal of [> `Service ] ], [> `Get ])
([> `Internal of [ `Coservice | `Service ] ], [> `Post ])
Eliom_service.a_s ],
[ `WithoutSuffix ],
[ `One of Uuidm.t ] Eliom_parameter.param_name, unit,
[ `One of Serializable_t.uuid ] Eliom_parameter.param_name,
[ `One of string ] Eliom_parameter.param_name *
[ `One of string ] Eliom_parameter.param_name,
[< Eliom_service.registrable > `Registrable ], 'a)
Eliom_service.service
......
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