06/19: database: 'register-path' creates the database directory if needed.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 866ee8c66aad84fe64a20a14ff19d20a4a408e5b
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jun 4 22:37:47 2018 +0200

    database: 'register-path' creates the database directory if needed.
    
    * 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 0f6d2e2..1400d0d 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