don't cache `internalTags`

1 files changed, 3 insertions, 10 deletions

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 = ""