From 80d1737c7ca12d3338428553968b37e3f5c2de4a Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Thu, 30 Nov 2023 04:02:11 +0100 Subject: chore: define `(._N)` accessors for tuples --- app/History.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'app/History.hs') 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) -- cgit v1.2.3