diff --git a/src/XmlHelper.hs b/src/XmlHelper.hs index 0e4345d00c67f5ed7b922d05deb6c3ef86c64260..69338ced7863909ea57dc7e4726173b466045beb 100644 --- a/src/XmlHelper.hs +++ b/src/XmlHelper.hs @@ -124,8 +124,8 @@ mdElem2xml (Text s) = mdtxt2xml s mdElem2xml (Emph s) = makeHtml "i" "" "" [mdtxt2xml s] mdElem2xml (Strong s) = makeHtml "b" "" "" [mdtxt2xml s] mdElem2xml (HRef s url) = if s==url - then htmlHref url "" [code [mdtxt2xml s]] - else htmlHref url "" [mdtxt2xml s] + then code [mdtxt2xml s] + else mdtxt2xml s mdElem2xml (Code s) = code [htmlTextNode s] mdElem2xml (CodeBlock s) = makeHtml "pre" "" "search-result-item-code" [code [htmlTextNode s]] mdElem2xml (Quote md) = makeHtml "blockquote" "" "search-result-item-quote" (mdDoc2xml md)