From 775540e3eeb6c2259e654151b18aed9927867949 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Mon, 27 Nov 2023 13:28:31 +0100 Subject: don't cache `internalTags` --- app/History/CommitInfo.hs | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'app/History/CommitInfo.hs') diff --git a/app/History/CommitInfo.hs b/app/History/CommitInfo.hs index 865fcc4..94e2f96 100644 --- a/app/History/CommitInfo.hs +++ b/app/History/CommitInfo.hs @@ -16,7 +16,6 @@ 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) @@ -58,12 +57,7 @@ fromPartialCommitInfos (partialCommitInfo : partialCommitInfos) = ) ) <$> old.provenance - <*> new.provenance, - internalTags = - I.internalTags - new.title - old.provenance - (I.tagValuesOf "type" new.internalTags) + <*> new.provenance } ) ( \old -> @@ -104,13 +98,12 @@ diffCommitInfos oldInfo newInfo = -- TODO Fix issue comparison -- --- Because issues carry `provenance` and `internalTags`, issues compare --- unequally when we want them to be equal. +-- Because issues carry `provenance` issues compare unequally when we want +-- them to be equal. clear :: Issue -> Issue clear i = i { provenance = Nothing, - internalTags = [], start = Position 0 0, end = Position 0 0, file = "" -- cgit v1.2.3