[commit: ghc] type-nats: Update debug functions for new name/location of unsafeGlobalDynFlags (c19c2fa)

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 <[email protected]>
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
 -}