add author & editor to internal tags

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'