Distinguish generated key and credential files by extension

src/bin/credgen.ml

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

src/bin/tkeygen.ml

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