nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

store: 'register-path' no longer swallows 'system-error' exceptions. 

* guix/store.scm (register-path): Do not catch 'system-error'.
This commit is contained in:
Ludovic Courtès 2016-06-19 21:29:43 +02:00
parent e0b47290a7
commit 95fa173ed1
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 13 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/store.scm
View File

@ -1061,8 +1061,6 @@ Return #t on success.
Use with care as it directly modifies the store! This is primarily meant to Use with care as it directly modifies the store! This is primarily meant to
be used internally by the daemon's build hook." be used internally by the daemon's build hook."
;; Currently this is implemented by calling out to the fine C++ blob. ;; Currently this is implemented by calling out to the fine C++ blob.
(catch 'system-error
(lambda ()
(let ((pipe (apply open-pipe* OPEN_WRITE %guix-register-program (let ((pipe (apply open-pipe* OPEN_WRITE %guix-register-program
`(,@(if prefix `(,@(if prefix
`("--prefix" ,prefix) `("--prefix" ,prefix)
@ -1076,9 +1074,6 @@ be used internally by the daemon's build hook."
path (or deriver "") (length references)) path (or deriver "") (length references))
(for-each (cut format pipe "~a~%" <>) references) (for-each (cut format pipe "~a~%" <>) references)
(zero? (close-pipe pipe)))))) (zero? (close-pipe pipe))))))
(lambda args
;; Failed to run %GUIX-REGISTER-PROGRAM.
#f)))
;;; ;;;