summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-18 19:12:43 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-18 22:27:22 +0200
commitbb31e0a3ee2ba23fa7a57471b0aa2363404f4c27 (patch)
tree2bca571a00ffc864a7a67746568c2c84e72c423f
parent15d299874c635d14a84710005d0ed4b05968ff6f (diff)
store: Change #:store parameter to #:prefix.
* guix/store.scm (register-path): Change #:store to #:prefix.
-rw-r--r--guix/store.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/store.scm b/guix/store.scm
index 1731c14f27..073e024e38 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -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