testsuite/tests/profiling/should_run/scc001.hs


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


module Main (main) where

main :: IO ()
main = do print $ f True
          print $ g 3
          print $ h 'a'

f :: a -> a
f x = x

g :: Int -> Int
g x = x

h :: Char -> Char
Just h = Just id