diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2015-04-02 11:28:03 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-04-02 11:28:17 +0200 |
| commit | 0721e552b863c28ffb5920c70b208947831c3dc2 (patch) | |
| tree | 9e90fc0a146e02ef5033d85c937f60e4b8da0cf1 /testsuite | |
| parent | f15dbc22545964f301c736dba198da643690b5a0 (diff) | |
| download | haskell-0721e552b863c28ffb5920c70b208947831c3dc2.tar.gz | |
Fake (->) fixity declaration (#10145)
Reviewed By: simonpj, austin
Differential Revision: https://phabricator.haskell.org/D741
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8535.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/ghci020.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/ghci/should_run/T10145.script | 1 | ||||
| -rw-r--r-- | testsuite/tests/ghci/should_run/T10145.stdout | 6 | ||||
| -rw-r--r-- | testsuite/tests/ghci/should_run/all.T | 1 |
5 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T8535.stdout b/testsuite/tests/ghci/scripts/T8535.stdout index 749a244f1f..2f35e23a77 100644 --- a/testsuite/tests/ghci/scripts/T8535.stdout +++ b/testsuite/tests/ghci/scripts/T8535.stdout @@ -1,4 +1,5 @@ data (->) a b -- Defined in ‘GHC.Prim’ +infixr 0 `(->)` instance Monad ((->) r) -- Defined in ‘GHC.Base’ instance Functor ((->) r) -- Defined in ‘GHC.Base’ instance Applicative ((->) a) -- Defined in ‘GHC.Base’ diff --git a/testsuite/tests/ghci/scripts/ghci020.stdout b/testsuite/tests/ghci/scripts/ghci020.stdout index 749a244f1f..2f35e23a77 100644 --- a/testsuite/tests/ghci/scripts/ghci020.stdout +++ b/testsuite/tests/ghci/scripts/ghci020.stdout @@ -1,4 +1,5 @@ data (->) a b -- Defined in ‘GHC.Prim’ +infixr 0 `(->)` instance Monad ((->) r) -- Defined in ‘GHC.Base’ instance Functor ((->) r) -- Defined in ‘GHC.Base’ instance Applicative ((->) a) -- Defined in ‘GHC.Base’ diff --git a/testsuite/tests/ghci/should_run/T10145.script b/testsuite/tests/ghci/should_run/T10145.script new file mode 100644 index 0000000000..6fdfb52def --- /dev/null +++ b/testsuite/tests/ghci/should_run/T10145.script @@ -0,0 +1 @@ +:i (->) diff --git a/testsuite/tests/ghci/should_run/T10145.stdout b/testsuite/tests/ghci/should_run/T10145.stdout new file mode 100644 index 0000000000..2f35e23a77 --- /dev/null +++ b/testsuite/tests/ghci/should_run/T10145.stdout @@ -0,0 +1,6 @@ +data (->) a b -- Defined in ‘GHC.Prim’ +infixr 0 `(->)` +instance Monad ((->) r) -- Defined in ‘GHC.Base’ +instance Functor ((->) r) -- Defined in ‘GHC.Base’ +instance Applicative ((->) a) -- Defined in ‘GHC.Base’ +instance Monoid b => Monoid (a -> b) -- Defined in ‘GHC.Base’ diff --git a/testsuite/tests/ghci/should_run/all.T b/testsuite/tests/ghci/should_run/all.T index b28e4a3893..cd5b1f2dcf 100644 --- a/testsuite/tests/ghci/should_run/all.T +++ b/testsuite/tests/ghci/should_run/all.T @@ -22,3 +22,4 @@ test('ghcirun004', just_ghci, compile_and_run, ['']) test('T8377', just_ghci, compile_and_run, ['']) test('T9914', just_ghci, ghci_script, ['T9914.script']) test('T9915', just_ghci, ghci_script, ['T9915.script']) +test('T10145', just_ghci, ghci_script, ['T10145.script']) |