diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-06-04 22:37:47 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-06-14 11:16:59 +0200 |
| commit | 866ee8c66aad84fe64a20a14ff19d20a4a408e5b (patch) | |
| tree | 8363445bf76beab8ecf8f4b5bd06d98ba124cc1c | |
| parent | 33fddb763a71970961e87d26f222951ab7cd353c (diff) | |
| download | guix-866ee8c66aad84fe64a20a14ff19d20a4a408e5b.tar.gz | |
database: 'register-path' creates the database directory if needed.
* guix/store/database.scm (register-path): Call 'mkdir-p'.
| -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 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 |