diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-03-16 14:46:18 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-03-16 14:46:18 +0000 |
| commit | 4feb0ead4611cf0be51a556ecd5321ab09ddd3e2 (patch) | |
| tree | bde90a8e2f893bc2e314bee6d30b1113b6c04580 /testsuite/tests/th | |
| parent | c4a89da5ce288c75c1cd75dd9fac64ca3cac8166 (diff) | |
| download | haskell-4feb0ead4611cf0be51a556ecd5321ab09ddd3e2.tar.gz | |
Test Trac #5833
Diffstat (limited to 'testsuite/tests/th')
| -rw-r--r-- | testsuite/tests/th/T5883.hs | 12 | ||||
| -rw-r--r-- | testsuite/tests/th/T5883.stderr | 12 | ||||
| -rw-r--r-- | testsuite/tests/th/all.T | 1 |
3 files changed, 25 insertions, 0 deletions
diff --git a/testsuite/tests/th/T5883.hs b/testsuite/tests/th/T5883.hs new file mode 100644 index 0000000000..c33cc69ab6 --- /dev/null +++ b/testsuite/tests/th/T5883.hs @@ -0,0 +1,12 @@ +{-# LANGUAGE TemplateHaskell #-} +{-# LANGUAGE TypeFamilies #-} +module T5883 where + +import Language.Haskell.TH + +$( [d| + data Unit = Unit + instance Show Unit where + show _ = "" + {-# INLINE show #-} + |]) diff --git a/testsuite/tests/th/T5883.stderr b/testsuite/tests/th/T5883.stderr new file mode 100644 index 0000000000..0b0f705823 --- /dev/null +++ b/testsuite/tests/th/T5883.stderr @@ -0,0 +1,12 @@ +T5883.hs:1:1: Splicing declarations + [d| data Unit = Unit + + instance Show Unit where + show _ = "" + {-# INLINE show #-} |] + ======> + T5883.hs:(7,4)-(12,4) + data Unit = Unit + instance Show Unit where + {-# INLINE show #-} + show _ = "" diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 0bff91ec34..7aae9a0ce4 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -221,4 +221,5 @@ test('T5700', extra_clean(['T5700a.hi','T5700a.o']), multimod_compile, ['T5700','-v0 -ddump-splices']) test('T5721', normal, compile, ['-v0']) test('T1541', normal, compile, ['-v0']) +test('T5883', normal, compile, ['-v0 -dsuppress-uniques -ddump-splices']) |