[project @ 1999-06-15 10:23:38 by simonmar]
[ghc-hetmet.git] / ghc / tests / deSugar / should_run / dsrun007.hs
1 data T = C Int
2
3 unpick (C i) = i + 1
4
5 main = print (unpick (C{}))