Testsuite error message changes

1 files changed, 4 insertions, 8 deletions

diff --git a/testsuite/tests/rebindable/rebindable6.stderr b/testsuite/tests/rebindable/rebindable6.stderr
index 4d22904d6e..a02563f3ca 100644
--- a/testsuite/tests/rebindable/rebindable6.stderr
+++ b/testsuite/tests/rebindable/rebindable6.stderr
@@ -23,16 +23,12 @@ rebindable6.hs:106:17:
                  return b }
 
 rebindable6.hs:107:17:
-    No instance for (HasBind (IO (Maybe b) -> (Maybe b -> t1) -> t0))
+    No instance for (HasFail ([Prelude.Char] -> t1))
       arising from a do statement
-    The type variables ‘t0’, ‘t1’ are ambiguous
-    Relevant bindings include
-      g :: IO (Maybe b) (bound at rebindable6.hs:104:19)
-      test_do :: IO a -> IO (Maybe b) -> IO b
-        (bound at rebindable6.hs:104:9)
+    The type variable ‘t1’ is ambiguous
     Note: there is a potential instance available:
-      instance HasBind (IO a -> (a -> IO b) -> IO b)
-        -- Defined at rebindable6.hs:47:18
+      instance HasFail (String -> IO a)
+        -- Defined at rebindable6.hs:57:18
     In a stmt of a 'do' block: Just (b :: b) <- g
     In the expression:
       do { f;