diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2022-04-21 00:28:51 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2022-04-21 00:28:51 +0200 |
| commit | e6ca9f166c5af915946bb8ae5ed7e5a42f40b8bd (patch) | |
| tree | f7f6af4edca512c2a6de0aed094aec5d5d10582f /test | |
Initial
Diffstat (limited to 'test')
| -rw-r--r-- | test/Main.hs | 14 |
1 files changed, 14 insertions, 0 deletions
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 |