Commit e8d8f5f9 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Rename election_update_credential{ => _post}

parent b0a9e976
......@@ -260,7 +260,7 @@ module SSite = struct
~get_params:uuid
()
let election_update_credential = post_service
let election_update_credential_post = post_service
~fallback:election_update_credential_form
~post_params:(string "old_credential" ** string "new_credential")
()
......@@ -344,7 +344,7 @@ module SSite = struct
)
let () = String.register
~service:election_update_credential
~service:election_update_credential_post
(fun uuid (old, new_) ->
lwt user = S.get_logged_user () in
match user with
......
......@@ -384,7 +384,7 @@ module Make (S : ALL_SERVICES) : TEMPLATES = struct
let election_update_credential ~election =
let module X = (val election : WEB_ELECTION) in
let params = X.election.e_params in
let form = post_form ~service:S.election_update_credential
let form = post_form ~service:S.election_update_credential_post
(fun (old, new_) ->
[
div [
......
......@@ -64,7 +64,7 @@ module type SITE_SERVICES = sig
[< Eliom_service.registrable > `Registrable ], 'a)
Eliom_service.service
val election_update_credential :
val election_update_credential_post :
(Serializable_t.uuid, string * string,
[> `Attached of
([> `Internal of [ `Coservice | `Service ] ], [> `Post ])
......
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