mirror of
https://github.com/ilyakooo0/binary-bits.git
synced 2024-09-11 06:35:26 +03:00
Fix compile error in tests
This commit is contained in:
parent
941f87cf7f
commit
4556008a65
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user