diff options
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\")." |