diff options
Diffstat (limited to 'app/IssueEvent.hs')
| -rw-r--r-- | app/IssueEvent.hs | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/app/IssueEvent.hs b/app/IssueEvent.hs index 8f4cdd2..a7a190a 100644 --- a/app/IssueEvent.hs +++ b/app/IssueEvent.hs @@ -39,16 +39,13 @@ instance P.Render (P.Detailed IssueEvent) where instance P.Render (P.Summarized IssueEvent) where render (P.Summarized issueEvent) = - case issueEvent of - IssueCreated {hash, issue} -> - P.Summarized hash - <<< P.styled [P.color P.Green] "created" - <<< I.IssueTitle issue - IssueChanged {hash, issue} -> - P.Summarized hash - <<< P.styled [P.color P.Green] "changed" - <<< I.IssueTitle issue - IssueDeleted {hash, issue} -> - P.Summarized hash - <<< P.styled [P.color P.Green] "deleted" - <<< I.IssueTitle issue + P.Summarized issueEvent.hash + <<< ( case issueEvent of + IssueCreated {} -> + P.styled [P.color P.Blue] "created" + IssueChanged {} -> + P.styled [P.color P.Blue] "changed" + IssueDeleted {} -> + P.styled [P.color P.Blue] "deleted" + ) + <<< I.IssueTitle issueEvent.issue |