@@ -37,7 +37,7 @@ prop_SimpleCase w = w < 0x8000 ==>
37prop_Word8_putget :: [Word8] -> Property
37prop_Word8_putget :: [Word8] -> Property
38prop_Word8_putget ws = length ws <= fromIntegral (maxBound :: Word8) ==>
38prop_Word8_putget ws = length ws <= fromIntegral (maxBound :: Word8) ==>
39 -- write all word8s with as many bits as it's required
39 -- 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
41 g = mapM BG.getWord8 bitlist
41 g = mapM BG.getWord8 bitlist
42 lbs = runPut (BP.runBitPut p)
42 lbs = runPut (BP.runBitPut p)
43 Right ws' = runGet (runBitGet g) lbs
43 Right ws' = runGet (runBitGet g) lbs