From bf902b277afa1feff586f7d96178b59be2cfcfe2 Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Wed, 4 May 2011 22:34:14 +0100 Subject: [PATCH] Remove accidental trace --- compiler/deSugar/Check.lhs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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) -- 1.7.10.4