diff options
author | Christopher Baines <mail@cbaines.net> | 2019-03-07 21:51:19 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-03-07 21:51:19 +0000 |
commit | ccb429c8b96504ab20347152d0b38721199d911a (patch) | |
tree | 991216a00d589f5fcffe8e063b364eafd3327978 /guix-data-service | |
parent | bbf8cc1c34cdb331d09b47907cf2c009e00ef1b8 (diff) | |
download | data-service-ccb429c8b96504ab20347152d0b38721199d911a.tar data-service-ccb429c8b96504ab20347152d0b38721199d911a.tar.gz |
Improve logging in builds.scm
Diffstat (limited to 'guix-data-service')
-rw-r--r-- | guix-data-service/builds.scm | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index a6802ac..26f24fc 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -23,7 +23,9 @@ build-servers)))) (define (query-build-server conn id url) + (simple-format #t "\nFetching pending builds\n") (process-pending-builds conn id url) + (simple-format #t "\nFetching unseen derivations\n") (process-derivations conn id url)) (define (process-pending-builds conn build-server-id url) @@ -74,6 +76,9 @@ ((or #f #()) (match (fetch-queued-builds-for-derivation url derivation-file-name) ((or #f #()) + (simple-format #t "\nwarning: couldn't find build for ~A on ~A\n" + derivation-file-name + url) #f) (#(status) status))) @@ -88,7 +93,7 @@ (lambda args (display args) (newline) - (simple-format #t "error parsing: ~A\n" string) + (simple-format #t "\nerror parsing: ~A\n" string) #f))) (define (fetch-latest-builds-for-derivation base-url derivation-file-name) @@ -104,7 +109,7 @@ (json-string->scm (bytevector->string body "utf-8"))) (else - (simple-format #t "error: response code ~A: ~A\n" url code) + (simple-format #t "\nerror: response code ~A: ~A\n" url code) #f))))) (define (fetch-queued-builds-for-derivation base-url derivation-file-name) @@ -120,7 +125,7 @@ (json-string->scm (bytevector->string body "utf-8"))) (else - (simple-format #t "error: response code ~A: ~A\n" url code) + (simple-format #t "\nerror: response code ~A: ~A\n" url code) #f))))) (define (fetch-build url id) @@ -132,7 +137,11 @@ ((eq? (response-code response) 200) (json-string->scm (bytevector->string body "utf-8"))) - (else #f)))) + (else + (simple-format #t "\nwarning: couldn't find build ~A on ~A\n" + id + url) + #f)))) (define (select-pending-builds conn build-server-id) (define query |