git.iko.soy/binary-bits
on master help sign in
Fix compile error in tests
commit4556008a65e31c65282c7a9f5916900c9f8c6d99 authorLennart Kolmodin <kolmodin@gentoo.org> dateTue 24 Aug 2010, 22:14 (16 years ago) parent941f87c
1 file changed+1−1
compare with master
unifiedsplit
BitsQC.hs+1−1
BitsQC.hs+1−1
@@ -37,7 +37,7 @@ prop_SimpleCase w = w < 0x8000 ==>
3737prop_Word8_putget :: [Word8] -> Property
3838prop_Word8_putget ws = length ws <= fromIntegral (maxBound :: Word8) ==>
3939 -- write all word8s with as many bits as it's required
40− let p = mapM_ (\v -> BP.putWord8be (bitreq v) v) ws
40+ let p = mapM_ (\v -> BP.putWord8 (bitreq v) v) ws
4141 g = mapM BG.getWord8 bitlist
4242 lbs = runPut (BP.runBitPut p)
4343 Right ws' = runGet (runBitGet g) lbs