branch: main
commit bd77b21fc032ececc9b5f58876b4ce6d8a8c4d5b
Author: Romain GARBAGE <romain.garb...@inria.fr>
AuthorDate: Mon May 5 11:45:17 2025 +0200
forgejo: Add debug information for unsuccessful API calls.
* src/cuirass/forges/forgejo.scm (forgejo-request): Log response body for
unsuccessful API calls.
Signed-off-by: Ludovic Courtès <l...@gnu.org>
Modified-by: Ludovic Courtès <l...@gnu.org>
---
src/cuirass/forges/forgejo.scm | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/src/cuirass/forges/forgejo.scm b/src/cuirass/forges/forgejo.scm
index 42fa3f3..3bef964 100644
--- a/src/cuirass/forges/forgejo.scm
+++ b/src/cuirass/forges/forgejo.scm
@@ -240,11 +240,16 @@ METHOD. Returns the body of the response as a Guile
object."
(raise
(condition
(&forgejo-invalid-response-error
- (headers (response-headers response)))))))))
+ (headers (response-headers response))))))))
+ (return-value (json-string->scm
+ (bytevector->string response-body charset))))
(log-info "Forgejo request: ~a ~a -> ~a"
method (uri->string uri) (response-code response))
- (json-string->scm
- (bytevector->string response-body charset))))
+ (unless (= 200 (response-code response))
+ (log-error "Forgejo request failed: ~a ~a -> ~a"
+ method (uri->string uri) (response-code response))
+ (log-debug "Forgejo request: response body '~s'" return-value))
+ return-value))
;;;
;;; REST API
