yucky little force

IntersectMBO · May 9, 2024 · 07f5204 · 07f5204
1 parent 73d5282
commit 07f5204
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ouroboros-consensus/test/consensus-test/Test/Consensus/BlockchainTime/Simple.hs b/ouroboros-consensus/test/consensus-test/Test/Consensus/BlockchainTime/Simple.hs
@@ -64,6 +64,7 @@ import           Test.Util.Orphans.IOLike ()
 import           Test.Util.Range
 import           Test.Util.TestEnv (adjustQuickCheckTests)
 import           Test.Util.Time
+import Control.DeepSeq
 
 tests :: TestTree
 tests = testGroup "WallClock" [
@@ -339,7 +340,7 @@ testOverrideDelay systemStart slotLength maxClockRewind numSlots = do
       withWatcher
         "testOverrideDelay"
         ( knownSlotWatcher btime $ \slotNo -> do
-            atomically $ modifyTVar slotsVar (slotNo :)
+            atomically $ modifyTVar slotsVar $ force . (slotNo :)
         ) $ do
         -- Wait to collect the required number of slots
         atomically $ do