73707ed5659d22a5ccda3e2e7b9d8b162f6ad5e7
[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 ShouldCompile where
6
7 f x = []
8
9 g x = (f [],[],[],[])
10
11 h x = g (1::Int)