[project @ 2000-06-09 15:53:12 by simonpj]

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

diff --git a/ghc/compiler/hsSyn/HsMatches.lhs b/ghc/compiler/hsSyn/HsMatches.lhs
index 640c717..151e499 100644 (file)
--- a/ghc/compiler/hsSyn/HsMatches.lhs
+++ b/ghc/compiler/hsSyn/HsMatches.lhs
@@ -44,8 +44,8 @@ patterns in each equation.
 \begin{code}
 data Match id pat
   = Match
-       [HsTyVarBndr id]                        -- Tyvars wrt which this match is universally quantified
-                                       --      emtpy after typechecking
+       [HsTyVarBndr id]                -- Tyvars wrt which this match is universally quantified
+                                       --      empty after typechecking
        [pat]                           -- The patterns
        (Maybe (HsType id))             -- A type signature for the result of the match
                                        --      Nothing after typechecking