From 942d8f72984377c4e69d7c55877621d434e5d687 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 12 Jun 2012 11:32:06 -0400
Subject: hlint

---
 Crypto.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Crypto.hs')

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) 
-- 
cgit v1.2.3