From b82eaca1a2069f5c1981cdebb71538b344021eb7 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 30 Oct 2013 23:29:35 -0400
Subject: Disabled partially-implemented decrypt command.

---
 keys.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'keys.hs')

diff --git a/keys.hs b/keys.hs
index 7553ea3..f8f1e2b 100644
--- a/keys.hs
+++ b/keys.hs
@@ -733,9 +733,11 @@ data Arguments =
               , output :: FilePath }
         | PemFP { homedir :: Maybe FilePath
                 , seckey :: String }
+        {-
         | Decrypt { homedir :: Maybe FilePath
                   , passphrase_fd :: Maybe Int
                   , output :: FilePath }
+        -}
   deriving (Show, Data, Typeable)
 
 getPassphrase cmd = 
@@ -768,6 +770,7 @@ main = do
                     [ "Copies the first file to the second while adding"
                     , " signatures for tor-style uids that match"
                     , " cross-certified keys." ]
+        {-
         , Decrypt HOMEOPTION
               (def &= opt ("passphrase"::String) 
                    &= typ "FD"
@@ -778,6 +781,7 @@ main = do
             &= (help . concat)
                     [ "Remove password protection from the working keyring" 
                     , " and save the result into the given file."]
+        -}
         , Add HOMEOPTION
               (def &= opt ("passphrase"::String) 
                    &= typ "FD"
@@ -997,6 +1001,7 @@ main = do
             bs = encode (Message pub)
         L.writeFile (output cmd) bs
 
+    {-
     doCmd cmd@(Decrypt {}) = do
         ( homedir -- e3ozbhvej4jvlu43.onion/gpg/gnupghome
           , sec   -- e3ozbhvej4jvlu43.onion/gpg/gnupghome/secring.gpg
@@ -1016,6 +1021,7 @@ main = do
           Just wk -> do
             putStrLn $ "wk = " ++ fingerprint wk
         -}
+    -}
 
     doCmd cmd@(Add {}) = do
         ( homedir -- e3ozbhvej4jvlu43.onion/gpg/gnupghome
-- 
cgit v1.2.3