GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

make the Functor Get instance in Data.Binary strict to be sure that the decoder is strict

Browse Source
This commit is contained in:
krasimir
2009-06-24 12:08:32 +00:00
parent 958d988217
commit 10fec3453a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Binary/Get.hs
View File

@@ -108,8 +108,8 @@ data S = S {-# UNPACK #-} !B.ByteString -- current chunk
newtype Get a = Get { unGet :: S -> (a, S) } newtype Get a = Get { unGet :: S -> (a, S) }
instance Functor Get where instance Functor Get where
fmap f m = Get (\s -> let (a, s') = unGet m s fmap f m = Get (\s -> case unGet m s of
in (f a, s')) (a, s') -> (f a, s'))
{-# INLINE fmap #-} {-# INLINE fmap #-}
#ifdef APPLICATIVE_IN_BASE #ifdef APPLICATIVE_IN_BASE