diff options
| author | krasimir <krasimir@chalmers.se> | 2008-10-28 16:43:00 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-10-28 16:43:00 +0000 |
| commit | ee8a2738e2eef80d685a2bb1bf5f345eb47306a3 (patch) | |
| tree | ac5c36811dd40cff20e8f3d06e8afd7d3590071c /src | |
| parent | adcf1a8c343e936a0823d443a2f5bc51c7cdfca5 (diff) | |
Data.Binary should use Data.ByteString.copy when decoding ByteStrings
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 |