@@ -138,6 +138,8 @@ readWord16be s@(S bs o) n
138138
139139 | otherwise = error "readWord16be: tried to read more than 16 bits"
140140
141+readWithoutOffset :: (Bits a, Num a)
142+ => S -> (a -> Int -> a) -> (a -> Int -> a) -> Int -> T a S
141143readWithoutOffset s@(S bs o) shifterL shifterR n
142144 | o /= 0 = error "readWithoutOffset: there is an offset"
143145
@@ -161,6 +163,8 @@ readWithoutOffset s@(S bs o) shifterL shifterR n
161163 w = msegs .|. last
162164 in w :*: incS s n
163165
166+readWithOffset :: (Bits a, Num a)
167+ => S -> (a -> Int -> a) -> (a -> Int -> a) -> Int -> T a S
164168readWithOffset s@(S bs o) shifterL shifterR n
165169 | n <= 64 = let bits_in_msb = 8 - o
166170 (n',top) = (n - bits_in_msb