From bd07e056911601352351fde03a8947f534f50fb8 Mon Sep 17 00:00:00 2001 From: Brian McKenna Date: Sun, 15 Feb 2026 23:44:40 +1100 Subject: [PATCH] Print Claude's raw output --- src/Bot/Claude.hs | 2 ++ 1 file changed, 2 insertions(+) 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 ->