X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FhsSyn%2FHsMatches.lhs;h=059db6a25110df77f52863ce549ab8faa45251e5;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=5800e5e62f965964e193a5b3fea9f5fa23af1b0b;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee;p=ghc-hetmet.git

diff --git a/ghc/compiler/hsSyn/HsMatches.lhs b/ghc/compiler/hsSyn/HsMatches.lhs
index 5800e5e..059db6a 100644
--- a/ghc/compiler/hsSyn/HsMatches.lhs
+++ b/ghc/compiler/hsSyn/HsMatches.lhs
@@ -120,7 +120,8 @@ pprMatch sty is_case first_match
       = ([], pprGRHSsAndBinds sty is_case grhss_n_binds)
 
     ppr_match sty is_case (SimpleMatch expr)
-      = ([], ppr sty expr)
+      = ([], ppHang (ppStr (if is_case then "->" else "="))
+		 4 (ppr sty expr))
 
 ----------------------------------------------------------