nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

* guix/store/database.scm (register-path): Call 'mkdir-p'.
This commit is contained in:
Ludovic Courtès 2018-06-04 22:37:47 +02:00
parent 33fddb763a
commit 866ee8c66a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guix/store/database.scm
View File

@ -24,6 +24,7 @@
#:use-module (guix store deduplication) #:use-module (guix store deduplication)
#:use-module (guix base16) #:use-module (guix base16)
#:use-module (guix build syscalls) #:use-module (guix build syscalls)
#:use-module ((guix build utils) #:select (mkdir-p))
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-11) #:use-module (srfi srfi-11)
#:use-module (srfi srfi-19) #:use-module (srfi srfi-19)
@ -268,6 +269,7 @@ be used internally by the daemon's build hook."
(let-values (((hash nar-size) (let-values (((hash nar-size)
(nar-sha256 real-path))) (nar-sha256 real-path)))
(reset-timestamps real-path) (reset-timestamps real-path)
(mkdir-p db-dir)
(sqlite-register (sqlite-register
#:db-file (string-append db-dir "/db.sqlite") #:db-file (string-append db-dir "/db.sqlite")
#:schema schema #:schema schema