From f849fe4f8bd424a57de870d6cb8f038221dd7ff2 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Fri, 20 Oct 2023 09:55:53 +0200 Subject: add internal tag @modifiedAt --- app/Issue/Tag.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'app/Issue/Tag.hs') diff --git a/app/Issue/Tag.hs b/app/Issue/Tag.hs index 2947ec9..8bbbba9 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 (Provenance (..), Commit(..)) +import Issue.Provenance (Commit (..), Provenance (..)) data Tag = Tag Text (Maybe Text) deriving (Show, Generic, Binary, Eq) @@ -46,7 +46,8 @@ internalTags title provenance' = maybe [] ( \provenance -> - [ Tag "createdAt" $ Just $ pack $ show $ utctDay provenance.first.date + [ Tag "createdAt" $ Just $ pack $ show $ utctDay provenance.first.date, + Tag "modifiedAt" $ Just $ pack $ show $ utctDay provenance.last.date ] ) provenance' -- cgit v1.2.3