diff options
author | panne <unknown> | 2005-01-16 14:14:41 +0000 |
---|---|---|
committer | panne <unknown> | 2005-01-16 14:14:41 +0000 |
commit | e27b5834b38295c4e8901ced4053d37bc63dc72b (patch) | |
tree | 500176df0872fda1c741405dc499212169f7805d | |
parent | efb81da9576a5b4b9befab399a13efbb563b0f36 (diff) |
[haddock @ 2005-01-16 14:14:39 by panne]
Data.Map.unions is left-biased.
-rw-r--r-- | src/Main.hs | 2 | ||||
-rw-r--r-- | src/Map.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index a83376f3..fcac054b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -828,7 +828,7 @@ buildOrigEnv :: Module -> Bool -> ModuleMap -> [HsImportDecl] -> ErrMsgM (Map HsQName HsQName) buildOrigEnv this_mdl verbose mod_map imp_decls = do maps <- mapM build imp_decls - return (Map.unions maps) + return (Map.unions (reverse maps)) where build imp_decl@(HsImportDecl _ mdl qual maybe_as _) = case Map.lookup mdl mod_map of @@ -47,7 +47,7 @@ unionWith :: Ord k => (a -> a -> a) -> Map k a -> Map k a -> Map k a unionWith c l r = plusFM_C c r l unions :: Ord k => [Map k a] -> Map k a -unions = foldr plusFM emptyFM +unions = foldl (flip plusFM) emptyFM elems :: Map k a -> [a] elems = eltsFM |