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

base: 'create-build-outputs' catches 'register-gc-root' errors.

Browse source 
Commit 9e897d84ed would lead the
"set-build-successful!" test to fail when running in build environments:

  In procedure symlink: No such file or directory: "/var/guix/gcroots/profiles/per-user/nixbld/cuirass/source"

This fixes this regression.

* src/cuirass/base.scm (create-build-outputs): Wrap 'register-gc-root'
in 'catch'.
This commit is contained in:
Ludovic Courtès 2023-09-01 16:59:22 +02:00
parent ea233c2ffd
commit 2ee6dc6947
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/cuirass/base.scm
View file

@ -564,7 +564,17 @@ OUTPUTS, a list of <build-output> records."
(find-product build build-output))))
(when (and file (file-exists? file))
(log-info "Adding build product ~a" file)
(register-gc-root file)
(catch 'system-error
(lambda ()
(register-gc-root file))
(lambda args
;; This might be ENOENT, for instance because
;; /var/guix/gcroots/profiles is missing, as is the case
;; in build environments.
(log-warning
"failed to create GC root for '~a' (build '~a'): ~a"
file (build-nix-name build)
(strerror (system-error-errno args)))))
(db-add-build-product
(build-product
(build-id (build-id build))