diff options
Diffstat (limited to 'compiler/backpack/DriverBkp.hs')
| -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 |