From be056a8b576ec0a98a1faba3123f7a8be7567a9e Mon Sep 17 00:00:00 2001 From: Jan-Hendrik Matthes Date: Tue, 19 Jun 2018 16:33:18 +0200 Subject: [PATCH] Remove links from search result item description --- src/XmlHelper.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/XmlHelper.hs b/src/XmlHelper.hs index 0e4345d..69338ce 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) -- GitLab