@@ -259,8 +259,8 @@ runBitGet bg = do
259259 putS bs''
260260 return (Right x)
261261
262−ensure :: Int -> BitGet ()
263−ensure n = C $ \s kf ks ->
262+ensureBits :: Int -> BitGet ()
263+ensureBits n = C $ \s kf ks ->
264264 let loop (S bs o) | n <= (B.length bs * 8 - o) = ks (S bs o) ()
265265 | otherwise = do
266266 needMore
@@ -270,19 +270,19 @@ ensure n = C $ \s kf ks ->
270270 in loop s
271271
272272getBool :: BitGet Bool
273−getBool = ensure 1 >> modifyState readBool
273+getBool = ensureBits 1 >> modifyState readBool
274274
275275getWord8 :: Int -> BitGet Word8
276−getWord8 n = ensure n >> modifyState (flip readWord8 n)
276+getWord8 n = ensureBits n >> modifyState (flip readWord8 n)
277277
278278getWord16be :: Int -> BitGet Word16
279−getWord16be n = ensure n >> modifyState (flip readWord16be n)
279+getWord16be n = ensureBits n >> modifyState (flip readWord16be n)
280280
281281getWord32be :: Int -> BitGet Word32
282−getWord32be n = ensure n >> modifyState (flip readWord32be n)
282+getWord32be n = ensureBits n >> modifyState (flip readWord32be n)
283283
284284getWord64be :: Int -> BitGet Word64
285−getWord64be n = ensure n >> modifyState (flip readWord64be n)
285+getWord64be n = ensureBits n >> modifyState (flip readWord64be n)
286286
287287getState :: BitGet S
288288getState = C $ \s kf ks -> ks s s