From: sof <unknown>
Date: Mon, 25 Aug 1997 21:44:07 +0000 (+0000)
Subject: [project @ 1997-08-25 21:44:07 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~125
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3469f0006cc1017388bce14d32761bd8c3aedd45;p=ghc-hetmet.git

[project @ 1997-08-25 21:44:07 by sof]
ppr updated
---

diff --git a/ghc/compiler/hsSyn/HsMatches.lhs b/ghc/compiler/hsSyn/HsMatches.lhs
index 6e7cb8a..1d85fbb 100644
--- a/ghc/compiler/hsSyn/HsMatches.lhs
+++ b/ghc/compiler/hsSyn/HsMatches.lhs
@@ -17,7 +17,7 @@ import HsExpr		( HsExpr, Stmt )
 import HsBinds		( HsBinds, nullBinds )
 
 -- Others
-import Outputable	( ifPprShowAll, PprStyle )
+import Outputable	( ifPprShowAll, PprStyle, interpp'SP )
 import PprType		( GenType{-instance Outputable-} )
 import Pretty
 import SrcLoc		( SrcLoc{-instances-} )
@@ -160,7 +160,7 @@ pprGRHS sty is_case (GRHS [] expr locn)
  =  text (if is_case then "->" else "=") <+> ppr sty expr
 
 pprGRHS sty is_case (GRHS guard expr locn)
- = sep [char '|' <+> ppr sty guard, 
+ = sep [char '|' <+> interpp'SP sty guard,
 	text (if is_case then "->" else "=") <+> ppr sty expr
    ]