From 1890844c731b4c5c648b1871193947144aefa3dd Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Thu, 5 Oct 2023 09:46:55 +0200
Subject: refactor issue text extraction

---
 app/Main.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index cc8bde3..f48d824 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -166,9 +166,7 @@ showMatches issues = do
           P.vsep
             ( concat
                 [ [P.annotate P.bold (P.pretty issue.title)],
-                  if not (T.null issue.description)
-                    then [P.pretty issue.description]
-                    else [],
+                  maybe [] ((: []) . P.pretty) issue.description,
                   map
                     ( \(I.Tag k v) ->
                         P.annotate (P.colorDull P.Yellow) $
-- 
cgit v1.2.3