@@ -47,8 +47,9 @@ data S = S !ByteString -- ^ Input
4747 !Int -- ^ Bit offset (0-7)
4848 deriving (Show)
4949
50−-- | A block that will be read with only one boundry check.
51−data Block a = Block Int (S -> a)
50+-- | A block that will be read with only one boundry check. Needs to know the
51+-- number of bits in advance.
52+data Block a = Block !Int (S -> a)
5253
5354instance Functor Block where
5455 fmap f (Block i p) = Block i (\s -> f (p s))