record both creation and update in provenance

1 files changed, 10 insertions, 1 deletions

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
                         }
                 )