Removed unimplemented (-public) documentation for --keypairs and --wallets.

1 files changed, 7 insertions, 5 deletions

diff --git a/kiki.hs b/kiki.hs
index 0c38343..2f8275d 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -747,7 +747,8 @@ documentAutoSignFlag bExport bImport bSecret =
                     ,"                'tor' subkey corresponding to the address HOSTNAME.onion."
                     ,""]
 documentKeyPairsOption :: Bool -> Bool -> Bool -> [String]
-documentKeyPairsOption bExport bImport bSecret = 
+documentKeyPairsOption bExport bImport False = []
+documentKeyPairsOption bExport bImport bSecret@True  = 
             ["    --keypairs [KEYSPEC ...]"
             ,"                A keypair is a secret key coupled with it's corresponding public"
             ,"                key, both of which are ordinarily stored in a single file in PEM"
@@ -766,7 +767,7 @@ documentKeyPairsOption bExport bImport bSecret =
                     ,"                creating the PEM file for import."
                     ,""
                     ] ++ afterSecond
-                (True,True,False) -> -- sync-public
+                (True,True,False) -> -- sync-public NOT-IMPLEMENTED
                     ["                This option specifies the paths of PEM files, of both the"
                     ,"                public and private variety, which either currently contain"
                     ,"                public keys to be imported, or lack public keys to be exported."
@@ -789,7 +790,7 @@ documentKeyPairsOption bExport bImport bSecret =
                     ,"                to your OpenGPG keyring will not be modified by this command."
                     ,""
                     ] ++ afterSecond
-                (False,True,False) -> -- import-public
+                (False,True,False) -> -- import-public NOT-IMPLEMENTED
                     ["                This option specifies the paths of PEM files, of both the"
                     ,"                public and private variety, which either currently contain"
                     ,"                contain keys to be imported.  If your working key has no subkey"
@@ -813,7 +814,7 @@ documentKeyPairsOption bExport bImport bSecret =
                     ,"                OpenGPG keyring."
                     ,""
                     ] ++ afterSecond
-                (True,False,False) -> -- export-public
+                (True,False,False) -> -- export-public NOT-IMPLEMENTED
                     ["                This option specifies the paths of PEM files, of the private or"
                     ,"                public variety, which lack public keys to be exported.  Unlike"
                     ,"                the export-secret command, this command leaves no possibility"
@@ -881,7 +882,8 @@ documentKeyRingsOption bExport bImport bSecret =
             ]
 
 documentWalletsOption :: Bool -> Bool -> Bool -> [String]
-documentWalletsOption bExport bImport bSecret =
+documentWalletsOption bExport bImport False = []
+documentWalletsOption bExport bImport True =
               ["    --wallets  [FILE ...]"
               ,"                Provide wallet files with secret crypto-coin keys in Wallet"          
               ,"                Import Format.  The keys will be treated as subkeys of your"