git.iko.soy/binary-bits
on master help sign in
Disable joinGet
4cd365bLennart Kolmodin
BitsGet.hs+3−1
compare with master
unifiedsplit
@@ -5,7 +5,7 @@ module BitsGet
5 , runBitGet
5 , runBitGet
6 , runBitGetSimple
6 , runBitGetSimple
7 , BitGet
7 , BitGet
8− , joinGet
8+ -- , joinGet
9
9
10 , getBool
10 , getBool
11 , getWord8
11 , getWord8
@@ -68,6 +68,7 @@ incS (S bs n) o =
68 let (d,n') = divMod (n+o) 8
68 let (d,n') = divMod (n+o) 8
69 in S (unsafeDrop d bs) n'
69 in S (unsafeDrop d bs) n'
70
70
71+{-
71joinGet :: Get a -> BitGet a
72joinGet :: Get a -> BitGet a
72joinGet m = C $ \s@(S bs o) kf ks -> do
73joinGet m = C $ \s@(S bs o) kf ks -> do
73 -- put back the rest of the current chunk
74 -- put back the rest of the current chunk
@@ -80,6 +81,7 @@ joinGet m = C $ \s@(S bs o) kf ks -> do
80 bs' <- getS
81 bs' <- getS
81 let s' = S bs' 0
82 let s' = S bs' 0
82 ks s' a
83 ks s' a
84+-}
83
85
84readByteString :: S -> Int -> T ByteString S
86readByteString :: S -> Int -> T ByteString S
85readByteString s@(S bs o) n
87readByteString s@(S bs o) n