diff options
| author | panne <unknown> | 2005-01-16 12:58:08 +0000 |
|---|---|---|
| committer | panne <unknown> | 2005-01-16 12:58:08 +0000 |
| commit | efb81da9576a5b4b9befab399a13efbb563b0f36 (patch) | |
| tree | a65d52942a25ebb6dca90223454a1cc43620e00f /src/HaddockHtml.hs | |
| parent | 6ab20e84e1e6b1e8b97466753673ce3a875152f8 (diff) | |
[haddock @ 2005-01-16 12:58:03 by panne]
Correctly handle the new order of arguments for the combining function
given to fromListWith.
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 528dc47b..c4bda56c 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -386,7 +386,7 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format maybe_contents_ur -- that export that entity. Each of the modules exports the entity -- in a visible or invisible way (hence the Bool). full_index :: Map String (Map HsQName [(Module,Bool)]) - full_index = Map.fromListWith (\l r -> Map.unionWith (++) r l) + full_index = Map.fromListWith (flip (Map.unionWith (++))) (concat (map getIfaceIndex ifaces)) getIfaceIndex (mdl,iface) = |