brian.mckenna/os-ai-pr-bot
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Add some debug info to stdout #3

Merged
brian.mckenna merged 1 commits from debugging into main 2026-02-15 12:38:13 +00:00
Conversation 0 Commits 1 Files Changed 1 +21
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 99943b06bc - Show all commits

21
src/Bot/Review.hs
View File

@ -24,6 +24,8 @@ handleEvent cfg event = do
putStrLn $ "Bot user: " <> T.unpack botUser putStrLn $ "Bot user: " <> T.unpack botUser
-- Check trigger -- Check trigger
putStrLn $ "Event: " <> showEvent event
putStrLn $ "Trigger phrase: " <> T.unpack (cfgTriggerPhrase cfg')
case checkTrigger cfg' event of case checkTrigger cfg' event of
NotTriggered -> putStrLn "No trigger found, exiting." NotTriggered -> putStrLn "No trigger found, exiting."
Triggered prNum -> do Triggered prNum -> do
@ -166,3 +168,22 @@ eventSender = \case
EvIssueComment ice -> iceSender ice EvIssueComment ice -> iceSender ice
EvPRReview prre -> prreSender prre EvPRReview prre -> prreSender prre
EvPRReviewComment prrce -> prrceSender prrce 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)