@@ -7,7 +7,7 @@
77
88{-# LANGUAGE CPP #-}
99
10−import Control.DeepSeq (NFData)
10+import Control.DeepSeq (NFData(..))
1111-- import Data.Functor.Identity (Identity, runIdentity)
1212import System.Random (randomRIO)
1313
@@ -17,6 +17,10 @@ import qualified StreamKOps as K
1717import qualified StreamDKOps as DK
1818import qualified Data.List as List
1919
20+#if !MIN_VERSION_deepseq(1,4,3)
21+instance NFData Ordering where rnf = (`seq` ())
22+#endif
23+
2024-- We need a monadic bind here to make sure that the function f does not get
2125-- completely optimized out by the compiler in some cases.
2226{-# INLINE benchIO #-}