Add some debug info to stdout

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)