aboutsummaryrefslogtreecommitdiffstats
path: root/app/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/Main.hs')
-rw-r--r--app/Main.hs14
1 files changed, 1 insertions, 13 deletions
diff --git a/app/Main.hs b/app/Main.hs
index f798d33..c163d40 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -295,19 +295,6 @@
-- allow that). The first marker should have priority in case we have to pick
-- one.
--- TODO Support issue comments
---
--- Currently, comments do not get picked up in issue descriptions; see the
--- issue below.
---
--- I would like to parse comments (much like issues), and associate them with
--- the preceding issue.
---
--- `anissue show` should then show all comments below the current output.
---
--- @priority high
--- @assigned Alexander Foremny
-
-- TODO Add command for (re)generating the cache
--
-- When running `anissue cache generate`, we will only generated the
@@ -667,6 +654,7 @@ main = do
let s =
(LT.fromStrict (T.intercalate " " issue.markers) <> " " <> LT.fromStrict issue.title)
<> maybe "" (("\n\n" <>) . LT.fromStrict) issue.description
+ <> LT.intercalate "\n" (map ((("***\n" :: LT.Text) <>) . LT.fromStrict) issue.comments)
if edit
then do
withSystemTempFile (printf "%s.md" id) $ \fp h -> do