[project @ 2000-09-14 12:12:23 by simonpj]
[ghc-hetmet.git] / ghc / tests / typecheck / should_compile / tc026.hs
1 module ShouldSucceed where
2
3 g x = f (f True x) x 
4 f x y = if x then y else (f x y)