Print Claude's raw output

This commit is contained in:
Brian McKenna 2026-02-15 23:44:40 +11:00
parent 066d38d738
commit bd07e05691

View File

@ -71,6 +71,8 @@ invokeClaudeReview prompt = do
, "--max-turns", "1" , "--max-turns", "1"
, "--json-schema", reviewJsonSchema , "--json-schema", reviewJsonSchema
] "" ] ""
putStrLn $ "Claude stdout: " <> take 2000 stdout
putStrLn $ "Claude stderr: " <> take 2000 stderr_
case exitCode of case exitCode of
ExitSuccess -> pure $ parseClaudeJsonOutput stdout ExitSuccess -> pure $ parseClaudeJsonOutput stdout
ExitFailure code -> ExitFailure code ->