diff options
| author | Malo Jaffré <jaffre.malo@gmail.com> | 2016-09-01 14:13:47 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-09-01 15:05:16 -0400 |
| commit | f233f00b1915ac6c0a200b8017a9f07deefd401e (patch) | |
| tree | 0dc9eaa34f6754564ef2869e67e3ce381ea766a8 /testsuite | |
| parent | b946cf3f5d6fd273a79b008472e8cb0ad1432be1 (diff) | |
| download | haskell-f233f00b1915ac6c0a200b8017a9f07deefd401e.tar.gz | |
Fix startsVarSym and refactor operator predicates (fixes #4239)
startsVarSym used isSymbol which does not recognize valid operators
beginning with OtherPunctuation generalCategory (e. g. (·)).
Move it to ghc-boot-th for reducing duplication.
This patch fixes template-haskell pretty printer, which is used by
-ddump-minimal-imports.
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2480
GHC Trac Issues: #4239
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/rename/should_compile/T4239.hs | 1 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_compile/T4239.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_compile/T4239A.hs | 1 |
3 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/rename/should_compile/T4239.hs b/testsuite/tests/rename/should_compile/T4239.hs index 5d4f94f857..02e4128382 100644 --- a/testsuite/tests/rename/should_compile/T4239.hs +++ b/testsuite/tests/rename/should_compile/T4239.hs @@ -12,3 +12,4 @@ v2 = X v3 :: (:+++) v3 = (:---) +v4 = (·) diff --git a/testsuite/tests/rename/should_compile/T4239.stdout b/testsuite/tests/rename/should_compile/T4239.stdout index 05536b7901..6e55a4ea26 100644 --- a/testsuite/tests/rename/should_compile/T4239.stdout +++ b/testsuite/tests/rename/should_compile/T4239.stdout @@ -1 +1 @@ -import T4239A ( type (:+++)((:---), X, (:+++)) ) +import T4239A ( type (:+++)((:---), X, (:+++)), (·) ) diff --git a/testsuite/tests/rename/should_compile/T4239A.hs b/testsuite/tests/rename/should_compile/T4239A.hs index ea92d9653b..076f4f2773 100644 --- a/testsuite/tests/rename/should_compile/T4239A.hs +++ b/testsuite/tests/rename/should_compile/T4239A.hs @@ -8,3 +8,4 @@ data (:+++) = (:+++) | X | Y +(·) = undefined |