[project @ 2001-06-01 14:33:01 by sewardj]
[ghc-hetmet.git] / ghc / tests / typecheck / should_fail / tcfail031.hs
1 module ShouldFail where
2
3 f x = if 'a' then 1 else 2