From 99943b06bc4fea0374a567fc1f7fc8fb06b8c70b Mon Sep 17 00:00:00 2001
From: Brian McKenna <brian@brianmckenna.org>
Date: Sun, 15 Feb 2026 23:37:35 +1100
Subject: [PATCH] Add some debug info to stdout

---
 src/Bot/Review.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/src/Bot/Review.hs b/src/Bot/Review.hs
index f3636f6..d49f505 100644
--- a/src/Bot/Review.hs
+++ b/src/Bot/Review.hs
@@ -24,6 +24,8 @@ handleEvent cfg event = do
   putStrLn $ "Bot user: " <> T.unpack botUser
 
   -- Check trigger
+  putStrLn $ "Event: " <> showEvent event
+  putStrLn $ "Trigger phrase: " <> T.unpack (cfgTriggerPhrase cfg')
   case checkTrigger cfg' event of
     NotTriggered -> putStrLn "No trigger found, exiting."
     Triggered prNum -> do
@@ -166,3 +168,22 @@ eventSender = \case
   EvIssueComment ice      -> iceSender ice
   EvPRReview prre         -> prreSender prre
   EvPRReviewComment prrce -> prrceSender prrce
+
+showEvent :: Event -> String
+showEvent = \case
+  EvPullRequest pre ->
+    "PullRequest action=" <> T.unpack (preAction pre)
+    <> " number=" <> show (preNumber pre)
+  EvIssueComment ice ->
+    "IssueComment action=" <> T.unpack (iceAction ice)
+    <> " number=" <> show (iceNumber ice)
+    <> " isPull=" <> show (iceIsPull ice)
+    <> " body=" <> show (iceCommentBody ice)
+  EvPRReview prre ->
+    "PRReview action=" <> T.unpack (prreAction prre)
+    <> " number=" <> show (prreNumber prre)
+    <> " body=" <> show (prreReviewBody prre)
+  EvPRReviewComment prrce ->
+    "PRReviewComment action=" <> T.unpack (prrceAction prrce)
+    <> " number=" <> show (prrceNumber prrce)
+    <> " body=" <> show (prrceCommentBody prrce)