diff options
Diffstat (limited to 'compiler/main/GhcMake.hs')
| -rw-r--r-- | compiler/main/GhcMake.hs | 4 |
1 files changed, 2 insertions, 2 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 |