diff options
author | Ian Lynagh <igloo@earth.li> | 2008-08-25 14:15:17 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2008-08-25 14:15:17 +0000 |
commit | 2c5e45682e3838e26a91de8f6b0371ca95b8f23f (patch) | |
tree | 1ada0429ee9a0b1b3bafaee5d7cd9c44561cd6be /testsuite/tests/ghc-regress/th/TH_spliceE5_prof_Lib.hs | |
parent | 18cb779568bdfd0cbab267fdcb9720040d2e5990 (diff) | |
download | haskell-2c5e45682e3838e26a91de8f6b0371ca95b8f23f.tar.gz |
Fix TH_spliceE5 in the parallel testsuite
Diffstat (limited to 'testsuite/tests/ghc-regress/th/TH_spliceE5_prof_Lib.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/th/TH_spliceE5_prof_Lib.hs | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/th/TH_spliceE5_prof_Lib.hs b/testsuite/tests/ghc-regress/th/TH_spliceE5_prof_Lib.hs new file mode 100644 index 0000000000..627f117876 --- /dev/null +++ b/testsuite/tests/ghc-regress/th/TH_spliceE5_prof_Lib.hs @@ -0,0 +1,11 @@ +{-# OPTIONS -fglasgow-exts #-} + +module TH_spliceE5_prof_Lib where + +import Language.Haskell.TH + +expandVars :: [String] -> Q Exp +expandVars s = [| concat $(return (ListE (map f s))) |] + where + f x = VarE (mkName x) + |