@@ -3,7 +3,7 @@
3module Main where
3module Main where
5import Data.Binary ( encode, Binary(..) )
5import Data.Binary ( encode, Binary(..) )
6−import Data.Binary.Get ( runGet, runGetPartial, feedLBS, Result(..) )
6+import Data.Binary.Get ( runGet, runGetIncremental, pushChunks, Decoder(..) )
7import Data.Binary.Put ( runPut )
7import Data.Binary.Put ( runPut )
9import qualified Data.Binary.Get as BG ( getWord8, getWord16be, getWord32be, getWord64be )
9import qualified Data.Binary.Get as BG ( getWord8, getWord16be, getWord32be, getWord64be )
@@ -202,7 +202,7 @@ prop_fail lbs errMsg0 = forAll (choose (0, 8 * L.length lbs)) $ \len ->
202 p = do getByteString (fromIntegral bytes)
202 p = do getByteString (fromIntegral bytes)
203 getBits (fromIntegral bits) :: BitGet Word8
203 getBits (fromIntegral bits) :: BitGet Word8
204 fail errMsg0
204 fail errMsg0
205− r = runGetPartial (runBitGet p) `feedLBS` lbs
205+ r = runGetIncremental (runBitGet p) `pushChunks` lbs
206 in case r of
206 in case r of
207 Fail remainingBS pos errMsg ->
207 Fail remainingBS pos errMsg ->
208 and [ L.fromChunks [remainingBS] == L.drop expectedBytesConsumed lbs
208 and [ L.fromChunks [remainingBS] == L.drop expectedBytesConsumed lbs