diff options
Diffstat (limited to 'compiler/GHC/Unit/State.hs')
| -rw-r--r-- | compiler/GHC/Unit/State.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs index ba6277b182..cefa5e5058 100644 --- a/compiler/GHC/Unit/State.hs +++ b/compiler/GHC/Unit/State.hs @@ -98,8 +98,8 @@ import GHC.Data.Maybe import System.Environment ( getEnv ) import GHC.Data.FastString import qualified GHC.Data.ShortText as ST -import GHC.Utils.Error ( debugTraceMsg, dumpIfSet_dyn, - withTiming, DumpFormat (..) ) +import GHC.Utils.Logger +import GHC.Utils.Error import GHC.Utils.Exception import System.Directory @@ -573,18 +573,18 @@ listUnitInfo state = Map.elems (unitInfoMap state) -- 'initUnits' can be called again subsequently after updating the -- 'packageFlags' field of the 'DynFlags', and it will update the -- 'unitState' in 'DynFlags'. -initUnits :: DynFlags -> Maybe [UnitDatabase UnitId] -> IO ([UnitDatabase UnitId], UnitState, HomeUnit) -initUnits dflags cached_dbs = do +initUnits :: Logger -> DynFlags -> Maybe [UnitDatabase UnitId] -> IO ([UnitDatabase UnitId], UnitState, HomeUnit) +initUnits logger dflags cached_dbs = do let forceUnitInfoMap (state, _) = unitInfoMap state `seq` () let ctx = initSDocContext dflags defaultUserStyle -- SDocContext used to render exception messages - let printer = debugTraceMsg dflags -- printer for trace messages + let printer = debugTraceMsg logger dflags -- printer for trace messages - (unit_state,dbs) <- withTiming dflags (text "initializing unit database") + (unit_state,dbs) <- withTiming logger dflags (text "initializing unit database") forceUnitInfoMap $ mkUnitState ctx printer (initUnitConfig dflags cached_dbs) - dumpIfSet_dyn dflags Opt_D_dump_mod_map "Module Map" + dumpIfSet_dyn logger dflags Opt_D_dump_mod_map "Module Map" FormatText (updSDocContext (\ctx -> ctx {sdocLineLength = 200}) $ pprModuleMap (moduleNameProvidersMap unit_state)) |