testsuite/tests/profiling/should_run/staticcallstack001.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Main where

import GHC.InfoProv

data D = D Int deriving Show

ff = id (D 5)
{-# NOINLINE ff #-}
{-# NOINLINE qq #-}

qq x = D x

caf = D 5

main = do
  print =<< whereFrom (D 5)
  print =<< whereFrom caf
  print =<< whereFrom (id (D 5))