git.iko.soy/binary-bits
on master help sign in
Expose long hidden bug.
4dbf32aLennart Kolmodin
Data/Binary/Bits/Put.hs+1−1
compare with master
unifiedsplit
@@ -50,7 +50,7 @@ data S = S !Builder !Word8 !Int
50
50
51-- | Put a 1 bit 'Bool'.
51-- | Put a 1 bit 'Bool'.
52putBool :: Bool -> BitPut ()
52putBool :: Bool -> BitPut ()
53−putBool b = putWord8 1 (if b then 1 else 0)
53+putBool b = putWord8 1 (if b then 0xff else 0x00)
54
54
55-- | Put the @n@ lower bits of a 'Word8'.
55-- | Put the @n@ lower bits of a 'Word8'.
56putWord8 :: Int -> Word8 -> BitPut ()
56putWord8 :: Int -> Word8 -> BitPut ()