diff options
author | Adam Gundry <adam@well-typed.com> | 2021-02-05 22:19:59 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-10 10:33:36 -0500 |
commit | d095954bc9dfcee9f3094bc4994b3a69df8f409d (patch) | |
tree | 02441eadf289f20d7a29fcbafea99f37b4e60e53 /testsuite/tests/overloadedrecflds/ghci | |
parent | afc357d269b6e1d56385220e78fe696c161e9bf7 (diff) | |
download | haskell-d095954bc9dfcee9f3094bc4994b3a69df8f409d.tar.gz |
Do not remove shadowed record selectors from interactive context (fixes #19322)
Diffstat (limited to 'testsuite/tests/overloadedrecflds/ghci')
-rw-r--r-- | testsuite/tests/overloadedrecflds/ghci/T19322.script | 5 | ||||
-rw-r--r-- | testsuite/tests/overloadedrecflds/ghci/T19322.stdout | 1 | ||||
-rw-r--r-- | testsuite/tests/overloadedrecflds/ghci/all.T | 1 |
3 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/overloadedrecflds/ghci/T19322.script b/testsuite/tests/overloadedrecflds/ghci/T19322.script new file mode 100644 index 0000000000..5a9e2c3407 --- /dev/null +++ b/testsuite/tests/overloadedrecflds/ghci/T19322.script @@ -0,0 +1,5 @@ +:set -XTypeApplications -XDataKinds +import GHC.Records +data X = X { name :: String } +data Y = Y { name :: String } +getField @"name" $ X "Tom" diff --git a/testsuite/tests/overloadedrecflds/ghci/T19322.stdout b/testsuite/tests/overloadedrecflds/ghci/T19322.stdout new file mode 100644 index 0000000000..11988ec731 --- /dev/null +++ b/testsuite/tests/overloadedrecflds/ghci/T19322.stdout @@ -0,0 +1 @@ +"Tom" diff --git a/testsuite/tests/overloadedrecflds/ghci/all.T b/testsuite/tests/overloadedrecflds/ghci/all.T index 7bddafd6fb..f0d2544c0e 100644 --- a/testsuite/tests/overloadedrecflds/ghci/all.T +++ b/testsuite/tests/overloadedrecflds/ghci/all.T @@ -2,3 +2,4 @@ test('duplicaterecfldsghci01', combined_output, ghci_script, ['duplicaterecfldsg test('overloadedlabelsghci01', combined_output, ghci_script, ['overloadedlabelsghci01.script']) test('T13438', [expect_broken(13438), combined_output], ghci_script, ['T13438.script']) test('GHCiDRF', [extra_files(['GHCiDRF.hs']), combined_output], ghci_script, ['GHCiDRF.script']) +test('T19322', combined_output, ghci_script, ['T19322.script']) |