projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
a15972f
)
Spelling error in comment
author
simonpj@microsoft.com
<unknown>
Sun, 19 Oct 2008 23:35:11 +0000
(23:35 +0000)
committer
simonpj@microsoft.com
<unknown>
Sun, 19 Oct 2008 23:35:11 +0000
(23:35 +0000)
compiler/deSugar/MatchCon.lhs
patch
|
blob
|
history
diff --git
a/compiler/deSugar/MatchCon.lhs
b/compiler/deSugar/MatchCon.lhs
index
801944a
..
bba9d42
100644
(file)
--- 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,