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/Main.hs | |
| parent | eafbd88429a80f058efaa4efd28fbfb8271065c3 (diff) | |
add internal tag @modifiedAt
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/app/Main.hs b/app/Main.hs index 28a32bb..3d71ebc 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -616,8 +616,10 @@ main = do \I.Provenance {first} -> ( keyword "by" <+> value (first.author.name <> " <" <> first.author.email <> ">") ) - date' = fromProvenance $ + createdAt = fromProvenance $ \I.Provenance {first} -> keyword "on" <+> value (show (utctDay first.date)) + modifiedAt = fromProvenance $ + \I.Provenance {last = last'} -> keyword "modified" <+> value (show (utctDay last'.date)) fromProvenanceDef def = flip (maybe def) issue.provenance fromProvenance = flip fmap issue.provenance @@ -630,7 +632,8 @@ main = do Just fileAndRow, Just commit, author, - date' + createdAt, + modifiedAt ] ) issues |