From 34811f02bf176c307ebe329aaefab8ed616a10df Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 30 Oct 2012 00:20:53 +0100
Subject: guix-build: Add `--root'.

* guix/store.scm (add-indirect-root): New operation.
* guix-build.in (show-help): Document `--root'.
  (%options): Add `--root'.
  (guix-build)[register-root]: New procedure.  Call it when `--root' is
  passed.
---
 guix/store.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'guix')

diff --git a/guix/store.scm b/guix/store.scm
index 34421a11df..5ac98d80bb 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -49,6 +49,7 @@
             add-text-to-store
             add-to-store
             build-derivations
+            add-indirect-root
 
             current-build-output-port
 
@@ -419,6 +420,13 @@ again until #t is returned or an error is raised."
 Return #t on success."
   boolean)
 
+(define-operation (add-indirect-root (string file-name))
+  "Make FILE-NAME an indirect root for the garbage collector; FILE-NAME
+can be anywhere on the file system, but it must be an absolute file
+name--it is the caller's responsibility to ensure that it is an absolute
+file name.  Return #t on success."
+  boolean)
+
 
 ;;;
 ;;; Store paths.
-- 
cgit v1.2.3