1 files changed, 1 insertions, 1 deletions
diff --git a/Crypto.hs b/Crypto.hs
index 58c0e6d00..8941f7637 100644
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -138,7 +138,7 @@ withDecryptedContent = pass withDecryptedHandle
 
 pass :: (Cipher -> IO L.ByteString -> (Handle -> IO a) -> IO a) 
       -> Cipher -> IO L.ByteString -> (L.ByteString -> IO a) -> IO a
-pass to n s a = to n s $ \h -> a =<< L.hGetContents h
+pass to n s a = to n s $ a <=< L.hGetContents
 
 hmacWithCipher :: Cipher -> String -> String
 hmacWithCipher c = hmacWithCipher' (cipherHmac c)