d5fc1300f37cf3ef3be488bb97095bf04f1e123b
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds037.hs
1 -- !!! AbsBinds with tyvars, no dictvars, but some dict binds
2 --
3 module ShouldCompile where
4
5 f x y = (fst (g y x), x+(1::Int))
6 g x y = (fst (f x y), y+(1::Int))