summaryrefslogtreecommitdiff
path: root/ghc/compiler/ilxGen/tests/test5.hs
blob: 13d6028c02d90a541387b00eca72e4a678483518 (plain)
1
2
3
4
5
data One a = One a

choose (One x) = x
main = putStr (choose (One "hello world\n"))