From e6ca9f166c5af915946bb8ae5ed7e5a42f40b8bd Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Thu, 21 Apr 2022 00:28:51 +0200 Subject: Initial --- test/Main.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 test/Main.hs (limited to 'test/Main.hs') diff --git a/test/Main.hs b/test/Main.hs new file mode 100644 index 0000000..c813e48 --- /dev/null +++ b/test/Main.hs @@ -0,0 +1,14 @@ +module Main where + +import Control.Monad (forM_) + +import GHC.GC_Hook + + +main :: IO () +main = do + setGCHook + forM_ [1..10] $ \i -> do + let l = [i..10000] + print (sum l + product l + length l) + getGCLog >>= print -- cgit v1.2.3-54-g00ecf