4f98e98 · binary-bits · git.iko.soy

git.iko.soy/binary-bits

on master help sign in

runGetSimple: simply return the result value

4f98e98Lennart Kolmodin16 years ago

BitsGet.hs+8

@@ -9,6 +9,7 @@ module BitsGet

9 , readWord8

10 , readWord16be

11 , runBitGet

12+ , runBitGetSimple

12 , BitGet

13 , BitGet

13 , getBool

14 , getBool

14 , getWord8

15 , getWord8

@@ -219,6 +220,13 @@ instance Applicative BitGet where

219 pure x = return x

220 pure x = return x

220 fm <*> m = fm >>= \f -> m >>= \v -> return (f v)

221 fm <*> m = fm >>= \f -> m >>= \v -> return (f v)

221

222

223+runBitGetSimple :: BitGet a -> Get a

224+runBitGetSimple bg = do

225+ v <- runBitGet bg

226+ case v of

227+ Left err -> fail err

228+ Right v -> return v

229+

222runBitGet :: BitGet a -> Get (Either String a)

230runBitGet :: BitGet a -> Get (Either String a)

223runBitGet bg = do

231runBitGet bg = do

224 bs <- getS -- get the current chunk

232 bs <- getS -- get the current chunk