diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-10-08 21:55:23 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-10-08 21:55:23 +0100 |
| commit | f7cd14fd30d40ae7e904a533804f43d43dd8f439 (patch) | |
| tree | 18ba603b155348ce2761c06003c280666cbd09a4 /compiler/main/GHC.hs | |
| parent | a94144b81415a542defd5e7e4e7e3561d9d28a0f (diff) | |
| download | haskell-f7cd14fd30d40ae7e904a533804f43d43dd8f439.tar.gz | |
Put the DynFlags in a global variable for tracing; fixes #7304
This is an ugly kludge to make a DynFlags value available for the
'trace' functions. It may not be the value we really ought to use,
but it'll be good enough for the pretty-printer to use.
Ideally we'd pass the real DynFlags down to all the trace calls,
but this will do for now at least.
Diffstat (limited to 'compiler/main/GHC.hs')
| -rw-r--r-- | compiler/main/GHC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs index 06b3ecaf23..b1729ecb2d 100644 --- a/compiler/main/GHC.hs +++ b/compiler/main/GHC.hs @@ -524,7 +524,7 @@ getInteractiveDynFlags :: GhcMonad m => m DynFlags getInteractiveDynFlags = withSession $ \h -> return (ic_dflags (hsc_IC h)) -parseDynamicFlags :: Monad m => +parseDynamicFlags :: MonadIO m => DynFlags -> [Located String] -> m (DynFlags, [Located String], [Located String]) parseDynamicFlags = parseDynamicFlagsCmdLine |