[project @ 1996-04-08 16:15:43 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..7aed7ae 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: