1 files changed, 2 insertions, 11 deletions

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 6667f1a..8fef50a 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -1005,19 +1005,10 @@ instance BINARY_CLASS MPI where
         put (MPI i)
                 | i >= 0 = do
                         put (bitl :: Word16)
-                        putSomeByteString bytes
+                        putSomeByteString $ B.fromStrict bytes
                 | otherwise = fail $ "MPI is less than 0: " ++ show i
                 where
-                (bytes, bitl)
-                        | B.null bytes' = (B.singleton 0, 1)
-                        | otherwise     =
-                                (bytes', (fromIntegral (B.length bytes') - 1) * 8 + sigBit)
-
-                sigBit = fromIntegral $ 8 - countLeadingZeros (B.index bytes 0)
-                bytes' = B.reverse $ B.unfoldr (\x ->
-                                if x == 0 then Nothing else
-                                        Just (fromIntegral x, x `shiftR` 8)
-                        ) i
+                (bitl, bytes) = putBigNum i
         get = do
                 length <- fmap fromIntegral (get :: Get Word16)
                 bytes <- getSomeByteString =<< assertProp (>0) ((length + 7) `div` 8)