mkEqualizeConfig: set no timeout by default

Bodigrim · Jun 10, 2024 · 75ccd6c · 75ccd6c
1 parent 54599f5
commit 75ccd6c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Test/Tasty/Bench/Equalize.hs b/src/Test/Tasty/Bench/Equalize.hs
@@ -11,7 +11,7 @@ module Test.Tasty.Bench.Equalize (
 
 import Control.DeepSeq (NFData)
 import System.IO.Unsafe (unsafeInterleaveIO)
-import Test.Tasty (Timeout, mkTimeout)
+import Test.Tasty (Timeout (..))
 import Test.Tasty.Bench (Benchmarkable, RelStDev (..), measureCpuTimeAndStDev, nf)
 
 #ifdef DEBUG
@@ -41,7 +41,7 @@ mkEqualizeConfig fLow fHigh (low, high) =
     , eqlFasterOnHigh = nf fHigh
     , eqlLow = low
     , eqlHigh = high
-    , eqlTimeout = mkTimeout 1e8
+    , eqlTimeout = NoTimeout
     }
 
 equalize :: EqualizeConfig -> IO [(Word, Word)]