Fix typo where I forgot the new substitution

82c6e1c6 · simonpj@microsoft.com · 4d7fed4e · 82c6e1c6
Commit 82c6e1c6 authored Jan 28, 2008 by simonpj@microsoft.com
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

compiler/types/Unify.lhs compiler/types/Unify.lhs +2 -1

No files found.
--- a/compiler/types/Unify.lhs
+++ b/compiler/types/Unify.lhs
@@ -161,7 +161,8 @@ match menv subst (TyVarTy tv1) ty2
 	    -> Nothing	-- Occurs check
 	    | otherwise	
 	    -> do { subst1 <- match_kind menv subst tv1 ty2
-		  ; return (extendVarEnv subst tv1' ty2) }
+		  ; return (extendVarEnv subst1 tv1' ty2) }
+			-- Note [Matching kinds]

 	Just ty1' 	-- There is an existing binding; check whether ty2 matches it
 	    | tcEqTypeX (nukeRnEnvL rn_env) ty1' ty2