From 773dd51aec39ef4ef8d5818ffe279b0737d4d567 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Thu, 30 Nov 2023 13:28:30 +0100
Subject: feat: add -p|--patch to log command

---
 app/History.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app/History.hs')

diff --git a/app/History.hs b/app/History.hs
index 6247108..6a4ddbe 100644
--- a/app/History.hs
+++ b/app/History.hs
@@ -31,6 +31,6 @@ getHistory :: IO [(CommitHash, [IssueEvent], [Issue])]
 getHistory = do
   commitInfos <- fromPartialCommitInfos <$> getPartialCommitInfos
   let commitHashes = map (.hash) commitInfos
-      issueEventses = map (._2) $ issueEvents commitInfos
       issueses = map (.issues) commitInfos
+  issueEventses <- map (._2) <$> issueEvents commitInfos
   pure (zip3 commitHashes issueEventses issueses)
-- 
cgit v1.2.3