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

Distinguish generated key and credential files by extension

parent 8ff5c41e
......@@ -162,7 +162,7 @@ module RunCredgen (X : sig end) = struct
let pub =
"public credentials",
timestamp ^ ".public",
timestamp ^ ".pubcreds",
0o444,
List.sort compare public_credentials
......@@ -175,13 +175,13 @@ module RunCredgen (X : sig end) = struct
) ids private_credentials
in
kind,
timestamp ^ ".private",
timestamp ^ ".privcreds",
0o400,
List.sort compare creds
let hashed = option_map (fun h ->
"hashed credentials with ids",
timestamp ^ ".hashed",
timestamp ^ ".hashcreds",
0o400,
List.sort compare h
) hashed_credentials
......
......@@ -81,14 +81,14 @@ module RunTrusteeKeygen (G : Election.FF_GROUP) = struct
let pubkey =
"public",
id ^ ".public",
id ^ ".pubkey",
0o444,
public_key,
Serializable_j.write_trustee_public_key Serializable_builtin_j.write_number
let privkey =
"private",
id ^ ".private",
id ^ ".privkey",
0o400,
private_key,
Serializable_builtin_j.write_number
......
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