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

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
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix/store.scm
View File

@ -797,10 +797,10 @@ signing them if SIGN? is true."
(loop tail))))))) (loop tail)))))))
(define* (register-path path (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 "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 references, and DERIVER as its deriver (.drv that led to it.) If PREFIX is
#f, it must be a string denoting the directory name of the new store to not #f, it must be the name of the directory containing the new store to
initialize. Return #t on success. initialize. 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
@ -809,8 +809,8 @@ be used internally by the daemon's build hook."
(catch 'system-error (catch 'system-error
(lambda () (lambda ()
(let ((pipe (apply open-pipe* OPEN_WRITE %guix-register-program (let ((pipe (apply open-pipe* OPEN_WRITE %guix-register-program
(if store (if prefix
`("--prefix" ,store) `("--prefix" ,prefix)
'())))) '()))))
(and pipe (and pipe
(begin (begin