From 4d137aa71083c319592c0617816be9d29b2f6c68 Mon Sep 17 00:00:00 2001 From: Bodigrim Date: Wed, 19 May 2021 22:51:39 +0100 Subject: [PATCH] Remove zipWith rewrite rule (#387) --- Data/ByteString.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/Data/ByteString.hs b/Data/ByteString.hs index 099922174..370454892 100644 --- a/Data/ByteString.hs +++ b/Data/ByteString.hs @@ -1624,11 +1624,6 @@ packZipWith f (BS fp l) (BS fq m) = unsafeDupablePerformIO $ len = min l m {-# INLINE packZipWith #-} -{-# RULES -"ByteString specialise zipWith" forall (f :: Word8 -> Word8 -> Word8) p q . - zipWith f p q = unpack (packZipWith f p q) - #-} - -- | /O(n)/ 'unzip' transforms a list of pairs of bytes into a pair of -- ByteStrings. Note that this performs two 'pack' operations. unzip :: [(Word8,Word8)] -> (ByteString,ByteString)