diff options
author | Simon Marlow <marlowsd@gmail.com> | 2014-06-08 11:17:57 +0100 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2014-06-08 11:21:12 +0100 |
commit | c0258176ad255ac42a68df75ac4287630a6c82c0 (patch) | |
tree | 7e36d3c9e78ce691dd7fa8d42cb5b871b00916a0 /compiler/codeGen | |
parent | 70f58ebfefd47b724a3b0aa3aca50442f937e6eb (diff) | |
download | haskell-c0258176ad255ac42a68df75ac4287630a6c82c0.tar.gz |
Don't use showPass in the backend (#8973)
Diffstat (limited to 'compiler/codeGen')
-rw-r--r-- | compiler/codeGen/StgCmm.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/codeGen/StgCmm.hs b/compiler/codeGen/StgCmm.hs index 740ab5f3d9..efc89fe04a 100644 --- a/compiler/codeGen/StgCmm.hs +++ b/compiler/codeGen/StgCmm.hs @@ -39,7 +39,6 @@ import DataCon import Name import TyCon import Module -import ErrUtils import Outputable import Stream import BasicTypes @@ -62,9 +61,7 @@ codeGen :: DynFlags codeGen dflags this_mod data_tycons cost_centre_info stg_binds hpc_info - = do { liftIO $ showPass dflags "New CodeGen" - - -- cg: run the code generator, and yield the resulting CmmGroup + = do { -- cg: run the code generator, and yield the resulting CmmGroup -- Using an IORef to store the state is a bit crude, but otherwise -- we would need to add a state monad layer. ; cgref <- liftIO $ newIORef =<< initC |