Fix #11287.
[ghc.git] / testsuite / tests / th / TH_ghci1.script
1 :m +Language.Haskell.TH
2 let { g1 :: Q Exp -> Q Exp; g1 x = x }
3 let { g2 :: Name -> Q Exp; g2 x = return (VarE x) }
4 let h x = x::Int
5 $(g1 [| h |]) 5
6 $(g2 'h) 6