[commit: ghc] type-nats: (for debuging) Make it easier to switch traces on and off (014a2d2)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : type-nats

http://hackage.haskell.org/trac/ghc/changeset/014a2d2b479cb3da44adb4059b7f7314b38a9fdf

>---------------------------------------------------------------

commit 014a2d2b479cb3da44adb4059b7f7314b38a9fdf
Author: Iavor S. Diatchki <[email protected]>
Date:   Sat Sep 22 11:38:00 2012 -0700

    (for debuging) Make it easier to switch traces on and off

>---------------------------------------------------------------

 compiler/typecheck/TcTypeNats.hs |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcTypeNats.hs b/compiler/typecheck/TcTypeNats.hs
index e815f55..8b84d11 100644
--- a/compiler/typecheck/TcTypeNats.hs
+++ b/compiler/typecheck/TcTypeNats.hs
@@ -80,8 +80,7 @@ import DynFlags ( tracingDynFlags )
 import Outputable (showSDoc)
 
 pureTrace :: String -> a -> a
-pureTrace x a | False = trace x a
-pureTrace _ a = a
+pureTrace x a = if True then trace x a else a
 
 ppsh :: SDoc -> String
 ppsh = showSDoc tracingDynFlags