diff options
| author | simonpj@microsoft.com <unknown> | 2008-10-19 23:35:11 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-10-19 23:35:11 +0000 |
| commit | ed8a98a544e23108c09c4b6b5411d30795ce2a5f (patch) | |
| tree | e8fbe8b1640d44167debb79c580b48c3b78a44c4 /compiler/deSugar | |
| parent | a15972f1b72500a0bf0edca948314ea9fbc46ec3 (diff) | |
| download | haskell-ed8a98a544e23108c09c4b6b5411d30795ce2a5f.tar.gz | |
Spelling error in comment
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/MatchCon.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/MatchCon.lhs b/compiler/deSugar/MatchCon.lhs index 801944a642..bba9d42815 100644 --- a/compiler/deSugar/MatchCon.lhs +++ b/compiler/deSugar/MatchCon.lhs @@ -103,7 +103,7 @@ matchOneCon vars ty (eqn1 : eqns) -- All eqns for a single constructor = do { (wraps, eqns') <- mapAndUnzipM shift (eqn1:eqns) ; arg_vars <- selectMatchVars (take (dataConSourceArity con1) (eqn_pats (head eqns'))) - -- Use the new arugment patterns as a source of + -- Use the new argument patterns as a source of -- suggestions for the new variables ; match_result <- match (arg_vars ++ vars) ty eqns' ; return (con1, tvs1 ++ dicts1 ++ arg_vars, |