[project @ 1999-03-16 12:36:15 by simonpj]
[ghc-hetmet.git] / ghc / tests / typecheck / should_compile / tc004.hs
1 module ShouldSucceed where
2
3 f x = case x of
4        True -> True
5        False -> x