Remove zipWith rewrite rule (#387)

haskell · May 19, 2021 · 4d137aa · 4d137aa
1 parent cdf6ebb
commit 4d137aa
Showing 1 changed file with 0 additions and 5 deletions.
diff --git 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)