@@ -4,7 +4,7 @@
44--
55-- * Most pure functions defined the string types
66--
7−{-# LANGUAGE BangPatterns, GADTs, MagicHash #-}
7+{-# LANGUAGE BangPatterns, CPP, GADTs, MagicHash #-}
88{-# OPTIONS_GHC -fno-warn-orphans #-}
99module Benchmarks.Pure
1010 ( benchmark
@@ -425,11 +425,13 @@ benchmark fp = do
425425 replicat n = concat . L.replicate n
426426 short = T.pack "short"
427427
428+#if !MIN_VERSION_bytestring(0,10,0)
428429instance NFData BS.ByteString
429430
430431instance NFData BL.ByteString where
431432 rnf BL.Empty = ()
432433 rnf (BL.Chunk _ ts) = rnf ts
434+#endif
433435
434436data B where
435437 B :: NFData a => a -> B