Commit c26717e6 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove more #ifdef DEBUGs

parent 72d043c0
...@@ -1272,11 +1272,9 @@ mkOpenTvSubst env = TvSubst (mkInScopeSet (tyVarsOfTypes (varEnvElts env))) env ...@@ -1272,11 +1272,9 @@ mkOpenTvSubst env = TvSubst (mkInScopeSet (tyVarsOfTypes (varEnvElts env))) env
zipOpenTvSubst :: [TyVar] -> [Type] -> TvSubst zipOpenTvSubst :: [TyVar] -> [Type] -> TvSubst
zipOpenTvSubst tyvars tys zipOpenTvSubst tyvars tys
#ifdef DEBUG | debugIsOn && (length tyvars /= length tys)
| length tyvars /= length tys
= pprTrace "zipOpenTvSubst" (ppr tyvars $$ ppr tys) emptyTvSubst = pprTrace "zipOpenTvSubst" (ppr tyvars $$ ppr tys) emptyTvSubst
| otherwise | otherwise
#endif
= TvSubst (mkInScopeSet (tyVarsOfTypes tys)) (zipTyEnv tyvars tys) = TvSubst (mkInScopeSet (tyVarsOfTypes tys)) (zipTyEnv tyvars tys)
-- mkTopTvSubst is called when doing top-level substitutions. -- mkTopTvSubst is called when doing top-level substitutions.
...@@ -1287,20 +1285,16 @@ mkTopTvSubst prs = TvSubst emptyInScopeSet (mkVarEnv prs) ...@@ -1287,20 +1285,16 @@ mkTopTvSubst prs = TvSubst emptyInScopeSet (mkVarEnv prs)
zipTopTvSubst :: [TyVar] -> [Type] -> TvSubst zipTopTvSubst :: [TyVar] -> [Type] -> TvSubst
zipTopTvSubst tyvars tys zipTopTvSubst tyvars tys
#ifdef DEBUG | debugIsOn && (length tyvars /= length tys)
| length tyvars /= length tys
= pprTrace "zipTopTvSubst" (ppr tyvars $$ ppr tys) emptyTvSubst = pprTrace "zipTopTvSubst" (ppr tyvars $$ ppr tys) emptyTvSubst
| otherwise | otherwise
#endif
= TvSubst emptyInScopeSet (zipTyEnv tyvars tys) = TvSubst emptyInScopeSet (zipTyEnv tyvars tys)
zipTyEnv :: [TyVar] -> [Type] -> TvSubstEnv zipTyEnv :: [TyVar] -> [Type] -> TvSubstEnv
zipTyEnv tyvars tys zipTyEnv tyvars tys
#ifdef DEBUG | debugIsOn && (length tyvars /= length tys)
| length tyvars /= length tys
= pprTrace "mkTopTvSubst" (ppr tyvars $$ ppr tys) emptyVarEnv = pprTrace "mkTopTvSubst" (ppr tyvars $$ ppr tys) emptyVarEnv
| otherwise | otherwise
#endif
= zip_ty_env tyvars tys emptyVarEnv = zip_ty_env tyvars tys emptyVarEnv
-- Later substitutions in the list over-ride earlier ones, -- Later substitutions in the list over-ride earlier ones,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment