aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Html.hs10
1 files changed, 3 insertions, 7 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index 24adc09f..2357d622 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1618,13 +1618,9 @@ topDeclBox ((_,_,maybe_source_url), (_,_,maybe_wiki_url), iface)
(Just name) (Just loc) url
in anchor ! [href url'] << toHtml "Source"
- -- for source links, we want to point to the original module,
- -- because only that will have the source.
- origMod = case Map.lookup (nameOccName name) (ifaceEnv iface) of
- Just n -> case nameModule_maybe n of
- Just m -> m
- Nothing -> mod
- _ -> error "This shouldn't happen (topDeclBox)"
+ -- For source links, we want to point to the original module,
+ -- because only that will have the source.
+ origMod = nameModule name
wikiLink =
case maybe_wiki_url of