1 files changed, 1 insertions, 1 deletions

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