diff options
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/th/T18121.hs | 7 | ||||
-rw-r--r-- | testsuite/tests/th/all.T | 1 |
2 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/th/T18121.hs b/testsuite/tests/th/T18121.hs new file mode 100644 index 0000000000..f9efdf378b --- /dev/null +++ b/testsuite/tests/th/T18121.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE TemplateHaskell #-} +module Bug where + +import Language.Haskell.TH + +sapply :: Q (TExp (a -> b)) -> Q (TExp a) -> Q (TExp b) +sapply cf cx = [|| $$cf $$cx ||] diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 8e747cbefa..af0774d0a9 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -506,3 +506,4 @@ test('T18097', normal, compile, ['']) test('TH_PprStar', normal, compile, ['-v0 -dsuppress-uniques']) test('TH_StringLift', normal, compile, ['']) test('TH_BytesShowEqOrd', normal, compile_and_run, ['']) +test('T18121', normal, compile, ['']) |