don't use ByteString.copy in Data.Binary this makes it far too slow

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