diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 23:29:53 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 23:29:53 +0100 |
| commit | 37f9861ff65552c2bb6a85c3b27e0228275bc0b6 (patch) | |
| tree | 538f2a3dfd6e50733c4c1a5e700febea939129c2 /compiler/utils | |
| parent | 1eda228cf487643e422c20effc8163e71b46efa2 (diff) | |
| download | haskell-37f9861ff65552c2bb6a85c3b27e0228275bc0b6.tar.gz | |
Make tracingDynFlags slightly more defined
In particular, fields like 'flags' are now set to the default,
so at least they will work to some extent.
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index b4027473ef..696d803208 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -71,7 +71,7 @@ module Outputable ( pprDebugAndThen, ) where -import {-# SOURCE #-} DynFlags( DynFlags ) +import {-# SOURCE #-} DynFlags( DynFlags, tracingDynFlags ) import {-# SOURCE #-} Module( Module, ModuleName, moduleName ) import {-# SOURCE #-} Name( Name, nameModule ) @@ -953,14 +953,6 @@ assertPprPanic file line msg , text "line", int line ] , msg ] --- tracingDynFlags is a hack, necessary because we need to be able to --- show SDocs when tracing, but we don't always have DynFlags available. --- Do not use it if you can help it. It will not reflect options set --- by the commandline flags, it may hav the wrong target platform, etc. --- Currently it just panics if you try to use it. -tracingDynFlags :: DynFlags -tracingDynFlags = panic "tracingDynFlags used" - pprDebugAndThen :: DynFlags -> (String -> a) -> String -> SDoc -> a pprDebugAndThen dflags cont heading pretty_msg = cont (show (runSDoc doc (initSDocContext dflags PprDebug))) |