aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-10-16 17:34:30 +0000
committerDavid Waern <david.waern@gmail.com>2010-10-16 17:34:30 +0000
commit0a93ff502d346fbbe809a336814a837aa10f120e (patch)
tree2fc6a1e503234d4f5c68aca889ab1b1a3456e11d /src/Haddock/Backends/Xhtml.hs
parent3ded4303dee8cf4cca6a91382f54bed37546631f (diff)
Solve conflicts
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
-rw-r--r--src/Haddock/Backends/Xhtml.hs28
1 files changed, 15 insertions, 13 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 433ea212..9baa929e 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -598,7 +598,7 @@ ppModuleContents quali exports
| lev <= n = ( [], items )
| otherwise = ( html:secs, rest2 )
where
- html = linkedAnchor id0 << docToHtml doc +++ mk_subsections ssecs
+ html = linkedAnchor (groupId id0) << docToHtml quali doc +++ mk_subsections ssecs
(ssecs, rest1) = process lev rest
(secs, rest2) = process n rest1
process n (_ : rest) = process n rest
@@ -619,18 +619,20 @@ numberSectionHeadings exports = go 1 exports
= other : go n es
-processExport :: Bool -> LinksInfo -> Bool -> (ExportItem DocName) -> Maybe Html
-processExport summary _ _ (ExportGroup lev id0 doc)
- = nothingIf summary $ groupTag lev ! [identifier id0] << docToHtml doc
-processExport summary links unicode (ExportDecl decl doc subdocs insts)
- = processDecl summary $ ppDecl summary links decl doc insts subdocs unicode
-processExport summary _ _ (ExportNoDecl y [])
- = processDeclOneLiner summary $ ppDocName y
-processExport summary _ _ (ExportNoDecl y subs)
- = processDeclOneLiner summary $ ppDocName y +++ parenList (map ppDocName subs)
-processExport summary _ _ (ExportDoc doc)
- = nothingIf summary $ docSection doc
-processExport summary _ _ (ExportModule mdl)
+processExport :: Bool -> LinksInfo -> Bool -> Qualification
+ -> (ExportItem DocName) -> Maybe Html
+processExport summary _ _ quali (ExportGroup lev id0 doc)
+ = nothingIf summary $ groupHeading lev id0 << docToHtml quali doc
+processExport summary links unicode quali (ExportDecl decl doc subdocs insts)
+ = processDecl summary $ ppDecl summary links decl doc insts subdocs unicode quali
+processExport summary _ _ quali (ExportNoDecl y [])
+ = processDeclOneLiner summary $ ppDocName quali y
+processExport summary _ _ quali (ExportNoDecl y subs)
+ = processDeclOneLiner summary $
+ ppDocName quali y +++ parenList (map (ppDocName quali) subs)
+processExport summary _ _ quali (ExportDoc doc)
+ = nothingIf summary $ docSection quali doc
+processExport summary _ _ _ (ExportModule mdl)
= processDeclOneLiner summary $ toHtml "module" <+> ppModule mdl