@@ -7,7 +7,7 @@
8{-# LANGUAGE CPP #-}
8{-# LANGUAGE CPP #-}
10−import Control.DeepSeq (NFData)
10+import Control.DeepSeq (NFData(..))
11-- import Data.Functor.Identity (Identity, runIdentity)
11-- import Data.Functor.Identity (Identity, runIdentity)
12import System.Random (randomRIO)
12import System.Random (randomRIO)
@@ -17,6 +17,10 @@ import qualified StreamKOps as K
17import qualified StreamDKOps as DK
17import qualified StreamDKOps as DK
18import qualified Data.List as List
18import qualified Data.List as List
20+#if !MIN_VERSION_deepseq(1,4,3)
21+instance NFData Ordering where rnf = (`seq` ())
20-- We need a monadic bind here to make sure that the function f does not get
24-- We need a monadic bind here to make sure that the function f does not get
21-- completely optimized out by the compiler in some cases.
25-- completely optimized out by the compiler in some cases.
22{-# INLINE benchIO #-}
26{-# INLINE benchIO #-}