diff options
Diffstat (limited to 'Crypto.hs')
-rw-r--r-- | Crypto.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -38,6 +38,7 @@ import System.IO import System.Posix.IO import System.Posix.Types import System.Posix.Process +import Control.Applicative import Control.Concurrent import Control.Exception (finally) import System.Exit @@ -136,7 +137,7 @@ encryptCipher (Cipher c) (KeyIds ks) = do {- Decrypting an EncryptedCipher is expensive; the Cipher should be cached. -} decryptCipher :: RemoteConfig -> EncryptedCipher -> IO Cipher decryptCipher _ (EncryptedCipher encipher _) = - return . Cipher =<< gpgPipeStrict decrypt encipher + Cipher <$> gpgPipeStrict decrypt encipher where decrypt = [ Param "--decrypt" ] |