projects / ghc-hetmet.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[project @ 1997-09-03 23:31:30 by sof]
[ghc-hetmet.git] / ghc / tests / typecheck / should_fail / tcfail006.hs
1 module ShouldFail where
2
3 (j,k) = case (if True then True else False) of
4          True -> (True,1)
5          False -> (1,True)
Glasgow Haskell Compiler with heterogeneous metaprogramming (generalized arrows and modal types)