testsuite/tests/codeGen/should_run/cgrun002.hs


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

main = print ((f id2) (10 + thirty_two))
  where
    f x = g x
      where
        g x = h x
          where
            h x = x

    thirty_two :: Int
    thirty_two = 32

id2 x = x