Skip to content
Snippets Groups Projects
Commit bb31e0a3 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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

* guix/store.scm (register-path): Change #:store to #:prefix.
parent 15d29987
No related branches found
No related tags found
No related merge requests found
...@@ -797,10 +797,10 @@ (define ordered ...@@ -797,10 +797,10 @@ (define ordered
(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 @@ (define* (register-path path ...@@ -809,8 +809,8 @@ (define* (register-path path
(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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment