diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-05-13 17:11:46 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-05-18 13:43:18 +0100 |
| commit | fa0bdd3d6e1fa7bca044ee13b84f6aeeacbe50e2 (patch) | |
| tree | a087f2e20d45c0d6e75598cdd7e7dc3f4fae10f5 /testsuite | |
| parent | f1f265df0742b7214f3b909190f5a171819392b5 (diff) | |
| download | haskell-fa0bdd3d6e1fa7bca044ee13b84f6aeeacbe50e2.tar.gz | |
Test Trac #10248
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T10248.script | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T10248.stderr | 18 | ||||
| -rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
3 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T10248.script b/testsuite/tests/ghci/scripts/T10248.script new file mode 100644 index 0000000000..6614044ad6 --- /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 0000000000..1245b994fd --- /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 1582344063..85ba5afe17 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']) |