strip tags from description

1 files changed, 7 insertions, 1 deletions

diff --git a/app/Main.hs b/app/Main.hs
index 151115e..44b4242 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -134,7 +134,13 @@ showMatches issues = do
                 [ [P.annotate P.bold (P.pretty issue.title)],
                   if not (T.null issue.description)
                     then [P.pretty issue.description]
-                    else []
+                    else [],
+                  map
+                    ( \(I.Tag k v) ->
+                        P.annotate (P.colorDull P.Yellow) $
+                          P.pretty ("@" `T.append` k `T.append` " " `T.append` v)
+                    )
+                    issue.tags
                 ]
             )
       )