Rename a parameter; trivial refactor
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 7 Oct 2016 22:55:54 +0000 (23:55 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Mon, 10 Oct 2016 10:51:05 +0000 (11:51 +0100)
compiler/typecheck/TcHsSyn.hs

index b444385..efb7dfe 100644 (file)
@@ -252,8 +252,8 @@ extendIdZonkEnv1 (ZonkEnv zonk_ty ty_env id_env) id
   = ZonkEnv zonk_ty ty_env (extendVarEnv id_env id id)
 
 extendTyZonkEnv1 :: ZonkEnv -> TyVar -> ZonkEnv
-extendTyZonkEnv1 (ZonkEnv zonk_ty ty_env id_env) ty
-  = ZonkEnv zonk_ty (extendVarEnv ty_env ty ty) id_env
+extendTyZonkEnv1 (ZonkEnv zonk_ty ty_env id_env) tv
+  = ZonkEnv zonk_ty (extendVarEnv ty_env tv tv) id_env
 
 setZonkType :: ZonkEnv -> UnboundTyVarZonker -> ZonkEnv
 setZonkType (ZonkEnv _ ty_env id_env) zonk_ty