From ecc967a33fbd4724f5782f6d6b858b3df103b134 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 12 Aug 2016 12:10:41 -0400
Subject: prompt for name

---
 CmdLine.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'CmdLine.hs')

diff --git a/CmdLine.hs b/CmdLine.hs
index 2b494db..b47d609 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -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\")."
-- 
cgit v1.2.3