From: simonpj <unknown>
Date: Thu, 21 Nov 2002 17:54:54 +0000 (+0000)
Subject: [project @ 2002-11-21 17:54:54 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1404
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5e34dfe261bf18325fc035ed92f716f3a6249142;p=ghc-hetmet.git

[project @ 2002-11-21 17:54:54 by simonpj]
un-wibble
---

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index c5e1814..9c4f03c 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -161,12 +161,10 @@ deSugarExpr hsc_env pcs this_mod rdr_env type_env tc_expr
     dflags   = hsc_dflags hsc_env
     hpt      = hsc_HPT hsc_env
     pte      = eps_PTE (pcs_EPS pcs)
-    lookup n = pprTrace "lookup" (ppr type_env) (
-	       lookupNameEnv type_env n	`orElse`	-- Look in the type env of the
+    lookup n = lookupNameEnv type_env n	`orElse`	-- Look in the type env of the
 							-- current module first
 	       lookupType hpt pte n 	`orElse`	-- Then other modules
 	       pprPanic "Desugar: lookup:" (ppr n)
-		)
 
     mk_warn :: (SrcLoc,SDoc) -> (SrcLoc, Pretty.Doc)
     mk_warn (loc,sdoc) = addShortWarnLocLine loc print_unqual sdoc