From 0d7cb474e6eb9a8bb5b6c9b1adf09b3b29760ff1 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Tue, 17 Oct 2023 09:29:31 +0200
Subject: allow empty-valued (bool) tags

---
 app/Issue.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'app/Issue.hs')

diff --git a/app/Issue.hs b/app/Issue.hs
index 8804929..efb61b7 100644
--- a/app/Issue.hs
+++ b/app/Issue.hs
@@ -29,10 +29,8 @@ data Issue = Issue
 
 id :: Issue -> Maybe String
 id issue =
-  (\(Tag _ v) -> T.unpack v)
-    <$> ( find (\(Tag k _) -> k == "id") $
-            issue.tags ++ issue.internalTags
-        )
+  (\(Tag _ v) -> T.unpack <$> v)
+    =<< find (\(Tag k _) -> k == "id") (issue.tags ++ issue.internalTags)
 
 fromMatch :: FilePath -> G.Result -> G.Match -> IO (Maybe Issue)
 fromMatch cwd result match = do
-- 
cgit v1.2.3