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/Sort.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app/Issue/Sort.hs')

diff --git a/app/Issue/Sort.hs b/app/Issue/Sort.hs
index 1a0b3ff..2195244 100644
--- a/app/Issue/Sort.hs
+++ b/app/Issue/Sort.hs
@@ -63,6 +63,6 @@ applySortBy :: SortBy -> Issue -> [Text]
 applySortBy (SortByTag k) i =
   sort
     ( mapMaybe
-        (\(Tag k' v) -> if k' == k then Just v else Nothing)
+        (\(Tag k' v) -> if k' == k then v else Nothing)
         (i.tags ++ i.internalTags)
     )
-- 
cgit v1.2.3