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

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

Browse source 
* 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 @@ (define (reset-timestamps file)
(define* (register-path path
#:key (references '()) deriver prefix
state-directory (deduplicate? #t)
(reset-timestamps? #t)
(schema (sql-schema)))
;; Priority for options: first what is given, then environment variables,
;; then defaults. %state-directory, %store-directory, and
@ -268,7 +269,8 @@ (define* (register-path path
(real-path (string-append store-dir "/" (basename path))))
(let-values (((hash nar-size)
(nar-sha256 real-path)))
(reset-timestamps real-path)
(when reset-timestamps?
(reset-timestamps real-path))
(mkdir-p db-dir)
(sqlite-register
#:db-file (string-append db-dir "/db.sqlite")