From 866ee8c66aad84fe64a20a14ff19d20a4a408e5b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 4 Jun 2018 22:37:47 +0200 Subject: 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(+) (limited to 'guix/store') diff --git a/guix/store/database.scm b/guix/store/database.scm index 0f6d2e2c06..1400d0d1c4 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 -- cgit v1.2.3