feat: add -p|--patch to log command

1 files changed, 4 insertions, 6 deletions

diff --git a/app/History/PartialCommitInfo.hs b/app/History/PartialCommitInfo.hs
index 48b631e..21a890a 100644
--- a/app/History/PartialCommitInfo.hs
+++ b/app/History/PartialCommitInfo.hs
@@ -47,20 +47,18 @@ getPartialCommitInfos = do
 
 getCommitInfoOf :: CommitHash -> IO PartialCommitInfo
 getCommitInfoOf WorkingTree = do
-  (issuesWorkingTreeChanged, filesChanged) <- getIssuesAndFilesWorkingTreeChanged []
+  (issues, filesChanged) <- getIssuesAndFilesWorkingTreeChanged []
   pure $
     PartialCommitInfo
       { hash = WorkingTree,
-        filesChanged = filesChanged,
-        issues = issuesWorkingTreeChanged
+        ..
       }
 getCommitInfoOf (Commit hash) = cached (hash <> (T.pack ".changed")) $ \_ -> do
-  (issuesCommitChanged, filesChanged) <- getIssuesAndFilesCommitChanged hash
+  (issues, filesChanged) <- getIssuesAndFilesCommitChanged hash
   pure $
     PartialCommitInfo
       { hash = Commit hash,
-        filesChanged = filesChanged,
-        issues = issuesCommitChanged
+        ..
       }
 
 -- | Given the hash of a commit, get all issues in the files which have