[commit: ghc] master: Test Trac #10248 (fa0bdd3)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/fa0bdd3d6e1fa7bca044ee13b84f6aeeacbe50e2/ghc

>---------------------------------------------------------------

commit fa0bdd3d6e1fa7bca044ee13b84f6aeeacbe50e2
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed May 13 17:11:46 2015 +0100

    Test Trac #10248


>---------------------------------------------------------------

fa0bdd3d6e1fa7bca044ee13b84f6aeeacbe50e2
 testsuite/tests/ghci/scripts/T10248.script |  2 ++
 testsuite/tests/ghci/scripts/T10248.stderr | 18 ++++++++++++++++++
 testsuite/tests/ghci/scripts/all.T         |  1 +
 3 files changed, 21 insertions(+)

diff --git a/testsuite/tests/ghci/scripts/T10248.script b/testsuite/tests/ghci/scripts/T10248.script
new file mode 100644
index 0000000..6614044
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T10248.script
@@ -0,0 +1,2 @@
+:set -fdefer-type-errors
+Just <$> _
diff --git a/testsuite/tests/ghci/scripts/T10248.stderr b/testsuite/tests/ghci/scripts/T10248.stderr
new file mode 100644
index 0000000..1245b99
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T10248.stderr
@@ -0,0 +1,18 @@
+
+<interactive>:3:10: warning:
+    Found hole ‘_’ with type: IO ()
+    In the second argument of ‘(<$>)’, namely ‘_’
+    In the first argument of ‘ghciStepIO ::
+                                IO a_alT -> IO a_alT’, namely
+      ‘Just <$> _’
+    In a stmt of an interactive GHCi command:
+      it <- ghciStepIO :: IO a_alT -> IO a_alT (Just <$> _)
+*** Exception: <interactive>:3:10: error:
+    Found hole ‘_’ with type: IO ()
+    In the second argument of ‘(<$>)’, namely ‘_’
+    In the first argument of ‘ghciStepIO ::
+                                IO a_alT -> IO a_alT’, namely
+      ‘Just <$> _’
+    In a stmt of an interactive GHCi command:
+      it <- ghciStepIO :: IO a_alT -> IO a_alT (Just <$> _)
+(deferred type error)
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 1582344..85ba5af 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -216,3 +216,4 @@ test('T10408A', normal, run_command,
     ['$MAKE -s --no-print-directory T10408A'])
 test('T10408B', normal, run_command,
     ['$MAKE -s --no-print-directory T10408B'])
+test('T10248', normal, ghci_script, ['T10248.script'])