chore: define `(._N)` accessors for tuples

1 files changed, 2 insertions, 1 deletions

diff --git a/app/History.hs b/app/History.hs
index 9501b1b..6247108 100644
--- a/app/History.hs
+++ b/app/History.hs
@@ -8,6 +8,7 @@ import History.CommitInfo (CommitInfo (..), fromPartialCommitInfos, issueEvents)
 import History.IssueEvent (IssueEvent (..))
 import History.PartialCommitInfo (getPartialCommitInfos)
 import Issue (Issue)
+import Tuple ()
 import Prelude hiding (id, lines)
 
 -- TODO Reduce cached data size
@@ -30,6 +31,6 @@ getHistory :: IO [(CommitHash, [IssueEvent], [Issue])]
 getHistory = do
   commitInfos <- fromPartialCommitInfos <$> getPartialCommitInfos
   let commitHashes = map (.hash) commitInfos
-      issueEventses = map snd $ issueEvents commitInfos
+      issueEventses = map (._2) $ issueEvents commitInfos
       issueses = map (.issues) commitInfos
   pure (zip3 commitHashes issueEventses issueses)