From e27b5834b38295c4e8901ced4053d37bc63dc72b Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 16 Jan 2005 14:14:41 +0000
Subject: [haddock @ 2005-01-16 14:14:39 by panne] Data.Map.unions is
 left-biased.

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Main.hs')

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
-- 
cgit v1.2.3