1 files changed, 4 insertions, 2 deletions
diff --git a/testsuite/tests/rebindable/rebindable2.hs b/testsuite/tests/rebindable/rebindable2.hs
index 9fe15150f4..3858d2b9f3 100644
--- a/testsuite/tests/rebindable/rebindable2.hs
+++ b/testsuite/tests/rebindable/rebindable2.hs
@@ -8,7 +8,7 @@ module Main where
         import Prelude(String,undefined,Maybe(..),IO,putStrLn,
                 Integer,(++),Rational, (==), (>=) );
 
-        import Prelude(Monad(..),Applicative(..),Functor(..));
+        import Prelude(Monad(..),Applicative(..),Functor(..),MonadFail(..));
         import Control.Monad(ap, liftM);
 
         debugFunc :: String -> IO a -> IO a;
@@ -35,7 +35,9 @@ module Main where
                 (>>=) ma amb = MkTM (debugFunc ">>=" ((Prelude.>>=) (unTM ma) (\a -> unTM (amb a))));
 
                 (>>) ma mb = MkTM (debugFunc ">>" ((Prelude.>>) (unTM ma) (unTM mb)));
-
+                };
+        instance (MonadFail TM) where
+                {
                 fail s = MkTM (debugFunc "fail" (Prelude.return undefined));
                 };