From 4e31ecf2c139455e2d2459ff98f2d4589f7b9dd2 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 30 Nov 2023 14:39:16 +0100 Subject: chore: make issue ids obligatory --- app/Issue/Meta.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'app/Issue') diff --git a/app/Issue/Meta.hs b/app/Issue/Meta.hs index 4c237a4..19ccab3 100644 --- a/app/Issue/Meta.hs +++ b/app/Issue/Meta.hs @@ -4,7 +4,6 @@ module Issue.Meta ) where -import Data.Text qualified as T import Issue (Issue (..)) import Issue.Tag (Tag, tagValue) @@ -20,7 +19,7 @@ getMeta issues issue = concatMap ( \issueOther -> let tagsRelevant = - filter (\tag -> tagValue tag == fmap T.pack issue.id) issueOther.tags + filter (\tag -> tagValue tag == Just issue.id) issueOther.tags in map (\tag -> (issueOther, tag)) tagsRelevant ) issues -- cgit v1.2.3