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

Try harder to handle errors when loading new revisions

Browse source 
If the repl enters a bad state, attempt to exit, and catch failures in the
parent process, and rollback the open transaction.
This commit is contained in:
Christopher Baines 2019-05-01 09:24:38 +01:00
parent 24f234f6d8
commit a171287f27
1 changed files with 41 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -109,12 +109,27 @@
supported-systems
(list ,@(map car system-target-pairs))))
'())))
(lambda args
(simple-format (current-error-port)
"error: while processing ~A ignoring error: ~A\n"
(package-name package)
args)
'()))))
(lambda (key . args)
(if (and (eq? key 'system-error)
(eq? (car args) 'fport_write))
(begin
(simple-format
(current-error-port)
"error: while processing ~A, exiting: ~A: ~A\n"
(package-name package)
key
args)
(force-output)
(exit 1))
(begin
(simple-format
(current-error-port)
"error: while processing ~A ignoring error: ~A: ~A\n"
(package-name package)
key
args)
(force-output)
'()))))))
(list ,@(map inferior-package-id packages)))))
(append-map
@ -346,20 +361,29 @@
(inferior-eval '(%graft? #f) inf)
(exec-query conn "BEGIN")
(let ((package-derivation-ids
(inferior-guix->package-derivation-ids store conn inf))
(guix-revision-id
(insert-guix-revision conn url commit store-path)))
(catch
#t
(lambda ()
(let ((package-derivation-ids
(inferior-guix->package-derivation-ids store conn inf))
(guix-revision-id
(insert-guix-revision conn url commit store-path)))
(insert-guix-revision-package-derivations conn
guix-revision-id
package-derivation-ids)
(insert-guix-revision-package-derivations conn
guix-revision-id
package-derivation-ids)
(exec-query conn "COMMIT")
(exec-query conn "COMMIT")
(simple-format
#t "Successfully loaded ~A package/derivation pairs\n"
(length package-derivation-ids)))))
(simple-format
#t "Successfully loaded ~A package/derivation pairs\n"
(length package-derivation-ids))))
(lambda (key . args)
(simple-format (current-error-port)
"Failed extracting information: ~A ~A\n"
key args)
(force-output)
(exec-query conn "ROLLBACK")))))
(define (load-new-guix-revision conn url commit)
(if (guix-revision-exists? conn url commit)