diff options
| author | Baldur Blöndal <baldurpet@gmail.com> | 2014-02-13 09:01:03 +0100 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2014-02-13 08:45:10 +0000 |
| commit | e16826b12e8a086fa9d75f2835d128c0a8dd532c (patch) | |
| tree | 02b5094675e938a25bcdc3ac9526f54d27e7088a /compiler/main | |
| parent | 5d04603b33d2855657745d15f698664a444f6550 (diff) | |
| download | haskell-e16826b12e8a086fa9d75f2835d128c0a8dd532c.tar.gz | |
Cleaned up Maybes.lhs
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) |