REMOVEME: Disable in-test-suite retries

IntersectMBO · Nov 5, 2024 · 7698147 · 7698147
1 parent 6409135
commit 7698147
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cardano-testnet/src/Testnet/Property/Util.hs b/cardano-testnet/src/Testnet/Property/Util.hs
@@ -37,7 +37,7 @@ import           Hedgehog.Internal.Property (MonadTest)
 
 
 disableRetries :: Bool
-disableRetries = IO.unsafePerformIO $ do
+disableRetries = const True . IO.unsafePerformIO $ do
   mValue <- IO.lookupEnv "DISABLE_RETRIES"
   return $ mValue == Just "1"
 {-# NOINLINE disableRetries #-}