ilyakooo0/binary-bits
1
0
Fork 0
mirror of https://github.com/ilyakooo0/binary-bits.git synced 2024-09-11 06:35:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix compile error in tests

Browse Source
This commit is contained in:
Lennart Kolmodin 2010-08-24 22:14:10 +04:00
parent 941f87cf7f
commit 4556008a65
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
BitsQC.hs
View File

@ -37,7 +37,7 @@ prop_SimpleCase w = w < 0x8000 ==>
prop_Word8_putget :: [Word8] -> Property
prop_Word8_putget ws = length ws <= fromIntegral (maxBound :: Word8) ==>
-- write all word8s with as many bits as it's required
let p = mapM_ (\v -> BP.putWord8be (bitreq v) v) ws
let p = mapM_ (\v -> BP.putWord8 (bitreq v) v) ws
g = mapM BG.getWord8 bitlist
lbs = runPut (BP.runBitPut p)
Right ws' = runGet (runBitGet g) lbs