From dae3cc3eb74cfe7e59b18242897584664078233f Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 16 Jan 2005 14:22:44 +0000
Subject: [haddock @ 2005-01-16 14:22:44 by panne] Added the last missing
 "flip" to get identical HTML output as previous versions.

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

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index fcac054b..ea72c130 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -864,7 +864,7 @@ buildImportEnv :: ModuleMap -> Module
 	-> [HsImportDecl]  -- the import decls
 	-> Map HsQName HsQName
 buildImportEnv mod_map this_mod exported_names imp_decls
-  = foldr (flip (Map.unionWith best_name)) Map.empty (map build imp_decls)
+  = foldr (flip (Map.unionWith (flip best_name))) Map.empty (map build imp_decls)
   where
 	-- choose qualified results over unqualified ones.  In the future
 	-- we might make more intelligent decisions about which name to
-- 
cgit v1.2.3