diff options
| author |  Fabian Kirchner <fabian.kirchner@hereon.de> | 2023-11-29 14:14:33 +0100 |
|---|---|---|
| committer | Fabian Kirchner <fabian.kirchner@hereon.de> | 2023-11-29 14:14:33 +0100 |
| commit | 91e188fbb70c20b939c221a95123934358d1c6c5 (patch) | |
| tree | 294e8d99b307e03a06a60f0b1520008d077a25f0 /app/Main.hs | |
| parent | e29e8381f302bacbfde5042f166cfedf7ada8e94 (diff) | |
feat: collect issues referencing issue
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/app/Main.hs b/app/Main.hs index d6f653c..a16ee7e 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -403,6 +403,7 @@ import Issue qualified as I import Issue.Filter (Filter, applyFilters) import Issue.Filter qualified as I import Issue.Group qualified as I +import Issue.Meta qualified as I import Issue.Provenance qualified as I import Issue.Sort (Sort, applySorts) import Issue.Sort qualified as I @@ -652,6 +653,7 @@ main = do case find ((==) (Just id) . I.id) issues of Nothing -> die (printf "no issue with id `%s'\n" id) Just issue -> pure issue + let meta = I.getMeta issues issue let s = (LT.fromStrict (T.intercalate " " issue.markers) <> " " <> LT.fromStrict issue.title) <> maybe "" (("\n\n" <>) . LT.fromStrict) issue.description |