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
3bcb21f1
Commit
3bcb21f1
authored
Aug 22, 2017
by
Stephane Glondu
Browse files
Bugfix: elections were never removed from setup table
parent
8156fab4
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/web/web_site.ml
View file @
3bcb21f1
...
...
@@ -451,7 +451,7 @@ let () =
let
election_setup_mutex
=
Lwt_mutex
.
create
()
let
with_setup_election
uuid
f
=
let
with_setup_election
?
(
save
=
true
)
uuid
f
=
with_site_user
(
fun
u
->
let
uuid_s
=
Uuidm
.
to_string
uuid
in
Lwt_mutex
.
with_lock
election_setup_mutex
(
fun
()
->
...
...
@@ -459,7 +459,7 @@ let with_setup_election uuid f =
if
se
.
se_owner
=
u
then
(
try
%
lwt
let
%
lwt
r
=
f
se
in
let
%
lwt
()
=
set_setup_election
uuid_s
se
in
let
%
lwt
()
=
if
save
then
set_setup_election
uuid_s
se
else
return_unit
in
return
r
with
e
->
let
service
=
preapply
election_setup
uuid
in
...
...
@@ -921,7 +921,7 @@ let () =
let
()
=
Any
.
register
~
service
:
election_setup_create
(
fun
uuid
()
->
with_setup_election
uuid
(
fun
se
->
with_setup_election
~
save
:
false
uuid
(
fun
se
->
try
%
lwt
let
%
lwt
()
=
finalize_election
uuid
se
in
redir_preapply
election_admin
(
uuid
,
()
)
()
...
...
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