diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-05-02 07:42:16 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-05 10:39:24 -0400 |
| commit | ead3f835e24338fb3df3ebdec3e86f9364df7c9c (patch) | |
| tree | ed2cf60147ab36711391191cb4308cd5e0615650 /testsuite/tests/parser | |
| parent | 615b4be66341edb513785d3511e71803c45da90f (diff) | |
| download | haskell-ead3f835e24338fb3df3ebdec3e86f9364df7c9c.tar.gz | |
'warnSpaceAfterBang' only in patterns (#16619)
Diffstat (limited to 'testsuite/tests/parser')
| -rw-r--r-- | testsuite/tests/parser/should_compile/T16619.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/parser/should_compile/T16619a.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/parser/should_compile/all.T | 1 |
3 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/parser/should_compile/T16619.hs b/testsuite/tests/parser/should_compile/T16619.hs new file mode 100644 index 0000000000..296e23cc9a --- /dev/null +++ b/testsuite/tests/parser/should_compile/T16619.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE TemplateHaskell #-} +{-# OPTIONS -Wmissing-space-after-bang #-} + +module T16619 where + +import T16619a + +1!2 diff --git a/testsuite/tests/parser/should_compile/T16619a.hs b/testsuite/tests/parser/should_compile/T16619a.hs new file mode 100644 index 0000000000..e1af0d3ae6 --- /dev/null +++ b/testsuite/tests/parser/should_compile/T16619a.hs @@ -0,0 +1,3 @@ +module T16619a where + +(!) _ _ = return [] diff --git a/testsuite/tests/parser/should_compile/all.T b/testsuite/tests/parser/should_compile/all.T index 1c5c225d65..4fdc359f13 100644 --- a/testsuite/tests/parser/should_compile/all.T +++ b/testsuite/tests/parser/should_compile/all.T @@ -142,3 +142,4 @@ test('T15457', normal, compile, ['']) test('T15675', normal, compile, ['']) test('T15781', normal, compile, ['']) test('T16339', normal, compile, ['']) +test('T16619', [], multimod_compile, ['T16619', '-v0']) |