diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-10-17 09:29:31 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-10-17 09:29:31 +0200 |
| commit | 0d7cb474e6eb9a8bb5b6c9b1adf09b3b29760ff1 (patch) | |
| tree | be5608ddfac7cbe3fa00f9afa3b663aae19833df /app/Issue.hs | |
| parent | 236316221dc1fe4152028d7720b68a437bb3ea52 (diff) | |
allow empty-valued (bool) tags
Diffstat (limited to 'app/Issue.hs')
| -rw-r--r-- | app/Issue.hs | 6 |
1 files changed, 2 insertions, 4 deletions
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 |