From eafbd88429a80f058efaa4efd28fbfb8271065c3 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Fri, 20 Oct 2023 09:55:13 +0200 Subject: record both creation and update in provenance --- app/History/CommitInfo.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'app/History') diff --git a/app/History/CommitInfo.hs b/app/History/CommitInfo.hs index 8461b8e..b42e1ba 100644 --- a/app/History/CommitInfo.hs +++ b/app/History/CommitInfo.hs @@ -15,6 +15,7 @@ import History.CommitHash (CommitHash) import History.IssueEvent (IssueEvent (..)) import History.PartialCommitInfo (PartialCommitInfo (..)) import Issue (Issue (..), id) +import Issue.Provenance qualified as I import Issue.Tag qualified as I import TreeGrepper.Match (Position (..)) import Prelude hiding (id) @@ -44,7 +45,15 @@ fromPartialCommitInfos (partialCommitInfo : partialCommitInfos) = ( \old new -> Just new - { provenance = old.provenance, + { provenance = + (\oldProvenance newProvenance -> + ( I.Provenance + { first = oldProvenance.first, + last = newProvenance.last + } + ) + ) + <$> old.provenance <*> new.provenance, internalTags = I.internalTags new.title old.provenance } ) -- cgit v1.2.3