[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 b257cd3..3b202f4 100644 (file)
--- a/ghc/compiler/hsSyn/HsMatches.lhs
+++ b/ghc/compiler/hsSyn/HsMatches.lhs
@@ -45,6 +45,8 @@ data Match tyvar uvar id pat
   = PatMatch       pat
                    (Match tyvar uvar id pat)
   | GRHSMatch      (GRHSsAndBinds tyvar uvar id pat)
+
+  | SimpleMatch            (HsExpr tyvar uvar id pat)          -- Used in translations
 \end{code}
 
 Sets of guarded right hand sides (GRHSs). In:
@@ -110,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)
 
 ----------------------------------------------------------