X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Finterpreter%2Fhugs.c;h=2cef783e5bfdf5cfb00cf415267625b1eda3f871;hb=8111e8c5719e0b37a16f3895a2dfb083fd3abc1c;hp=13776b55d265c4845e3a330ca96c4b18cfc9c92f;hpb=668e01197062f70f91488345852c354d1abb5039;p=ghc-hetmet.git

diff --git a/ghc/interpreter/hugs.c b/ghc/interpreter/hugs.c
index 13776b5..2cef783 100644
--- a/ghc/interpreter/hugs.c
+++ b/ghc/interpreter/hugs.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: hugs.c,v $
- * $Revision: 1.68 $
- * $Date: 2000/04/25 17:43:49 $
+ * $Revision: 1.69 $
+ * $Date: 2000/04/27 16:35:29 $
  * ------------------------------------------------------------------------*/
 
 #include <setjmp.h>
@@ -1783,8 +1783,8 @@ static Void local evaluator() {        /* evaluate expr and print value    */
     } else {
         Cell d = provePred(ks,NIL,ap(classShow,bd));
         if (isNull(d)) {
-	    clearCurrentFile();
-	    printing = FALSE;
+           clearCurrentFile();
+           printing = FALSE;
            ERRMSG(0) "Cannot find \"show\" function for:" ETHEN
            ERRTEXT   "\n*** expression : "   ETHEN ERREXPR(inputExpr);
            ERRTEXT   "\n*** of type    : "   ETHEN ERRTYPE(type);