diff options
Diffstat (limited to 'CmdLine.hs')
-rw-r--r-- | CmdLine.hs | 10 |
1 files changed, 2 insertions, 8 deletions
@@ -19,8 +19,7 @@ data Mode | ControlMode ControlOpts data UserOpts = UserOpts - { gpgOpts :: [String] - , cmdToRun :: Maybe (String, [String]) + { cmdToRun :: Maybe (String, [String]) } type UrlString = String @@ -69,12 +68,7 @@ parseMode = (UserMode <$> parseuser) <|> (ControlMode <$> parsecontrol) where parseuser = UserOpts - <$> many (option str - ( long "gpg-opt" - <> short 'g' - <> help "option to pass to gpg" - )) - <*> optional ((,) + <$> optional ((,) <$> strArgument (metavar "cmd") <*> many (strArgument (metavar "opts"))) parsedeveloper = DeveloperOpts |