01/03: guix: store: Add ensure-path.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 2a7e1121d83ee173a7a0dbfb978a4ac363c7c4a6
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Nov 4 14:39:40 2020 +0100

    guix: store: Add ensure-path.
    
    * guix/store.scm (ensure-path): New procedure.
---
 guix/store.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/guix/store.scm b/guix/store.scm
index d859ea3..11e2dae 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."