chore: change color of `log` keywords

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