libraries/ghc-heap/tests/closure_size_noopt.hs


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

import ClosureSizeUtils

pap :: Int -> Char -> Int
pap x _ = x
{-# NOINLINE pap #-}

main :: IO ()
main = do
  assertSize (id :: Int -> Int) 1
  assertSize (fst :: (Int,Int) -> Int) 1
  assertSize (pap 1) 2