[project @ 1996-04-10 18:10:47 by partain]

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

diff --git a/ghc/compiler/hsSyn/HsMatches.lhs b/ghc/compiler/hsSyn/HsMatches.lhs
index 7aed7ae..3b202f4 100644 (file)
--- a/ghc/compiler/hsSyn/HsMatches.lhs
+++ b/ghc/compiler/hsSyn/HsMatches.lhs
@@ -112,12 +112,15 @@ pprMatch sty is_case first_match
     (row_of_pats, grhss_etc_stuff) = ppr_match sty is_case first_match
 
     ppr_match sty is_case (PatMatch pat match)
-     = (pat:pats, grhss_stuff)
-     where
+      = (pat:pats, grhss_stuff)
+      where
        (pats, grhss_stuff) = ppr_match sty is_case match
 
     ppr_match sty is_case (GRHSMatch grhss_n_binds)
-     = ([], pprGRHSsAndBinds sty is_case grhss_n_binds)
+      = ([], pprGRHSsAndBinds sty is_case grhss_n_binds)
+
+    ppr_match sty is_case (SimpleMatch expr)
+      = ([], ppr sty expr)
 
 ----------------------------------------------------------