1{-# LANGUAGE TemplateHaskell #-} 2module TH_spliceE5_prof_ext_Lib where 3 4import Language.Haskell.TH 5 6expandVars :: [String] -> Q Exp 7expandVars s = [| concat $(return (ListE (map f s))) |] 8 where 9 f x = VarE (mkName x) 10 11