summaryrefslogtreecommitdiff
path: root/lib/GnuPGAgent.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/GnuPGAgent.hs')
-rw-r--r--lib/GnuPGAgent.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/GnuPGAgent.hs b/lib/GnuPGAgent.hs
index f1d1552..b3919dd 100644
--- a/lib/GnuPGAgent.hs
+++ b/lib/GnuPGAgent.hs
@@ -19,7 +19,6 @@ import Data.Char
19import Data.Maybe 19import Data.Maybe
20import Data.OpenPGP 20import Data.OpenPGP
21import qualified Data.OpenPGP.Util 21import qualified Data.OpenPGP.Util
22 ;import Data.OpenPGP.Util hiding (fingerprint)
23import Data.Word 22import Data.Word
24import Network.Socket 23import Network.Socket
25import System.Directory 24import System.Directory
@@ -166,7 +165,7 @@ getPassphrase agent ask (Query key uid masterkey) = do
166 -- putStrLn $ "convertFromBase error for input "++show hx++": "++show e 165 -- putStrLn $ "convertFromBase error for input "++show hx++": "++show e
167 return Nothing 166 return Nothing
168 Right bs -> return $ Just $ S8.unpack bs 167 Right bs -> return $ Just $ S8.unpack bs
169 "ERR" -> return Nothing 168 _ {- "ERR" -} -> return Nothing
170 169
171quit :: GnuPGAgent -> IO () 170quit :: GnuPGAgent -> IO ()
172quit (GnuPGAgent h) = hClose h 171quit (GnuPGAgent h) = hClose h