From a61df1522ddf8a36839cf1180d3b16e354459e9a Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Sat, 29 Apr 2017 14:46:45 -0400
Subject: user gpg key checking and prompting done!

---
 CmdLine.hs | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

(limited to 'CmdLine.hs')

diff --git a/CmdLine.hs b/CmdLine.hs
index 40437b8..7a023e7 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -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
-- 
cgit v1.2.3