From b890ddd5a8cc6a741704b28515311d10be4df0f1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 27 Jan 2025 15:57:58 +0000
Subject: bin: Create store directory when it does not exist.

* bin/ravanan: Import (ravanan store).
(main): Create store directory when it does not exist.
* ravanan/store.scm (make-store): New public function.
---
 bin/ravanan | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'bin')

diff --git a/bin/ravanan b/bin/ravanan
index f1a9e5d..0e0f9e2 100755
--- a/bin/ravanan
+++ b/bin/ravanan
@@ -31,6 +31,7 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
              (ravanan batch-system)
              (ravanan config)
              (ravanan reader)
+             (ravanan store)
              (ravanan utils)
              (ravanan verbosity)
              (ravanan workflow)
@@ -219,6 +220,7 @@ files that have the token in the @verbatim{SLURM_JWT=token} format."
          ((workflow-file inputs-file)
           ;; We must not try to compile guix manifest files.
           (set! %load-should-auto-compile #f)
+          (make-store (assq-ref args 'store))
           (let* ( ;; FIXME: This is a bit of a hack to avoid canonizing remote
                  ;; paths.
                  (store (if (file-name-absolute? (assq-ref args 'store))
-- 
cgit v1.2.3