Fix #11287.
[ghc.git] / testsuite / tests / th / TH_spliceE5_prof_ext_Lib.hs
1 module TH_spliceE5_prof_ext_Lib where
2
3 import Language.Haskell.TH
4
5 expandVars :: [String] -> Q Exp
6 expandVars s = [| concat $(return (ListE (map f s))) |]
7 where
8 f x = VarE (mkName x)