diff options
| author | panne <unknown> | 2005-01-16 14:22:44 +0000 |
|---|---|---|
| committer | panne <unknown> | 2005-01-16 14:22:44 +0000 |
| commit | dae3cc3eb74cfe7e59b18242897584664078233f (patch) | |
| tree | 89c53a9cd04b7e1e89b18284f581ec60dc64a2cc /src | |
| parent | e27b5834b38295c4e8901ced4053d37bc63dc72b (diff) | |
[haddock @ 2005-01-16 14:22:44 by panne]
Added the last missing "flip" to get identical HTML output as previous versions.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 2 |
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 |