diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-24 20:26:52 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-24 20:41:06 +0100 |
| commit | 229e9fc585b3003f2c26cbcf39f71a87514cd43d (patch) | |
| tree | 8214619d18d6d4024dee307435ff9e46d4ee5dbb /compiler/stgSyn | |
| parent | 4b18cc53a81634951cc72aa5c3e2123688b6f512 (diff) | |
| download | haskell-229e9fc585b3003f2c26cbcf39f71a87514cd43d.tar.gz | |
Make -fscc-profiling a dynamic flag
All the flags that 'ways' imply are now dynamic
Diffstat (limited to 'compiler/stgSyn')
| -rw-r--r-- | compiler/stgSyn/StgSyn.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stgSyn/StgSyn.lhs b/compiler/stgSyn/StgSyn.lhs index 3e801c6328..1b608bdc4d 100644 --- a/compiler/stgSyn/StgSyn.lhs +++ b/compiler/stgSyn/StgSyn.lhs @@ -60,7 +60,6 @@ import Packages ( isDllName ) import Platform import PprCore ( {- instances -} ) import PrimOp ( PrimOp, PrimCall ) -import StaticFlags ( opt_SccProfilingOn ) import TyCon ( PrimRep(..) ) import TyCon ( TyCon ) import Type ( Type ) @@ -810,7 +809,8 @@ pprStgRhs (StgRhsClosure cc bi [free_var] upd_flag srt [{-no args-}] (StgApp fun -- general case pprStgRhs (StgRhsClosure cc bi free_vars upd_flag srt args body) - = hang (hsep [if opt_SccProfilingOn then ppr cc else empty, + = sdocWithDynFlags $ \dflags -> + hang (hsep [if dopt Opt_SccProfilingOn dflags then ppr cc else empty, pp_binder_info bi, ifPprDebug (brackets (interppSP free_vars)), char '\\' <> ppr upd_flag, pprMaybeSRT srt, brackets (interppSP args)]) |