diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-29 14:46:45 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-29 14:51:26 -0400 |
| commit | a61df1522ddf8a36839cf1180d3b16e354459e9a (patch) | |
| tree | 0e78f72714701b8cd7f32591c921e4826fcf1ddd /CmdLine.hs | |
| parent | 237b94f6c687675215f78fba28d7e003a2b9ab7d (diff) | |
| download | debug-me-a61df1522ddf8a36839cf1180d3b16e354459e9a.tar.gz | |
user gpg key checking and prompting done!
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 |