diff options
Diffstat (limited to 'guix/store.scm')
| -rw-r--r-- | guix/store.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix/store.scm b/guix/store.scm index 1ecb2cc359..b525994672 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -42,6 +42,7 @@ open-connection set-build-options + valid-path? add-text-to-store add-to-store build-derivations @@ -374,6 +375,10 @@ again until #t is returned or an error is raised." (or done? (loop (process-stderr server)))) (read-arg return s)))))) +(define-operation (valid-path? (string path)) + "Return #t when PATH is a valid store path." + boolean) + (define-operation (add-text-to-store (string name) (string text) (string-list references)) "Add TEXT under file NAME in the store." |