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

database: Add #:reset-timestamps? to 'register-path'. 

* guix/store/database.scm (register-path): Add #:reset-timestamps? and
honor it.
This commit is contained in:
Ludovic Courtès 2018-06-06 17:06:42 +02:00
parent b85e2ff484
commit 4bd86f0d62
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/store/database.scm
View File

@ -225,6 +225,7 @@ it's a directory."
(define* (register-path path (define* (register-path path
#:key (references '()) deriver prefix #:key (references '()) deriver prefix
state-directory (deduplicate? #t) state-directory (deduplicate? #t)
(reset-timestamps? #t)
(schema (sql-schema))) (schema (sql-schema)))
;; Priority for options: first what is given, then environment variables, ;; Priority for options: first what is given, then environment variables,
;; then defaults. %state-directory, %store-directory, and ;; then defaults. %state-directory, %store-directory, and
@ -268,7 +269,8 @@ be used internally by the daemon's build hook."
(real-path (string-append store-dir "/" (basename path)))) (real-path (string-append store-dir "/" (basename path))))
(let-values (((hash nar-size) (let-values (((hash nar-size)
(nar-sha256 real-path))) (nar-sha256 real-path)))
(reset-timestamps real-path) (when reset-timestamps?
(reset-timestamps real-path))
(mkdir-p db-dir) (mkdir-p db-dir)
(sqlite-register (sqlite-register
#:db-file (string-append db-dir "/db.sqlite") #:db-file (string-append db-dir "/db.sqlite")