projects / ghc-hetmet.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Deal correctly with infix type constructors in GADT decls
[ghc-hetmet.git] / compiler / ilxGen / tests / test8.hs
1 data Inf a = A (Inf a)
2
3 hd (A x) = x
4
5 choose (A (A x)) =  "hello world\n"
6 mk f = f (mk f)
7 main = putStr (choose (hd (mk A)))
8
Glasgow Haskell Compiler with heterogeneous metaprogramming (generalized arrows and modal types)