ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/TH_spliceE5_prof_ext_Lib.1.hs

{-# LANGUAGE TemplateHaskellQuotes #-}
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)