Print Claude's raw output
This commit is contained in:
parent
066d38d738
commit
bd07e05691
@ -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 ->
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user