diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Data/Binary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Binary.hs b/src/Data/Binary.hs index fd0ca6c98..ac936674a 100644 --- a/src/Data/Binary.hs +++ b/src/Data/Binary.hs @@ -699,7 +699,7 @@ instance (Binary a, Binary b) => Binary (Either a b) where instance Binary B.ByteString where put bs = do put (B.length bs) putByteString bs - get = get >>= getByteString + get = liftM B.copy (get >>= getByteString) -- -- Using old versions of fps, this is a type synonym, and non portable |