From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Wed, 4 May 2011 21:34:14 +0000 (+0100)
Subject: Remove accidental trace
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bf902b277afa1feff586f7d96178b59be2cfcfe2;p=ghc-hetmet.git

Remove accidental trace
---

diff --git a/compiler/deSugar/Check.lhs b/compiler/deSugar/Check.lhs
index fa85a1d..d894179 100644
--- a/compiler/deSugar/Check.lhs
+++ b/compiler/deSugar/Check.lhs
@@ -110,8 +110,7 @@ type EqnSet = UniqSet EqnNo
 check :: [EquationInfo] -> ([ExhaustivePat], [EquationInfo])
   -- Second result is the shadowed equations
   -- if there are view patterns, just give up - don't know what the function is
-check qs = pprTrace "check" (ppr tidy_qs) $
-           (untidy_warns, shadowed_eqns)
+check qs = (untidy_warns, shadowed_eqns)
       where
         tidy_qs = map tidy_eqn qs
 	(warns, used_nos) = check' ([1..] `zip` tidy_qs)