3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00

store: Change #:store parameter to #:prefix.

* guix/store.scm (register-path): Change #:store to #:prefix.
This commit is contained in:
Ludovic Courtès 2014-05-18 19:12:43 +02:00
parent 15d299874c
commit bb31e0a3ee

View file

@ -797,10 +797,10 @@ signing them if SIGN? is true."
(loop tail)))))))
(define* (register-path path
#:key (references '()) deriver store)
#:key (references '()) deriver prefix)
"Register PATH as a valid store file, with REFERENCES as its list of
references, and DERIVER as its deriver (.drv that led to it.) If STORE is not
#f, it must be a string denoting the directory name of the new store to
references, and DERIVER as its deriver (.drv that led to it.) If PREFIX is
not #f, it must be the name of the directory containing the new store to
initialize. Return #t on success.
Use with care as it directly modifies the store! This is primarily meant to
@ -809,8 +809,8 @@ be used internally by the daemon's build hook."
(catch 'system-error
(lambda ()
(let ((pipe (apply open-pipe* OPEN_WRITE %guix-register-program
(if store
`("--prefix" ,store)
(if prefix
`("--prefix" ,prefix)
'()))))
(and pipe
(begin