diff --git a/src/Distribution/Server/Pages/Package/HaddockHtml.hs b/src/Distribution/Server/Pages/Package/HaddockHtml.hs
index 8b5b3f0d5..542d7cc63 100644
--- a/src/Distribution/Server/Pages/Package/HaddockHtml.hs
+++ b/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 ++ "\\)"),