diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-10-20 09:55:53 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-11-07 09:50:52 +0100 |
| commit | f849fe4f8bd424a57de870d6cb8f038221dd7ff2 (patch) | |
| tree | db1c7744d2bc3e8577e0cdce6031625d684894f5 /app/Issue/Tag.hs | |
| parent | eafbd88429a80f058efaa4efd28fbfb8271065c3 (diff) | |
add internal tag @modifiedAt
Diffstat (limited to 'app/Issue/Tag.hs')
| -rw-r--r-- | app/Issue/Tag.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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' |