From 1e8c48386412ea5c75cbb0859df1cb895ee4c732 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Mon, 6 Jun 2022 11:19:16 +0200 Subject: Debug prints --- test/Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'test/Main.hs') diff --git a/test/Main.hs b/test/Main.hs index 90e5f90..8a0a81a 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -34,6 +34,7 @@ main = do gclog <- getGCLog when (length gclog == 0) $ fail "GC log was unexpectedly empty" + print gclog when (any ((< enabletm) . detTimestamp) gclog) $ do _ <- fail "Logging was already on before enableGClogging" print enabletm -- cgit v1.2.3-70-g09d2