diff options
Diffstat (limited to 'lib/GnuPGAgent.hs')
-rw-r--r-- | lib/GnuPGAgent.hs | 3 |
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 | |||
19 | import Data.Maybe | 19 | import Data.Maybe |
20 | import Data.OpenPGP | 20 | import Data.OpenPGP |
21 | import qualified Data.OpenPGP.Util | 21 | import qualified Data.OpenPGP.Util |
22 | ;import Data.OpenPGP.Util hiding (fingerprint) | ||
23 | import Data.Word | 22 | import Data.Word |
24 | import Network.Socket | 23 | import Network.Socket |
25 | import System.Directory | 24 | import 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 | ||
171 | quit :: GnuPGAgent -> IO () | 170 | quit :: GnuPGAgent -> IO () |
172 | quit (GnuPGAgent h) = hClose h | 171 | quit (GnuPGAgent h) = hClose h |