Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
belenios
belenios
Commits
e8d8f5f9
Commit
e8d8f5f9
authored
Mar 19, 2014
by
Stephane Glondu
Browse files
Rename election_update_credential{ => _post}
parent
b0a9e976
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/web/registration.ml
View file @
e8d8f5f9
...
...
@@ -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
View file @
e8d8f5f9
...
...
@@ -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
View file @
e8d8f5f9
...
...
@@ -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
])
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment