diff options
| author | Richard Eisenberg <rae@richarde.dev> | 2020-09-29 14:25:51 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-01 18:37:23 -0400 |
| commit | ba5965eb10967d21b992aac925fb772db2ddde12 (patch) | |
| tree | 3d2b10cd802c6ce167857e161aae9561a5bcc06e | |
| parent | e3655f810b4eba1fb7d81a3227a08dae8b85dfc4 (diff) | |
| download | haskell-ba5965eb10967d21b992aac925fb772db2ddde12.tar.gz | |
Add regression test for #18755.
Close #18755
| -rw-r--r-- | testsuite/tests/ghci/scripts/T18755.script | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T18755.stdout | 3 | ||||
| -rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
3 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T18755.script b/testsuite/tests/ghci/scripts/T18755.script new file mode 100644 index 0000000000..5ee4e9bdf4 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T18755.script @@ -0,0 +1,2 @@ +:set -fprint-explicit-runtime-reps +:t ($) diff --git a/testsuite/tests/ghci/scripts/T18755.stdout b/testsuite/tests/ghci/scripts/T18755.stdout new file mode 100644 index 0000000000..c69cdfaf37 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T18755.stdout @@ -0,0 +1,3 @@ +($) + :: forall (r :: GHC.Types.RuntimeRep) a (b :: TYPE r). + (a -> b) -> a -> b diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index df859c6c3a..e3a84eb764 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -320,3 +320,4 @@ test('T17549', normal, ghci_script, ['T17549.script']) test('T17669', [extra_run_opts('-fexternal-interpreter -fobject-code'), expect_broken(17669)], ghci_script, ['T17669.script']) test('T18501', normal, ghci_script, ['T18501.script']) test('T18644', normal, ghci_script, ['T18644.script']) +test('T18755', normal, ghci_script, ['T18755.script']) |