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