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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
