diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-11-30 14:39:16 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-11-30 14:40:13 +0100 |
| commit | 4e31ecf2c139455e2d2459ff98f2d4589f7b9dd2 (patch) | |
| tree | 9ea519319dd58fb419dc833088cd9217beb121c9 /app/Issue/Meta.hs | |
| parent | f82d2c4be5965ae8b4b7dea1d2a00cf8a1f92954 (diff) | |
chore: make issue ids obligatory
Diffstat (limited to 'app/Issue/Meta.hs')
| -rw-r--r-- | app/Issue/Meta.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |