Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : type-nats
http://hackage.haskell.org/trac/ghc/changeset/c19c2fa95c8c844d6ec00288ea83d4a71e1bf252 >--------------------------------------------------------------- commit c19c2fa95c8c844d6ec00288ea83d4a71e1bf252 Author: Iavor S. Diatchki <iavor.diatc...@gmail.com> Date: Tue Dec 25 20:58:41 2012 -0800 Update debug functions for new name/location of unsafeGlobalDynFlags >--------------------------------------------------------------- compiler/typecheck/TcTypeNats.hs | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) diff --git a/compiler/typecheck/TcTypeNats.hs b/compiler/typecheck/TcTypeNats.hs index 96ddd05..a1142ff 100644 --- a/compiler/typecheck/TcTypeNats.hs +++ b/compiler/typecheck/TcTypeNats.hs @@ -66,7 +66,6 @@ import TcSMonad ( TcS, emitInsoluble, setEvBind , newFlexiTcSTy , tyVarsOfCt , newWantedEvVarNC - -- , getDynFlags ) -- From base libraries @@ -80,14 +79,14 @@ import qualified Data.Map as M {- -- Just fore debugging import Debug.Trace --- import DynFlags ( tracingDynFlags ) -import Outputable (showSDoc) +import StaticFlags( unsafeGlobalDynFlags ) +import Outputable (showSDoc, nest) pureTrace :: String -> a -> a pureTrace x a = if True then trace x a else a ppsh :: SDoc -> String -ppsh = showSDoc tracingDynFlags -- tracingDynFlags is gone.. +ppsh = showSDoc unsafeGlobalDynFlags -} _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
