blob: eb598c03d7aa744f62991a12e97118f76628bb64 (
plain)
1
2
3
4
5
6
7
8
|
module TH_spliceE5_prof_ext_Lib where
import Language.Haskell.TH
expandVars :: [String] -> Q Exp
expandVars s = [| concat $(return (ListE (map f s))) |]
where
f x = VarE (mkName x)
|