diff options
author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-07 16:41:50 -0500 |
---|---|---|
committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-07 16:41:50 -0500 |
commit | cb7fb2be20d7c1286799652e14587a96bd6235ab (patch) | |
tree | 5d55402bb3deb3560b583c81855b2dea83bfd8d7 | |
parent | 78c1bb25abdb182fdb96be5626c7b816de42aa38 (diff) |
Currying
-rw-r--r-- | lib/OpenPGP.hs | 2 |
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 | |||
357 | put (((fromIntegral . LZ.length $ bytes) - 1) * 8 | 357 | put (((fromIntegral . LZ.length $ bytes) - 1) * 8 |
358 | + floor (logBase 2 $ fromIntegral (bytes `LZ.index` 0)) | 358 | + floor (logBase 2 $ fromIntegral (bytes `LZ.index` 0)) |
359 | + 1 :: Word16) | 359 | + 1 :: Word16) |
360 | mapM_ (\x -> putWord8 x) (LZ.unpack bytes) | 360 | mapM_ putWord8 (LZ.unpack bytes) |
361 | where bytes = LZ.unfoldr (\x -> if x == 0 then Nothing | 361 | where bytes = LZ.unfoldr (\x -> if x == 0 then Nothing |
362 | else Just (fromIntegral x, x `shiftR` 8)) i | 362 | else Just (fromIntegral x, x `shiftR` 8)) i |
363 | get = do | 363 | get = do |