diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-06-27 13:36:29 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-06-27 13:36:29 -0400 |
| commit | 22b917eeb1d101cf0b6af2c94826446e4e2f2cdb (patch) | |
| tree | cf842eaf2045f5ae36579b5e64200c61a8fe7b75 /compiler/backpack | |
| parent | b0708588e87554899c2efc80a2d3eba353dbe926 (diff) | |
| download | haskell-22b917eeb1d101cf0b6af2c94826446e4e2f2cdb.tar.gz | |
Revert "Make module membership on ModuleGraph faster"
I had not intended on merging this.
This reverts commit b0708588e87554899c2efc80a2d3eba353dbe926.
Diffstat (limited to 'compiler/backpack')
| -rw-r--r-- | compiler/backpack/DriverBkp.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/backpack/DriverBkp.hs b/compiler/backpack/DriverBkp.hs index 4324e5763b..6123bc8133 100644 --- a/compiler/backpack/DriverBkp.hs +++ b/compiler/backpack/DriverBkp.hs @@ -288,8 +288,7 @@ buildUnit session cid insts lunit = do let hi_dir = expectJust (panic "hiDir Backpack") $ hiDir dflags export_mod ms = (ms_mod_name ms, ms_mod ms) -- Export everything! - mods = [ export_mod ms | ms <- mgModSummaries mod_graph - , ms_hsc_src ms == HsSrcFile ] + mods = [ export_mod ms | ms <- mod_graph, ms_hsc_src ms == HsSrcFile ] -- Compile relevant only hsc_env <- getSession @@ -661,7 +660,7 @@ hsunitModuleGraph dflags unit = do else fmap Just $ summariseRequirement pn mod_name -- 3. Return the kaboodle - return $ mkModuleGraph $ nodes ++ req_nodes + return (nodes ++ req_nodes) summariseRequirement :: PackageName -> ModuleName -> BkpM ModSummary summariseRequirement pn mod_name = do |