aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLibravatar Alexander Foremny <aforemny@posteo.de>2023-12-08 07:01:17 +0100
committerLibravatar Alexander Foremny <aforemny@posteo.de>2023-12-08 07:01:17 +0100
commit72ec82c49c0feaba61a9d8f5728b603dfa9a7a28 (patch)
treec11ec77bdf33788a6427e27257fe6deddf572c70
parent1a0c8e3444f94f6904e3b53e508e37fe5dbae64d (diff)
chore: change color of `log` keywords
-rw-r--r--app/IssueEvent.hs23
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