diff options
| author | krasimir <krasimir@chalmers.se> | 2009-03-12 09:03:55 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-03-12 09:03:55 +0000 |
| commit | d1276ee52b2065111b5e45c669de42d025ff0574 (patch) | |
| tree | 92f52585389dcd82c522a34e0347b31f83379817 /src/Data | |
| parent | 1421ed2f922b86040bd4955cb23a74b7269f96c0 (diff) | |
don't use ByteString.copy in Data.Binary this makes it far too slow
Diffstat (limited to 'src/Data')
| -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 ec5104a2e..7398e6b84 100644 --- a/src/Data/Binary.hs +++ b/src/Data/Binary.hs @@ -701,7 +701,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 = liftM B.copy (get >>= getByteString) + get = get >>= getByteString -- -- Using old versions of fps, this is a type synonym, and non portable |