From 1ae4f09df15f92c8a069eec3fbd3403ccc44f4f0 Mon Sep 17 00:00:00 2001 From: sof Date: Thu, 10 Oct 2002 14:20:54 +0000 Subject: [PATCH] [project @ 2002-10-10 14:20:54 by sof] make it compile in non-DEBUG mode --- ghc/compiler/coreSyn/Subst.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/coreSyn/Subst.lhs b/ghc/compiler/coreSyn/Subst.lhs index b2e26c2..e2aded0 100644 --- a/ghc/compiler/coreSyn/Subst.lhs +++ b/ghc/compiler/coreSyn/Subst.lhs @@ -386,8 +386,8 @@ zipTyEnv tyvars tys | length tyvars /= length tys = pprTrace "mkTopTyVarSubst" (ppr tyvars $$ ppr tys) emptySubstEnv | otherwise - = zip_ty_env tyvars tys emptySubstEnv #endif + = zip_ty_env tyvars tys emptySubstEnv zip_ty_env [] [] env = env zip_ty_env (tv:tvs) (ty:tys) env = zip_ty_env tvs tys (extendSubstEnv env tv (DoneTy ty)) -- 1.7.10.4