[bug#31755] [PATCH 06/19] database: 'register-path' creates the database directory if needed.

["Ludovic Courtès" <ludo@gnu.org>]

* guix/store/database.scm (register-path): Call 'mkdir-p'.
---
 guix/store/database.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/guix/store/database.scm b/guix/store/database.scm
index 0f6d2e2c0..1400d0d1c 100644
--- a/guix/store/database.scm
+++ b/guix/store/database.scm
@@ -24,6 +24,7 @@
   #:use-module (guix store deduplication)
   #:use-module (guix base16)
   #:use-module (guix build syscalls)
+  #:use-module ((guix build utils) #:select (mkdir-p))
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-19)
@@ -268,6 +269,7 @@ be used internally by the daemon's build hook."
     (let-values (((hash nar-size)
                   (nar-sha256 real-path)))
       (reset-timestamps real-path)
+      (mkdir-p db-dir)
       (sqlite-register
        #:db-file (string-append db-dir "/db.sqlite")
        #:schema schema
-- 
2.17.1