From 6a9b9b431dcc94849d14c13639eb2f713e5aa1f4 Mon Sep 17 00:00:00 2001
From: Ryan Scott <ryan.gl.scott@gmail.com>
Date: Sat, 26 May 2018 12:38:08 -0400
Subject: [PATCH] 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.
---
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 67bbc9bcc709..6c469eeef328 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 06f1ec48759d..f4b41772d59c 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'])
--
GitLab