chore: compute issues and issue events separately

1 files changed, 7 insertions, 8 deletions

diff --git a/app/Main.hs b/app/Main.hs
index 603ab2a..1b06a0d 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -363,7 +363,6 @@ import Data.Text.IO qualified as T
 import Data.Text.Lazy qualified as LT
 import Data.Text.Lazy.IO qualified as LT
 import Git qualified
-import History (History (..), getHistory)
 import History qualified as H
 import Issue (Issue (..))
 import Issue qualified as I
@@ -534,7 +533,7 @@ idArg =
         <> O.completer
           ( O.listIOCompleter $
               map T.unpack . M.keys . (.issues)
-                <$> getHistory
+                <$> H.getIssues
           )
     )
 
@@ -569,7 +568,7 @@ main = do
           . I.applyPath files
           . I.applyClosed closed
           . (M.elems . (.issues))
-          <$> getHistory
+          <$> H.getIssues
       let groupedIssues = I.groupIssuesByTag group ungroupedIssues
       putDoc colorize noPager width (group, groupedIssues)
     Options {colorize, noPager, width, command = List {sort, filters, files, group = Nothing, closed, detailed, edit}} -> do
@@ -579,20 +578,20 @@ main = do
           . I.applyPath files
           . I.applyClosed closed
           . (M.elems . (.issues))
-          <$> getHistory
+          <$> H.getIssues
       if edit
         then editIssues issues
         else
           putDoc colorize noPager width . (P.vsep . intersperse "") $
             map (if detailed then (P.render . P.Detailed) else (P.render . P.Summarized)) issues
     Options {colorize, noPager, width, command = Log {patch}} -> do
-      es <- reverse . (.issueEvents) <$> getHistory
+      es <- reverse . (.issueEvents) <$> H.getIssueEvents
       putDoc colorize noPager width $
         if patch
           then P.vsep . intersperse P.emptyDoc $ map (P.render . P.Detailed) es
           else P.vsep $ map (P.render . P.Summarized) es
     Options {colorize, noPager, width, command = Show {id, edit}} -> do
-      issues <- (.issues) <$> getHistory
+      issues <- (.issues) <$> H.getIssues
       issue <-
         case M.lookup (T.pack id) issues of
           Nothing -> die (printf "no issue with id `%s'\n" id)
@@ -601,7 +600,7 @@ main = do
         then editIssues [issue]
         else putDoc colorize noPager width $ showIssue (M.elems issues) issue
     Options {colorize, noPager, width, internalTags, command = Tags} -> do
-      issues <- (.issues) <$> getHistory
+      issues <- (.issues) <$> H.getIssues
       let tags =
             concatMap
               ( \issue ->
@@ -637,7 +636,7 @@ editIssues issues = withSystemTempDirectory "anissue-edit" (go issues)
           I.replaceText issue =<< T.readFile (fp issue)
         replaceTexts (issue : issues) = do
           I.replaceText issue =<< T.readFile (fp issue)
-          issues' <- H.getIssues Git.WorkingTree issue.file
+          issues' <- H.getIssuesOfFile Git.WorkingTree issue.file
           replaceTexts [fromMaybe issue (find ((==) issue.id . (.id)) issues') | issue <- issues]
 
 putDoc :: P.Render a => Color -> Bool -> Maybe Int -> a -> IO ()