Commit 58b05365 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Fix misleading debug trace

parent 4550f26c
...@@ -1221,7 +1221,7 @@ zipTopTvSubst :: [TyVar] -> [Type] -> TvSubst ...@@ -1221,7 +1221,7 @@ zipTopTvSubst :: [TyVar] -> [Type] -> TvSubst
zipTopTvSubst tyvars tys zipTopTvSubst tyvars tys
#ifdef DEBUG #ifdef DEBUG
| length tyvars /= length tys | length tyvars /= length tys
= pprTrace "zipOpenTvSubst" (ppr tyvars $$ ppr tys) emptyTvSubst = pprTrace "zipTopTvSubst" (ppr tyvars $$ ppr tys) emptyTvSubst
| otherwise | otherwise
#endif #endif
= TvSubst emptyInScopeSet (zipTyEnv tyvars tys) = TvSubst emptyInScopeSet (zipTyEnv tyvars tys)
......
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