1264d13d8fcc722bb85b4992e6cab074ceb8b973
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds008.hs
1 --!!! ds008 -- free tyvars on RHSs
2 --
3 -- these tests involve way-cool TyApps
4
5 module Test where
6
7 f x = []
8
9 g x = (f [],[],[],[])
10
11 h x = g (1::Int)