diff options
Diffstat (limited to 'testsuite/tests/overloadedrecflds/ghci')
-rw-r--r-- | testsuite/tests/overloadedrecflds/ghci/GHCiDRF.stdout | 26 | ||||
-rw-r--r-- | testsuite/tests/overloadedrecflds/ghci/duplicaterecfldsghci01.stdout | 8 |
2 files changed, 18 insertions, 16 deletions
diff --git a/testsuite/tests/overloadedrecflds/ghci/GHCiDRF.stdout b/testsuite/tests/overloadedrecflds/ghci/GHCiDRF.stdout index 4d4e5817d9..f68331068f 100644 --- a/testsuite/tests/overloadedrecflds/ghci/GHCiDRF.stdout +++ b/testsuite/tests/overloadedrecflds/ghci/GHCiDRF.stdout @@ -1,10 +1,10 @@ GHCiDRF.foo :: T -> Int <interactive>:1:1: error: [GHC-87543] - Ambiguous occurrence ‘GHCiDRF.bar’ + Ambiguous occurrence ‘GHCiDRF.bar’. It could refer to - either the field ‘bar’ of record ‘T’, defined at GHCiDRF.hs:3:28 - or the field ‘bar’ of record ‘U’, defined at GHCiDRF.hs:4:16 + either the field ‘bar’ of record ‘T’, defined at GHCiDRF.hs:3:28, + or the field ‘bar’ of record ‘U’, defined at GHCiDRF.hs:4:16. type T :: * data T = MkT {foo :: Int, ...} -- Defined at GHCiDRF.hs:3:16 @@ -18,14 +18,14 @@ data U = MkU {bar :: Bool} GHCiDRF.foo :: GHCiDRF.T -> Int <interactive>:1:1: error: [GHC-87543] - Ambiguous occurrence ‘GHCiDRF.bar’ + Ambiguous occurrence ‘GHCiDRF.bar’. It could refer to - either the field ‘bar’, + either the field ‘bar’ belonging to data constructor ‘MkT’, imported qualified from ‘GHCiDRF’ - (and originally defined at GHCiDRF.hs:3:28-30) - or the field ‘bar’, + (and originally defined at GHCiDRF.hs:3:28-30), + or the field ‘bar’ belonging to data constructor ‘MkU’, imported qualified from ‘GHCiDRF’ - (and originally defined at GHCiDRF.hs:4:16-18) + (and originally defined at GHCiDRF.hs:4:16-18). type GHCiDRF.T :: * data GHCiDRF.T = GHCiDRF.MkT {GHCiDRF.foo :: Int, ...} -- Defined at GHCiDRF.hs:3:16 @@ -38,11 +38,11 @@ data GHCiDRF.U = GHCiDRF.MkU {GHCiDRF.bar :: Bool} -- Defined at GHCiDRF.hs:4:16 <interactive>:11:1: error: [GHC-87543] - Ambiguous occurrence ‘GHCiDRF.bar’ + Ambiguous occurrence ‘GHCiDRF.bar’. It could refer to - either the field ‘bar’, + either the field ‘bar’ belonging to data constructor ‘MkT’, imported qualified from ‘GHCiDRF’ - (and originally defined at GHCiDRF.hs:3:28-30) - or the field ‘bar’, + (and originally defined at GHCiDRF.hs:3:28-30), + or the field ‘bar’ belonging to data constructor ‘MkU’, imported qualified from ‘GHCiDRF’ - (and originally defined at GHCiDRF.hs:4:16-18) + (and originally defined at GHCiDRF.hs:4:16-18). diff --git a/testsuite/tests/overloadedrecflds/ghci/duplicaterecfldsghci01.stdout b/testsuite/tests/overloadedrecflds/ghci/duplicaterecfldsghci01.stdout index c1bb4c99f0..c13d87bb8e 100644 --- a/testsuite/tests/overloadedrecflds/ghci/duplicaterecfldsghci01.stdout +++ b/testsuite/tests/overloadedrecflds/ghci/duplicaterecfldsghci01.stdout @@ -9,10 +9,12 @@ data T a = MkT {foo :: Bool, ...} True <interactive>:1:1: error: [GHC-87543] - Ambiguous occurrence ‘foo’ + Ambiguous occurrence ‘foo’. It could refer to - either the field ‘foo’ of record ‘S’, defined at <interactive>:3:16 - or the field ‘foo’ of record ‘T’, defined at <interactive>:4:18 + either the field ‘foo’ of record ‘S’, + defined at <interactive>:3:16, + or the field ‘foo’ of record ‘T’, + defined at <interactive>:4:18. type U :: * data U = MkU {foo :: Int} -- Defined at <interactive>:12:16 |