diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-05-10 11:57:02 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-05-12 15:16:07 +0200 |
| commit | ba46dd060f959e3c96a74c1546946c3f8bf84dd0 (patch) | |
| tree | faa22032f485d0222bb102645971dd82e76236c2 /compiler/main/GhcMake.hs | |
| parent | e996e85f003e783fc8f9af0da653cdd0058d9646 (diff) | |
| download | haskell-wip/foldl.tar.gz | |
Use strict foldlswip/foldl
Diffstat (limited to 'compiler/main/GhcMake.hs')
| -rw-r--r-- | compiler/main/GhcMake.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/GhcMake.hs b/compiler/main/GhcMake.hs index 46a49900d5..ba9e8cefdf 100644 --- a/compiler/main/GhcMake.hs +++ b/compiler/main/GhcMake.hs @@ -608,9 +608,9 @@ checkStability -> ([ModuleName], -- stableObject [ModuleName]) -- stableBCO -checkStability hpt sccs all_home_mods = foldl checkSCC ([],[]) sccs +checkStability hpt sccs all_home_mods = foldl' checkSCC ([],[]) sccs where - checkSCC (stable_obj, stable_bco) scc0 + checkSCC (!stable_obj, !stable_bco) scc0 | stableObjects = (scc_mods ++ stable_obj, stable_bco) | stableBCOs = (stable_obj, scc_mods ++ stable_bco) | otherwise = (stable_obj, stable_bco) @@ -1011,7 +1011,7 @@ parUpsweep_one mod home_mod_map comp_graph_loops lcl_dflags cleanup par_sem , this_build_mod `notElem` loop ] - let all_deps = foldl1 Set.union [textual_deps, int_loop_deps, ext_loop_deps] + let all_deps = foldl1' Set.union [textual_deps, int_loop_deps, ext_loop_deps] -- All of the module's home-module dependencies. let home_deps_with_idx = |