diff options
| -rw-r--r-- | guix/store/database.scm | 2 |
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 |
