diff options
| author | Eric Seidel <gridaphobe@gmail.com> | 2015-12-02 14:37:21 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2015-12-02 14:38:58 -0600 |
| commit | a12e47bed74e305b37e68014c52feba3dd075514 (patch) | |
| tree | 197e6cd47d6b3b97a10f32c64e70b334263b3bb7 /testsuite/tests/warnings | |
| parent | d4d54b463ef73a577054e9ed1dfce5044072bce7 (diff) | |
| download | haskell-a12e47bed74e305b37e68014c52feba3dd075514.tar.gz | |
Avoid panic due to partial ieName
HsImpExp.ieName is partial and fails when given e.g. `module X`
solution: use ieNames instead which returns a list of names instead of a single name.
Reviewed By: bgamari, austin
Differential Revision: https://phabricator.haskell.org/D1551
GHC Trac Issues: #11077
Diffstat (limited to 'testsuite/tests/warnings')
| -rw-r--r-- | testsuite/tests/warnings/should_compile/T11077.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/warnings/should_compile/T11077.stderr | 3 | ||||
| -rw-r--r-- | testsuite/tests/warnings/should_compile/all.T | 1 |
3 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/warnings/should_compile/T11077.hs b/testsuite/tests/warnings/should_compile/T11077.hs new file mode 100644 index 0000000000..76533cb950 --- /dev/null +++ b/testsuite/tests/warnings/should_compile/T11077.hs @@ -0,0 +1,3 @@ +module T11077 (module X, foo) where +import Data.List as X +foo = undefined diff --git a/testsuite/tests/warnings/should_compile/T11077.stderr b/testsuite/tests/warnings/should_compile/T11077.stderr new file mode 100644 index 0000000000..3cb2cba2d0 --- /dev/null +++ b/testsuite/tests/warnings/should_compile/T11077.stderr @@ -0,0 +1,3 @@ + +T11077.hs:3:1: warning: + Top-level binding with no type signature: foo :: forall t. t diff --git a/testsuite/tests/warnings/should_compile/all.T b/testsuite/tests/warnings/should_compile/all.T index 3954ba82e0..c2b8dd2274 100644 --- a/testsuite/tests/warnings/should_compile/all.T +++ b/testsuite/tests/warnings/should_compile/all.T @@ -4,6 +4,7 @@ test('T9178', extra_clean(['T9178.o', 'T9178DataType.o', 'T9178.hi', 'T9178DataType.hi']), multimod_compile, ['T9178', '-Wall']) test('T9230', normal, compile_without_flag('-fno-warn-tabs'), ['']) +test('T11077', normal, compile, ['-fwarn-missing-exported-sigs']) test('T11128', normal, compile, ['']) test('DeprU', |