From d1276ee52b2065111b5e45c669de42d025ff0574 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 12 Mar 2009 09:03:55 +0000
Subject: [PATCH] don't use ByteString.copy in Data.Binary this makes it far
 too slow

---
 src/Data/Binary.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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