diff options
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/GhcMake.hs | 4 | ||||
| -rw-r--r-- | compiler/main/TidyPgm.lhs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/GhcMake.hs b/compiler/main/GhcMake.hs index c8afd83beb..b7a1282f5c 100644 --- a/compiler/main/GhcMake.hs +++ b/compiler/main/GhcMake.hs @@ -46,7 +46,7 @@ import BasicTypes import Digraph import Exception ( tryIO, gbracket, gfinally ) import FastString -import Maybes ( expectJust, mapCatMaybes ) +import Maybes ( expectJust ) import MonadUtils ( allM, MonadIO ) import Outputable import Panic @@ -1443,7 +1443,7 @@ moduleGraphNodes drop_hs_boot_nodes summaries = (graphFromEdgedVertices nodes, l | otherwise = HsBootFile out_edge_keys :: HscSource -> [ModuleName] -> [Int] - out_edge_keys hi_boot ms = mapCatMaybes (lookup_key hi_boot) ms + out_edge_keys hi_boot ms = mapMaybe (lookup_key hi_boot) ms -- If we want keep_hi_boot_nodes, then we do lookup_key with -- the IsBootInterface parameter True; else False diff --git a/compiler/main/TidyPgm.lhs b/compiler/main/TidyPgm.lhs index 7ab6d569bc..b20658b073 100644 --- a/compiler/main/TidyPgm.lhs +++ b/compiler/main/TidyPgm.lhs @@ -563,7 +563,7 @@ See CorePrep Note [Data constructor workers]. \begin{code} getTyConImplicitBinds :: TyCon -> [CoreBind] -getTyConImplicitBinds tc = map get_defn (mapCatMaybes dataConWrapId_maybe (tyConDataCons tc)) +getTyConImplicitBinds tc = map get_defn (mapMaybe dataConWrapId_maybe (tyConDataCons tc)) getClassImplicitBinds :: Class -> [CoreBind] getClassImplicitBinds cls = map get_defn (classAllSelIds cls) |