branch: main
commit a5cc3ff8901617764fe2ed67ee290dde82e2a805
Author: Romain GARBAGE <[email protected]>
AuthorDate: Thu Mar 27 13:03:37 2025 +0100
forges: Add debugging information to the system log.
* src/cuirass/forges.scm (forge-get-token): Add debugging information.
* src/cuirass/forges/forgejo.scm (forgejo-handle-notification): Add
debugging information.
Signed-off-by: Ludovic Courtès <[email protected]>
---
src/cuirass/forges.scm | 2 ++
src/cuirass/forges/forgejo.scm | 2 ++
2 files changed, 4 insertions(+)
diff --git a/src/cuirass/forges.scm b/src/cuirass/forges.scm
index 2404543..4cd0e7c 100644
--- a/src/cuirass/forges.scm
+++ b/src/cuirass/forges.scm
@@ -69,6 +69,8 @@
both strings. As an exemple, a token for a Git repository located at
\"https://codeberg.org/owner/repo\"; could be retrieved by setting HOST-NAME to
\"codeberg.org\" and NAMESPACE to \"owner/repo\"."
+ (log-debug "token lookup for server '~a' (namespace '~a')"
+ host-name namespace)
(let* ((file-name (string-append (%forge-token-directory)
"/"
host-name))
diff --git a/src/cuirass/forges/forgejo.scm b/src/cuirass/forges/forgejo.scm
index aa61b34..f80a541 100644
--- a/src/cuirass/forges/forgejo.scm
+++ b/src/cuirass/forges/forgejo.scm
@@ -409,6 +409,8 @@ EVALUATION-FAILED are numbers and BUILD-RESULTS is a list
of build records."
(string-join failed-builds ",
")))))
(string-append header successes failures)))
(#t #f))))
+ (log-debug "prepared Forgejo notification for spec '~a': ~a"
+ (specification-name spec) message)
;; XXX: Raise an error when no message has been generated?
(when message
(update-forgejo-pull-request-from-spec spec message))))
