From 2c9c10ca04dd93db9b1201a2c0811bf157583bfc Mon Sep 17 00:00:00 2001
From: Thomas Winant <thomas@well-typed.com>
Date: Mon, 10 Feb 2020 18:21:24 +0100
Subject: [PATCH] WallClock test: allow for thunks in []

This was failing the tests with thunk checking
enabled (`-fchecktvarinvariant`).
---
 .../test-consensus/Test/Consensus/BlockchainTime/WallClock.hs   | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ouroboros-consensus/test-consensus/Test/Consensus/BlockchainTime/WallClock.hs b/ouroboros-consensus/test-consensus/Test/Consensus/BlockchainTime/WallClock.hs
index 9f0387b53fc..a6362ddeaf8 100644
--- 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