diff options
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/th/T9084.hs | 10 | ||||
-rw-r--r-- | testsuite/tests/th/T9084.stderr | 2 | ||||
-rw-r--r-- | testsuite/tests/th/all.T | 1 |
3 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/th/T9084.hs b/testsuite/tests/th/T9084.hs new file mode 100644 index 0000000000..6b1fe0dd26 --- /dev/null +++ b/testsuite/tests/th/T9084.hs @@ -0,0 +1,10 @@ +{-# LANGUAGE TemplateHaskell #-} + +module T9084 where + +$([d| + class C a where + meth :: a -> a + meth = undefined -- give a (silly) default + {-# MINIMAL meth #-} + |]) diff --git a/testsuite/tests/th/T9084.stderr b/testsuite/tests/th/T9084.stderr new file mode 100644 index 0000000000..ad90d1bd9c --- /dev/null +++ b/testsuite/tests/th/T9084.stderr @@ -0,0 +1,2 @@ + +T9084.hs:5:3: MINIMAL pragmas not (yet) handled by Template Haskell diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 28ae4fb486..d6aaa84ef5 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -333,3 +333,4 @@ test('T9262', normal, compile, ['-v0']) test('T9199', normal, compile, ['-v0']) test('T9692', normal, compile, ['-v0']) test('T8953', normal, compile, ['-v0']) +test('T9084', normal, compile_fail, ['-v0']) |