diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-12 12:10:41 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-12 12:10:41 -0400 |
| commit | ecc967a33fbd4724f5782f6d6b858b3df103b134 (patch) | |
| tree | d7fc098e08f558170db2c6979dfd2f300e9b559d /CmdLine.hs | |
| parent | 3ee306d3d4bda52268f07df874070b65d171694e (diff) | |
| download | keysafe-ecc967a33fbd4724f5782f6d6b858b3df103b134.tar.gz | |
prompt for name
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -11,7 +11,6 @@ import qualified Data.ByteString.UTF8 as BU8 data CmdLine = CmdLine { mode :: Mode - , name :: Name , keytype :: KeyType , testMode :: Bool , gui :: Bool @@ -24,7 +23,6 @@ data Mode = Backup | Restore parse :: Parser CmdLine parse = CmdLine <$> (backup <|> restore) - <*> nameopt <*> keytypeopt <*> testmodeswitch <*> guiswitch @@ -37,10 +35,6 @@ parse = CmdLine ( long "restore" <> help "Retrieve a secret key from keysafe." ) - nameopt = Name . BU8.fromString <$> strOption - ( long "name" - <> help "Some name that is associated with the key. Should be something you can remember when restoring it." - ) keytypeopt = KeyType . BU8.fromString <$> strOption ( long "type" <> help "Type of key (eg, \"gpg\")." |