summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/store/database.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/guix/store/database.scm b/guix/store/database.scm
index 0f6d2e2c060..1400d0d1c4e 100644
--- a/guix/store/database.scm
+++ b/guix/store/database.scm
@@ -24,6 +24,7 @@
24 #:use-module (guix store deduplication) 24 #:use-module (guix store deduplication)
25 #:use-module (guix base16) 25 #:use-module (guix base16)
26 #:use-module (guix build syscalls) 26 #:use-module (guix build syscalls)
27 #:use-module ((guix build utils) #:select (mkdir-p))
27 #:use-module (srfi srfi-1) 28 #:use-module (srfi srfi-1)
28 #:use-module (srfi srfi-11) 29 #:use-module (srfi srfi-11)
29 #:use-module (srfi srfi-19) 30 #:use-module (srfi srfi-19)
@@ -268,6 +269,7 @@ be used internally by the daemon's build hook."
268 (let-values (((hash nar-size) 269 (let-values (((hash nar-size)
269 (nar-sha256 real-path))) 270 (nar-sha256 real-path)))
270 (reset-timestamps real-path) 271 (reset-timestamps real-path)
272 (mkdir-p db-dir)
271 (sqlite-register 273 (sqlite-register
272 #:db-file (string-append db-dir "/db.sqlite") 274 #:db-file (string-append db-dir "/db.sqlite")
273 #:schema schema 275 #:schema schema