diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-12-22 12:00:10 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-12-22 12:01:27 +0000 |
| commit | cf0a55d76cf945a97fc229b77d6e6177fb14125d (patch) | |
| tree | e8dd2f63799aa09c4c964c8043f6b17d9cfa7f12 /testsuite/tests/ghci | |
| parent | 2ba36b656f7f0522d702ae0cc92b5fbe289f1333 (diff) | |
| download | haskell-cf0a55d76cf945a97fc229b77d6e6177fb14125d.tar.gz | |
For :info, return all matching Names, rather than complaining about ambiguity
This fixes Trac #9881, and gives more helpful output in the case of ambiguity.
Certainly more helpful than the positively-misleading error we get right now.
Diffstat (limited to 'testsuite/tests/ghci')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T9881.script | 3 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T9881.stdout | 32 | ||||
| -rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
3 files changed, 36 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T9881.script b/testsuite/tests/ghci/scripts/T9881.script new file mode 100644 index 0000000000..30e1ef2489 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T9881.script @@ -0,0 +1,3 @@ +import Data.ByteString +import Data.ByteString.Lazy +:info ByteString diff --git a/testsuite/tests/ghci/scripts/T9881.stdout b/testsuite/tests/ghci/scripts/T9881.stdout new file mode 100644 index 0000000000..6866a6a79c --- /dev/null +++ b/testsuite/tests/ghci/scripts/T9881.stdout @@ -0,0 +1,32 @@ +data Data.ByteString.Lazy.ByteString + = Data.ByteString.Lazy.Internal.Empty + | Data.ByteString.Lazy.Internal.Chunk {-# UNPACK #-}Data.ByteString.ByteString + Data.ByteString.Lazy.ByteString + -- Defined in ‘Data.ByteString.Lazy.Internal’ +instance Eq Data.ByteString.Lazy.ByteString + -- Defined in ‘Data.ByteString.Lazy.Internal’ +instance Ord Data.ByteString.Lazy.ByteString + -- Defined in ‘Data.ByteString.Lazy.Internal’ +instance Read Data.ByteString.Lazy.ByteString + -- Defined in ‘Data.ByteString.Lazy.Internal’ +instance Show Data.ByteString.Lazy.ByteString + -- Defined in ‘Data.ByteString.Lazy.Internal’ +instance Monoid Data.ByteString.Lazy.ByteString + -- Defined in ‘Data.ByteString.Lazy.Internal’ + +data Data.ByteString.ByteString + = Data.ByteString.Internal.PS {-# UNPACK #-}(GHC.ForeignPtr.ForeignPtr + GHC.Word.Word8) + {-# UNPACK #-}Int + {-# UNPACK #-}Int + -- Defined in ‘Data.ByteString.Internal’ +instance Eq Data.ByteString.ByteString + -- Defined in ‘Data.ByteString.Internal’ +instance Ord Data.ByteString.ByteString + -- Defined in ‘Data.ByteString.Internal’ +instance Read Data.ByteString.ByteString + -- Defined in ‘Data.ByteString.Internal’ +instance Show Data.ByteString.ByteString + -- Defined in ‘Data.ByteString.Internal’ +instance Monoid Data.ByteString.ByteString + -- Defined in ‘Data.ByteString.Internal’ diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index a802027569..a78068a452 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -193,3 +193,4 @@ test('T9086b', normal, ghci_script, ['T9086b.script']) test('T9140', combined_output, ghci_script, ['T9140.script']) test('T9658', normal, ghci_script, ['T9658.script']) test('T9293', normal, ghci_script_without_flag('-fno-warn-tabs'), ['T9293.script']) +test('T9881', normal, ghci_script, ['T9881.script'])
\ No newline at end of file |