@@ -200,6 +200,7 @@ byte_offset n = n `shiftR` 3
200200readBool :: S -> Bool
201201readBool (S bs n) = testBit (unsafeHead bs) (7-n)
202202
203+{-# INLINE readWord8 #-}
203204readWord8 :: Int -> S -> Word8
204205readWord8 n (S bs o)
205206 -- no bits at all, return 0
@@ -220,7 +221,7 @@ readWord8 n (S bs o)
220221 w' = (w `shiftr_w16` (16 - o - n)) .&. m
221222 in fromIntegral w'
222223
223−
224+{-# INLINE readWord16be #-}
224225readWord16be :: Int -> S -> Word16
225226readWord16be n s@(S bs o)
226227
@@ -246,6 +247,7 @@ readWord16be n s@(S bs o)
246247
247248 | otherwise = error "readWord16be: tried to read more than 16 bits"
248249
250+{-# INLINE readWord32be #-}
249251readWord32be :: Int -> S -> Word32
250252readWord32be n s@(S _ o)
251253 -- 8 or fewer bits, use readWord8
@@ -261,6 +263,7 @@ readWord32be n s@(S _ o)
261263 | otherwise = error "readWord32be: tried to read more than 32 bits"
262264
263265
266+{-# INLINE readWord64be #-}
264267readWord64be :: Int -> S -> Word64
265268readWord64be n s@(S _ o)
266269 -- 8 or fewer bits, use readWord8