offload: Ignore EEXIST when registering a .drv as a GC root.
Fixes <http://bugs.gnu.org/18115>. Reported by Mark H Weaver <mhw@netris.org>. * guix/scripts/offload.scm (register-gc-root)[script]: Wrap 'symlink' call in "catch 'system-error", and ignore EEXIST errors.
This commit is contained in:
parent
b1e48f222b
commit
b9a31d90e9
|
@ -316,8 +316,17 @@ hook."
|
||||||
(let ((root-directory (string-append %state-directory
|
(let ((root-directory (string-append %state-directory
|
||||||
"/gcroots/tmp")))
|
"/gcroots/tmp")))
|
||||||
(false-if-exception (mkdir root-directory))
|
(false-if-exception (mkdir root-directory))
|
||||||
(symlink ,file
|
(catch 'system-error
|
||||||
(string-append root-directory "/" ,%gc-root-file)))))
|
(lambda ()
|
||||||
|
(symlink ,file
|
||||||
|
(string-append root-directory "/" ,%gc-root-file)))
|
||||||
|
(lambda args
|
||||||
|
;; If FILE already exists, we can assume that either it's a stale
|
||||||
|
;; reference (which is fine), or another process is already
|
||||||
|
;; building the derivation represented by FILE (which is fine
|
||||||
|
;; too.) Thus, do nothing in that case.
|
||||||
|
(unless (= EEXIST (system-error-errno args))
|
||||||
|
(apply throw args)))))))
|
||||||
|
|
||||||
(let ((pipe (remote-pipe machine OPEN_READ
|
(let ((pipe (remote-pipe machine OPEN_READ
|
||||||
`("guile" "-c" ,(object->string script)))))
|
`("guile" "-c" ,(object->string script)))))
|
||||||
|
|
Loading…
Reference in New Issue