From 72ec82c49c0feaba61a9d8f5728b603dfa9a7a28 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 8 Dec 2023 07:01:17 +0100
Subject: chore: change color of `log` keywords

---
 app/IssueEvent.hs | 23 ++++++++++-------------
 1 file 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
-- 
cgit v1.2.3