diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Data/Binary/Get.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Binary/Get.hs b/src/Data/Binary/Get.hs index bdc07d985..4b5625359 100644 --- a/src/Data/Binary/Get.hs +++ b/src/Data/Binary/Get.hs @@ -108,8 +108,8 @@ data S = S {-# UNPACK #-} !B.ByteString -- current chunk newtype Get a = Get { unGet :: S -> (a, S) } instance Functor Get where - fmap f m = Get (\s -> let (a, s') = unGet m s - in (f a, s')) + fmap f m = Get (\s -> case unGet m s of + (a, s') -> (f a, s')) {-# INLINE fmap #-} #ifdef APPLICATIVE_IN_BASE |