From 773dd51aec39ef4ef8d5818ffe279b0737d4d567 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 30 Nov 2023 13:28:30 +0100 Subject: feat: add -p|--patch to log command --- app/History/PartialCommitInfo.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'app/History/PartialCommitInfo.hs') 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 -- cgit v1.2.3