Commit 97c1ce05 authored by Stephane Glondu's avatar Stephane Glondu

Delete private_keys.jsons of archived elections

parent a4bf7a71
......@@ -292,6 +292,7 @@ let archive_election uuid =
let%lwt () = cleanup_table ("creds_" ^ uuid_u) in
let%lwt () = cleanup_table ("ballots_" ^ uuid_u) in
let%lwt () = cleanup_file (!spool_dir / uuid_s / "private_key.json") in
let%lwt () = cleanup_file (!spool_dir / uuid_s / "private_keys.jsons") in
return_unit
let () = Any.register ~service:home
......
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