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