From d3648e01185dbb3afed85a630b2f8934c68ea143 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 9 Dec 2012 23:50:17 +0100
Subject: [PATCH] store: Add `add-temp-root'.

* guix/store.scm (add-temp-root): New procedure.
---
 guix/store.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guix/store.scm b/guix/store.scm
index 9aafb332dca..67620a1767a 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -424,6 +424,11 @@ (define-operation (build-derivations (string-list derivations))
 Return #t on success."
   boolean)
 
+(define-operation (add-temp-root (store-path path))
+  "Make PATH a temporary root for the duration of the current session.
+Return #t."
+  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
-- 
GitLab