diff options
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 2357d622..7d44d452 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1620,6 +1620,9 @@ topDeclBox ((_,_,maybe_source_url), (_,_,maybe_wiki_url), iface) -- For source links, we want to point to the original module, -- because only that will have the source. + + -- TODO: do something about type instances. They will point to + -- the module defining the type family, which is wrong. origMod = nameModule name wikiLink = |