diff options
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 |