diff options
Diffstat (limited to 'testsuite/tests/deSugar/should_compile')
-rw-r--r-- | testsuite/tests/deSugar/should_compile/T13290.hs | 7 | ||||
-rw-r--r-- | testsuite/tests/deSugar/should_compile/T13290.stderr | 4 | ||||
-rw-r--r-- | testsuite/tests/deSugar/should_compile/all.T | 1 |
3 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/deSugar/should_compile/T13290.hs b/testsuite/tests/deSugar/should_compile/T13290.hs new file mode 100644 index 0000000000..9c722258bd --- /dev/null +++ b/testsuite/tests/deSugar/should_compile/T13290.hs @@ -0,0 +1,7 @@ +module T13290 where + +data Foo = Bar Int Char | Baz Char + +{-# RULES +"BarBaz" Bar 0 'a' = Baz 'b' + #-} diff --git a/testsuite/tests/deSugar/should_compile/T13290.stderr b/testsuite/tests/deSugar/should_compile/T13290.stderr new file mode 100644 index 0000000000..dd5bceeb37 --- /dev/null +++ b/testsuite/tests/deSugar/should_compile/T13290.stderr @@ -0,0 +1,4 @@ + +T13290.hs:6:1: warning: + A constructor, Bar, appears as outermost match in RULE lhs. + This rule will be ignored. diff --git a/testsuite/tests/deSugar/should_compile/all.T b/testsuite/tests/deSugar/should_compile/all.T index 24b95a0112..7694fb9de7 100644 --- a/testsuite/tests/deSugar/should_compile/all.T +++ b/testsuite/tests/deSugar/should_compile/all.T @@ -96,3 +96,4 @@ test('T12944', normal, compile, ['']) test('T12950', normal, compile, ['']) test('T13043', normal, compile, ['']) test('T13215', normal, compile, ['']) +test('T13290', normal, compile, ['']) |