From efb81da9576a5b4b9befab399a13efbb563b0f36 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sun, 16 Jan 2005 12:58:08 +0000
Subject: [haddock @ 2005-01-16 12:58:03 by panne] Correctly handle the new
 order of arguments for the combining function given to fromListWith.

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

(limited to 'src/HaddockDevHelp.hs')

diff --git a/src/HaddockDevHelp.hs b/src/HaddockDevHelp.hs
index 9c1964cf..cb8886c2 100644
--- a/src/HaddockDevHelp.hs
+++ b/src/HaddockDevHelp.hs
@@ -63,7 +63,7 @@ ppDevHelpFile odir doctitle maybe_package ifaces = do
     index = Map.toAscList (foldr getIfaceIndex Map.empty ifaces)
 
     getIfaceIndex (mdl,iface) fm =
-		Map.unionWith (++) (Map.fromListWith (++) [(name, [mdl]) | (name, Qual mdl' _) <- Map.toAscList (iface_env iface), mdl == mdl']) fm
+		Map.unionWith (++) (Map.fromListWith (flip (++)) [(name, [mdl]) | (name, Qual mdl' _) <- Map.toAscList (iface_env iface), mdl == mdl']) fm
 	
     ppList [] = empty
     ppList ((name,refs):mdls)  =
-- 
cgit v1.2.3