Print Claude's raw output

2026-02-15 23:44:40 +11:00 · 2026-02-15 23:44:40 +11:00 · bd07e05691
commit bd07e05691
parent 066d38d738
1 changed files with 2 additions and 0 deletions
--- a/src/Bot/Claude.hs
+++ b/src/Bot/Claude.hs
@ -71,6 +71,8 @@ invokeClaudeReview prompt = do
    , "--max-turns", "1"
    , "--json-schema", reviewJsonSchema
    ] ""
+  putStrLn $ "Claude stdout: " <> take 2000 stdout
+  putStrLn $ "Claude stderr: " <> take 2000 stderr_
  case exitCode of
    ExitSuccess -> pure $ parseClaudeJsonOutput stdout
    ExitFailure code ->