aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorRoman Cheplyaka <roma@ro-che.info>2008-11-27 22:27:36 +0000
committerRoman Cheplyaka <roma@ro-che.info>2008-11-27 22:27:36 +0000
commite2ea02230dab2810f1e703ba1ed9f5ff042ba52a (patch)
tree15ef310d14949f285d091d8c5ed2378b60aa4a65 /src/Haddock/Backends
parent1e344dca0d63ce76a24aa36d35e611bdaa08fa8d (diff)
Allow referring to a specific section within a module in a module link
Fixes #65
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Html.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index b9922262..7302cf2e 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -1592,7 +1592,7 @@ parHtmlMarkup ppId = Markup {
markupString = toHtml,
markupAppend = (+++),
markupIdentifier = tt . ppId . head,
- markupModule = \m -> ppModule (mkModuleNoPackage m) "",
+ markupModule = \m -> let (mod,ref) = break (=='#') m in ppModule (mkModuleNoPackage mod) ref,
markupEmphasis = emphasize . toHtml,
markupMonospaced = tt . toHtml,
markupUnorderedList = ulist . concatHtml . map (li <<),