Rename election_update_credential{ => _post}

src/web/registration.ml

@@ -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

src/web/templates.ml

@@ -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 [

src/web/web_signatures.mli

@@ -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 ])