guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Add some catch all error handling to fetch-build-for-derivation

Browse source
This commit is contained in:
Christopher Baines 2019-03-08 08:22:52 +00:00
parent 7a00bff2c3
commit 5bc0e7d4bf
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 20 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
guix-data-service/builds.scm
View file

@ -72,18 +72,26 @@
(select-derivations-with-no-known-build conn))) (select-derivations-with-no-known-build conn)))
(define (fetch-build-for-derivation url derivation-file-name) (define (fetch-build-for-derivation url derivation-file-name)
(match (fetch-latest-builds-for-derivation url derivation-file-name) (catch
((or #f #()) #t
(match (fetch-queued-builds-for-derivation url derivation-file-name) (lambda ()
((or #f #()) (match (fetch-latest-builds-for-derivation url derivation-file-name)
(simple-format #t "\nwarning: couldn't find build for ~A on ~A\n" ((or #f #())
derivation-file-name (match (fetch-queued-builds-for-derivation url derivation-file-name)
url) ((or #f #())
#f) (simple-format #t "\nwarning: couldn't find build for ~A on ~A\n"
(#(status) derivation-file-name
status))) url)
(#(status) #f)
status))) (#(status)
status)))
(#(status)
status)))
(lambda args
(simple-format #t "\nerror: couldn't fetch build for ~A on ~A\n"
derivation-file-name url)
(simple-format #t "error: ~A\n" args)
#f)))
(define (json-string->scm* string) (define (json-string->scm* string)
(catch (catch