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/codeGen/CgExtCode.hs | |
| 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/codeGen/CgExtCode.hs')
| -rw-r--r-- | compiler/codeGen/CgExtCode.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/codeGen/CgExtCode.hs b/compiler/codeGen/CgExtCode.hs index c94f23701b..a651319a49 100644 --- a/compiler/codeGen/CgExtCode.hs +++ b/compiler/codeGen/CgExtCode.hs @@ -50,6 +50,7 @@ import OldCmm hiding( ClosureTypeInfo(..) ) -- import BasicTypes import BlockId +import DynFlags import FastString import Module import UniqFM @@ -87,6 +88,10 @@ instance Monad ExtFCode where (>>=) = thenExtFC return = returnExtFC +instance HasDynFlags ExtFCode where + getDynFlags = EC (\_ d -> do dflags <- getDynFlags + return (d, dflags)) + -- | Takes the variable decarations and imports from the monad -- and makes an environment, which is looped back into the computation. |