WallClock test: allow for thunks in []

This was failing the tests with thunk checking enabled (`-fchecktvarinvariant`).
IntersectMBO · Feb 10, 2020 · 2c9c10c · 2c9c10c
1 parent 93ec1db
commit 2c9c10c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ouroboros-consensus/test-consensus/Test/Consensus/BlockchainTime/WallClock.hs b/ouroboros-consensus/test-consensus/Test/Consensus/BlockchainTime/WallClock.hs
@@ -271,7 +271,7 @@ testOverrideDelay systemStart slotLength numSlots = do
                 nullTracer
                 systemStart
                 (focusSlotLengths $ singletonSlotLengths slotLength)
-      slotsVar <- newTVarM []
+      slotsVar <- uncheckedNewTVarM []
       cancelCollection <- onSlotChange time $ \slotNo ->
         atomically $ modifyTVar slotsVar (slotNo :)
       -- Wait to collect the required number of slots