Merge pull request #1418 from rhendric/rhendric/markup-hyperlink-fix

Fix hyperlink rendering in package description

Author: ysangkok

src/Distribution/Server/Pages/Package/HaddockHtml.hs

@@ -27,7 +27,7 @@ htmlMarkup modResolv = Markup {
   markupOrderedList   = ordList . map snd,
   markupDefList       = defList,
   markupCodeBlock     = pre,
-  markupHyperlink     = \(Hyperlink url mLabel) -> anchor ! [href url] << maybe url showHtmlFragment mLabel,
+  markupHyperlink     = \(Hyperlink url mLabel) -> anchor ! [href url] << fromMaybe (toHtml url) mLabel,
   markupAName         = \aname -> namedAnchor aname << toHtml "",
   markupPic           = \(Picture uri mtitle) -> image ! (src uri : maybe [] (return . title) mtitle),
   markupMathInline    = \mathjax -> toHtml ("\\(" ++ mathjax ++ "\\)"),