diff options
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/parser/should_compile/T7476/T7476.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/parser/should_compile/T7476/T7476.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/T2993.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/rename/should_fail/T2993.stderr | 2 | ||||
| -rw-r--r-- | testsuite/tests/th/T10019.stdout | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/parser/should_compile/T7476/T7476.hs b/testsuite/tests/parser/should_compile/T7476/T7476.hs index 34ac453752..48f2f1e734 100644 --- a/testsuite/tests/parser/should_compile/T7476/T7476.hs +++ b/testsuite/tests/parser/should_compile/T7476/T7476.hs @@ -1,2 +1,2 @@ import Control.Applicative -main = show <$> pure 1 >>= print +main = (pure 1 >>= print) <**> pure show diff --git a/testsuite/tests/parser/should_compile/T7476/T7476.stdout b/testsuite/tests/parser/should_compile/T7476/T7476.stdout index f6e15d592e..a66ff2f16a 100644 --- a/testsuite/tests/parser/should_compile/T7476/T7476.stdout +++ b/testsuite/tests/parser/should_compile/T7476/T7476.stdout @@ -1 +1 @@ -import Control.Applicative ( (<$>) ) +import Control.Applicative ( (<**>) ) diff --git a/testsuite/tests/rename/should_fail/T2993.hs b/testsuite/tests/rename/should_fail/T2993.hs index 99f2a89ca1..d5de095461 100644 --- a/testsuite/tests/rename/should_fail/T2993.hs +++ b/testsuite/tests/rename/should_fail/T2993.hs @@ -4,5 +4,5 @@ module T2993 where -foo b a = a <$> b . b +foo b a = a <**> b . b diff --git a/testsuite/tests/rename/should_fail/T2993.stderr b/testsuite/tests/rename/should_fail/T2993.stderr index 907a03447b..144ebffccf 100644 --- a/testsuite/tests/rename/should_fail/T2993.stderr +++ b/testsuite/tests/rename/should_fail/T2993.stderr @@ -1,4 +1,4 @@ T2993.hs:7:13: - Not in scope: ‘<$>’ + Not in scope: ‘<**>’ Perhaps you meant ‘<*>’ (imported from Prelude) diff --git a/testsuite/tests/th/T10019.stdout b/testsuite/tests/th/T10019.stdout index 777ff3b045..350338c779 100644 --- a/testsuite/tests/th/T10019.stdout +++ b/testsuite/tests/th/T10019.stdout @@ -1 +1 @@ -"DataConI Ghci1.Some (ForallT [KindedTV a_1627391548 StarT] [] (AppT (AppT ArrowT (VarT a_1627391548)) (AppT (ConT Ghci1.Option) (VarT a_1627391548)))) Ghci1.Option (Fixity 9 InfixL)" +"DataConI Ghci1.Some (ForallT [KindedTV a_1627391549 StarT] [] (AppT (AppT ArrowT (VarT a_1627391549)) (AppT (ConT Ghci1.Option) (VarT a_1627391549)))) Ghci1.Option (Fixity 9 InfixL)" |