diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-10-20 09:55:13 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-11-07 09:50:52 +0100 |
| commit | eafbd88429a80f058efaa4efd28fbfb8271065c3 (patch) | |
| tree | 35ae08955e34014fa6666bab26807a42fbbbbcee /app/Issue/Tag.hs | |
| parent | ea1236f2cf6d3ef4b739b2ca28f47a3bbed42295 (diff) | |
record both creation and update in provenance
Diffstat (limited to 'app/Issue/Tag.hs')
| -rw-r--r-- | app/Issue/Tag.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Issue/Tag.hs b/app/Issue/Tag.hs index 42a371d..2947ec9 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 (..)) +import Issue.Provenance (Provenance (..), Commit(..)) data Tag = Tag Text (Maybe Text) deriving (Show, Generic, Binary, Eq) @@ -46,7 +46,7 @@ internalTags title provenance' = maybe [] ( \provenance -> - [ Tag "createdAt" $ Just $ pack $ show $ utctDay provenance.date + [ Tag "createdAt" $ Just $ pack $ show $ utctDay provenance.first.date ] ) provenance' |