projects / ghc-hetmet.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[project @ 1997-07-30 23:52:45 by sof]
[ghc-hetmet.git] / ghc / compiler / 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)