diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-19 05:20:53 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-19 05:20:53 +0000 |
| commit | d3ebf5f25ead73877b38302cbe8b1ed13e993917 (patch) | |
| tree | c185060caab9a83c4fc0d41324bb90f26a7907b0 /src/Haddock/Backends/Xhtml.hs | |
| parent | a7aad74a978e2e1d313c23863c7a91983bbc4848 (diff) | |
refactoring of anchor ID and fragment handling
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index 786a4996..a8e2e8e0 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -318,7 +318,7 @@ mkNode ss p (Node s leaf pkg short ts) = htmlModule = thespan ! [theclass "module" ] << (if leaf then ppModule (mkModule (stringToPackageId (fromMaybe "" pkg)) - (mkModuleName mdl)) "" + (mkModuleName mdl)) else toHtml s ) @@ -597,8 +597,7 @@ processForMiniSynopsis _ _ _ = Nothing ppNameMini :: Module -> OccName -> Html ppNameMini mdl nm = - anchor ! [ href ( moduleHtmlFile mdl ++ "#" - ++ (escapeStr (anchorNameStr nm))) + anchor ! [ href (moduleNameUrl mdl nm) , target mainFrameName ] << ppBinder' nm @@ -656,7 +655,7 @@ processExport summary _ _ (ExportNoDecl y subs) processExport summary _ _ (ExportDoc doc) = nothingIf summary $ docSection doc processExport summary _ _ (ExportModule mdl) - = processDeclOneLiner summary $ toHtml "module" <+> ppModule mdl "" + = processDeclOneLiner summary $ toHtml "module" <+> ppModule mdl nothingIf :: Bool -> a -> Maybe a nothingIf True _ = Nothing |