ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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 @@ (define-module (guix store database)
#: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 @@ (define* (register-path path
(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