diff options
Diffstat (limited to 'app/History.hs')
| -rw-r--r-- | app/History.hs | 3 |
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) |