msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Data.Binary should use Data.ByteString.copy when decoding ByteStrings

Browse Source
This commit is contained in:
krasimir
2008-10-28 16:43:00 +00:00
parent adcf1a8c34
commit ee8a2738e2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Binary.hs
View File

@@ -699,7 +699,7 @@ instance (Binary a, Binary b) => Binary (Either a b) where
instance Binary B.ByteString where instance Binary B.ByteString where
put bs = do put (B.length bs) put bs = do put (B.length bs)
putByteString 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 -- Using old versions of fps, this is a type synonym, and non portable