Repository : ssh://darcs.haskell.org//srv/darcs/packages/bytestring On branch : ghc-7.6
http://hackage.haskell.org/trac/ghc/changeset/5f097ae7d2a81357b3f7fec90f7945353b92273f >--------------------------------------------------------------- commit 5f097ae7d2a81357b3f7fec90f7945353b92273f Author: Duncan Coutts <[email protected]> Date: Mon Aug 27 22:09:05 2012 +0000 Add a NOINLINE [1] for zipWith as it is matched in a RULE GHC correctly warns that RULES cannot reliably match on functions that get inlined too early. Spotted by Paolo Capriotti. >--------------------------------------------------------------- Data/ByteString.hs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/Data/ByteString.hs b/Data/ByteString.hs index 627ddae..549431a 100644 --- a/Data/ByteString.hs +++ b/Data/ByteString.hs @@ -1489,6 +1489,7 @@ zipWith :: (Word8 -> Word8 -> a) -> ByteString -> ByteString -> [a] zipWith f ps qs | null ps || null qs = [] | otherwise = f (unsafeHead ps) (unsafeHead qs) : zipWith f (unsafeTail ps) (unsafeTail qs) +{-# NOINLINE [1] zipWith #-} -- -- | A specialised version of zipWith for the common case of a _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
