From 63af3d0f3d149b110e172223c18afacd77a172f8 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 29 Aug 2016 16:58:47 -0400
Subject: Allow alternative key ciphers.

---
 kiki.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'kiki.hs')

diff --git a/kiki.hs b/kiki.hs
index 71222ce..f42ee22 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1492,7 +1492,8 @@ kiki "init" args | "--help" `elem` args = do
     putStr . unlines $
         [ "kiki init [ --passphrase-fd=FD"
         , "          | --homedir[=HOMEDIR]"
-        , "          | --chroot=ROOTDIR ] ..."
+        , "          | --chroot=ROOTDIR ]"
+        , "          | --cipher="++intercalate "|" (map ciphername ciphers)++" ] ..."
         , ""
         , "Modify your GnuPG keyring and update /var/cache/kiki.  The following"
         , "changes will occur to the keyring:"
@@ -1512,9 +1513,10 @@ kiki "init" args | "--help" `elem` args = do
         , "                variable is ignored and you must use --homedir to specify"
         , "                a value other than /root/.gnupg."
         , ""
+        , ""
         ] ++ documentHomeDir ++ [""] ++ documentPassphraseFDFlag True True True
 
-kiki "init" args = run args $ importAndRefresh <$> ㄧchroot <*> ㄧhomedir
+kiki "init" args = run args $ importAndRefresh <$> ㄧchroot <*> ㄧhomedir <*> ㄧcipher
 
 kiki "delete" args | "--help" `elem` args = do
     putStr . unlines $
-- 
cgit v1.2.3