aboutsummaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs2
1 files changed, 1 insertions, 1 deletions
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