Update merge command to create 25519 keys.

1 files changed, 10 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index bbe73f8..1138b7a 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1323,7 +1323,10 @@ kiki "merge" [] = do
         , "                   If not specified, default is to spill (read and use but"
         , "                   don't write)."
         , ""
-        , "  --create=(rsa:SIZE|cmd:CMD)"
+        , "  --create=(rsa:SIZE|ed25519|cv25519|cmd:CMD)"
+        , "                   This should be used with a filename to export to in PEM"
+        , "                   format but this is just a dummy argument if the flow is set"
+        , "                   to spill."
         , ""
         , "  --autosign[=no]"
         , ""
@@ -1490,6 +1493,12 @@ kiki "merge" args = do
                                             digits -> Internal (GenRSA (read digits `div` 8)) }
                           specs
                     , op )
+            Left ("create",Just "ed25519")
+                 -> ( (si { initializer = Internal GenEd25519 }, specs)
+                    , op )
+            Left ("create",Just "cv25519")
+                 -> ( (si { initializer = Internal GenCv25519 }, specs)
+                    , op )
             Left ("type",Just "keyring") -> ( (,) si { typ = KeyRingFile     } specs, op )
             Left ("type",Just "pem"    ) -> ( (,) si { typ = PEMFile         } specs, op )
             Left ("type",Just "wallet" ) -> ( (,) si { typ = WalletFile      } specs, op )