[commit: ghc] master: Mark #12447's test case as expected to pass (6a9b9b4)

git at git.haskell.org git at git.haskell.org
Sat May 26 16:39:03 UTC 2018


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/6a9b9b431dcc94849d14c13639eb2f713e5aa1f4/ghc

>---------------------------------------------------------------

commit 6a9b9b431dcc94849d14c13639eb2f713e5aa1f4
Author: Ryan Scott <ryan.gl.scott at gmail.com>
Date:   Sat May 26 12:38:08 2018 -0400

    Mark #12447's test case as expected to pass
    
    This appears to have been fixed at some point between GHC 8.0 and
    8.2.


>---------------------------------------------------------------

6a9b9b431dcc94849d14c13639eb2f713e5aa1f4
 testsuite/tests/ghci/scripts/T12447.stdout | 4 ++--
 testsuite/tests/ghci/scripts/all.T         | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/testsuite/tests/ghci/scripts/T12447.stdout b/testsuite/tests/ghci/scripts/T12447.stdout
index 67bbc9b..6c469ee 100644
--- a/testsuite/tests/ghci/scripts/T12447.stdout
+++ b/testsuite/tests/ghci/scripts/T12447.stdout
@@ -1,3 +1,3 @@
 deferEither @(_ ~ _)
-  :: Deferrable (w2 ~ w1) =>
-     proxy (w2 ~ w1) -> (w2 ~ w1 => r) -> Either String r
+  :: (Typeable w1, Typeable w2) =>
+     proxy (w1 ~ w2) -> ((w1 ~ w2) => r) -> Either String r
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 06f1ec4..f4b4177 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -245,7 +245,7 @@ test('T12091', [extra_run_opts('-fobject-code')], ghci_script,
 test('T12523', normal, ghci_script, ['T12523.script'])
 test('T12024', normal, ghci_script, ['T12024.script'])
 test('T12158', expect_broken(12158), ghci_script, ['T12158.script'])
-test('T12447', expect_broken(12447), ghci_script, ['T12447.script'])
+test('T12447', normal, ghci_script, ['T12447.script'])
 test('T10249', normal, ghci_script, ['T10249.script'])
 test('T12550', normal, ghci_script, ['T12550.script'])
 test('StaticPtr', normal, ghci_script, ['StaticPtr.script'])



More information about the ghc-commits mailing list