diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2018-10-04 18:13:28 -0400 |
|---|---|---|
| committer | Ryan Scott <ryan.gl.scott@gmail.com> | 2018-10-04 18:13:29 -0400 |
| commit | 251e3424a96986fca5164a2397783a1c066558fc (patch) | |
| tree | 071158649a5071ff1ddadd0d7aa0b84b3cff9dac /testsuite | |
| parent | ba163c3b3502df039e589c5bb0bc9ea767267b2a (diff) | |
| download | haskell-251e3424a96986fca5164a2397783a1c066558fc.tar.gz | |
Set `infixr -1 ->`
Summary:
This simply makes explicit what is already the case. Due to special
treatment in the parser, `->` has the lowest fixity. This patch propagates
that information to:
* GHCi, where `:info ->` now return the right fixity
* TH, where `reifyFixity` returns the right fixity
* the generated sources for `GHC.Prim`
See #15235.
Test Plan: make test
Reviewers: bgamari, alanz, RyanGlScott
Reviewed By: RyanGlScott
Subscribers: int-index, RyanGlScott, rwbarton, mpickering, carter
GHC Trac Issues: #15235
Differential Revision: https://phabricator.haskell.org/D5199
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8535.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/ghci020.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci/should_run/T10145.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/th/T10704.stdout | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/ghci/scripts/T8535.stdout b/testsuite/tests/ghci/scripts/T8535.stdout index 6ae0c4ccfe..a0a5730d2b 100644 --- a/testsuite/tests/ghci/scripts/T8535.stdout +++ b/testsuite/tests/ghci/scripts/T8535.stdout @@ -1,5 +1,5 @@ data (->) (a :: TYPE q) (b :: TYPE r) -- Defined in ‘GHC.Prim’ -infixr 0 -> +infixr -1 -> instance Applicative ((->) a) -- Defined in ‘GHC.Base’ instance Functor ((->) r) -- Defined in ‘GHC.Base’ instance Monad ((->) r) -- Defined in ‘GHC.Base’ diff --git a/testsuite/tests/ghci/scripts/ghci020.stdout b/testsuite/tests/ghci/scripts/ghci020.stdout index 6ae0c4ccfe..a0a5730d2b 100644 --- a/testsuite/tests/ghci/scripts/ghci020.stdout +++ b/testsuite/tests/ghci/scripts/ghci020.stdout @@ -1,5 +1,5 @@ data (->) (a :: TYPE q) (b :: TYPE r) -- Defined in ‘GHC.Prim’ -infixr 0 -> +infixr -1 -> instance Applicative ((->) a) -- Defined in ‘GHC.Base’ instance Functor ((->) r) -- Defined in ‘GHC.Base’ instance Monad ((->) r) -- Defined in ‘GHC.Base’ diff --git a/testsuite/tests/ghci/should_run/T10145.stdout b/testsuite/tests/ghci/should_run/T10145.stdout index 6ae0c4ccfe..a0a5730d2b 100644 --- a/testsuite/tests/ghci/should_run/T10145.stdout +++ b/testsuite/tests/ghci/should_run/T10145.stdout @@ -1,5 +1,5 @@ data (->) (a :: TYPE q) (b :: TYPE r) -- Defined in ‘GHC.Prim’ -infixr 0 -> +infixr -1 -> instance Applicative ((->) a) -- Defined in ‘GHC.Base’ instance Functor ((->) r) -- Defined in ‘GHC.Base’ instance Monad ((->) r) -- Defined in ‘GHC.Base’ diff --git a/testsuite/tests/th/T10704.stdout b/testsuite/tests/th/T10704.stdout index 99b87e28a1..5d6d0156f7 100644 --- a/testsuite/tests/th/T10704.stdout +++ b/testsuite/tests/th/T10704.stdout @@ -1,4 +1,4 @@ -Just (Fixity 0 InfixR) +Just (Fixity (-1) InfixR) Nothing Nothing Just (Fixity 6 InfixL) |