From: andy <unknown>
Date: Thu, 28 Oct 1999 22:37:27 +0000 (+0000)
Subject: [project @ 1999-10-28 22:37:27 by andy]
X-Git-Tag: Approximately_9120_patches~5649
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=831b3064d0334426fcf29d4d31e11009dde0b6c7;p=ghc-hetmet.git

[project @ 1999-10-28 22:37:27 by andy]
Wibble in printing of type contexts.
---

diff --git a/ghc/interpreter/output.c b/ghc/interpreter/output.c
index 904d4c4..9c7cf65 100644
--- a/ghc/interpreter/output.c
+++ b/ghc/interpreter/output.c
@@ -10,8 +10,8 @@
  * included in the distribution.
  *
  * $RCSfile: output.c,v $
- * $Revision: 1.8 $
- * $Date: 1999/10/20 02:16:02 $
+ * $Revision: 1.9 $
+ * $Date: 1999/10/28 22:37:27 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -640,6 +640,7 @@ Int  fr; {
     Bool useParens = len!=1;
 #endif
     if (useParens)
+        putChr('(');
     for (; nonNull(ps); ps=tl(ps)) {
         putPred(hd(ps),fr);
         if (--c > 0) {