From 3469f0006cc1017388bce14d32761bd8c3aedd45 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 25 Aug 1997 21:44:07 +0000
Subject: [PATCH] [project @ 1997-08-25 21:44:07 by sof] ppr updated

---
 ghc/compiler/hsSyn/HsMatches.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
    ]
 
-- 
1.7.10.4