summary refs log tree commit diff
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-11-04 14:39:40 +0100
committerMathieu Othacehe <othacehe@gnu.org>2020-11-22 17:17:56 +0100
commit2a7e1121d83ee173a7a0dbfb978a4ac363c7c4a6 (patch)
tree2f08fa8525602737ce47d6c13c5d5d0e4ea234b6
parent6f78fe353e5cb5109eb1eed8727870a9e5efdb59 (diff)
downloadguix-2a7e1121d83ee173a7a0dbfb978a4ac363c7c4a6.tar.gz
guix: store: Add ensure-path.
* guix/store.scm (ensure-path): New procedure.
-rw-r--r--guix/store.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/guix/store.scm b/guix/store.scm
index d859ea33ed..11e2dae579 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -113,6 +113,7 @@
             build
             query-failed-paths
             clear-failed-paths
+            ensure-path
             add-temp-root
             add-indirect-root
             add-permanent-root
@@ -1397,6 +1398,11 @@ When a handler is installed with 'with-build-handler', it is called any time
                                          (message "unsupported build mode")
                                          (status  1))))))))))))
 
+(define-operation (ensure-path (store-path path))
+  "Make PATH a temporary root for the duration of the current session.
+Return #t."
+  boolean)
+
 (define-operation (add-temp-root (store-path path))
   "Make PATH a temporary root for the duration of the current session.
 Return #t."