diff options
Diffstat (limited to 'app/Issue/Tag.hs')
| -rw-r--r-- | app/Issue/Tag.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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' |