diff options
| -rw-r--r-- | app/Issue/GroupBy.hs | 2 | ||||
| -rw-r--r-- | app/Issue/Tag.hs | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/app/Issue/GroupBy.hs b/app/Issue/GroupBy.hs index 62f212e..2b9e514 100644 --- a/app/Issue/GroupBy.hs +++ b/app/Issue/GroupBy.hs @@ -18,8 +18,6 @@ import Options.Applicative qualified as O -- The internal makers `TODO`, `FIXME`, etc. should be available via the -- internal tag @type --- TODO Add author and editor as internal tags - groupByArg :: O.Parser (Maybe T.Text) groupByArg = O.optional diff --git a/app/Issue/Tag.hs b/app/Issue/Tag.hs index 8bbbba9..c2358a8 100644 --- a/app/Issue/Tag.hs +++ b/app/Issue/Tag.hs @@ -13,7 +13,7 @@ import Data.Text (Text, pack) import Data.Text qualified as T import Data.Time.Clock (UTCTime (utctDay)) import GHC.Generics (Generic) -import Issue.Provenance (Commit (..), Provenance (..)) +import Issue.Provenance (Author (..), Commit (..), Provenance (..)) data Tag = Tag Text (Maybe Text) deriving (Show, Generic, Binary, Eq) @@ -47,7 +47,9 @@ internalTags title provenance' = [] ( \provenance -> [ Tag "createdAt" $ Just $ pack $ show $ utctDay provenance.first.date, - Tag "modifiedAt" $ Just $ pack $ show $ utctDay provenance.last.date + Tag "modifiedAt" $ Just $ pack $ show $ utctDay provenance.last.date, + Tag "author" $ Just $ provenance.first.author.name, + Tag "editor" $ Just $ provenance.last.author.name ] ) provenance' |