testsuite/tests/ghci/should_run/T8377.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{-# LANGUAGE MagicHash #-}
import System.Mem
import GHC.Base

main = do
  let list = concatMap buildThunk [0..10000]
  length list `seq` performGC
  print $ last list

buildThunk :: Int -> [Int]
buildThunk (I# k) = [f k]

f :: Int# -> Int
f x = I# x