From b0cbe84cef6c8504d692fc65cbfd3427bd4f1f6f Mon Sep 17 00:00:00 2001
From: Fabian Kirchner <kirchner@posteo.de>
Date: Fri, 13 Oct 2023 19:14:13 +0200
Subject: do not strip tags from description

---
 app/Issue.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'app')

diff --git a/app/Issue.hs b/app/Issue.hs
index d163df7..0e3ac2b 100644
--- a/app/Issue.hs
+++ b/app/Issue.hs
@@ -41,7 +41,7 @@ fromMatch result match =
       Just
         Issue
           { title = title,
-            description = stripTags <$> description,
+            description = description,
             start = match.start,
             end = match.end,
             tags = maybe [] I.extractTags description,
@@ -57,7 +57,3 @@ marker = "TODO"
 
 stripMarker :: Text -> Text
 stripMarker text = maybe text T.stripStart (T.stripPrefix marker text)
-
-stripTags :: Text -> Text
-stripTags text =
-  T.strip (T.unlines (filter (not . T.isPrefixOf "@") (T.lines text)))
-- 
cgit v1.2.3