From cb7fb2be20d7c1286799652e14587a96bd6235ab Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sun, 7 Aug 2011 16:41:50 -0500 Subject: Currying --- lib/OpenPGP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/OpenPGP.hs b/lib/OpenPGP.hs index 4889a23..e5b70cd 100644 --- a/lib/OpenPGP.hs +++ b/lib/OpenPGP.hs @@ -357,7 +357,7 @@ instance Binary MPI where put (((fromIntegral . LZ.length $ bytes) - 1) * 8 + floor (logBase 2 $ fromIntegral (bytes `LZ.index` 0)) + 1 :: Word16) - mapM_ (\x -> putWord8 x) (LZ.unpack bytes) + mapM_ putWord8 (LZ.unpack bytes) where bytes = LZ.unfoldr (\x -> if x == 0 then Nothing else Just (fromIntegral x, x `shiftR` 8)) i get = do -- cgit v1.2.3