diff --git a/src/Bot/Claude.hs b/src/Bot/Claude.hs index 959329a..0150ffd 100644 --- 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 ->