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

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsMatches.lhs

diff --git a/ghc/compiler/hsSyn/HsMatches.lhs b/ghc/compiler/hsSyn/HsMatches.lhs
index 6e7cb8a..1d85fbb 100644 (file)
--- 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
    ]