X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FMatchCon.lhs;h=bba9d42815bec4f1a98cf105e9a33d1951ffa1f6;hb=7583384214ed6aa4a90d77c5975728a9b06149f2;hp=801944a642da79382cc753d19d3f7b612bb9dbd7;hpb=cec9b62f2ccdd358aa1d99c4143794b541b87f7e;p=ghc-hetmet.git

diff --git a/compiler/deSugar/MatchCon.lhs b/compiler/deSugar/MatchCon.lhs
index 801944a..bba9d42 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,