summaryrefslogtreecommitdiff
path: root/guix/store
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-06-06 17:06:42 +0200
committerLudovic Courtès <ludo@gnu.org>2018-06-14 11:16:59 +0200
commit4bd86f0d62e948f76536ecfea1225a6e9bfa89c8 (patch)
tree1e268e0e5f4b8c60832176595aab05fc1bd415c8 /guix/store
parentb85e2ff4841f1b91c104668bbcf93e39d9792827 (diff)
database: Add #:reset-timestamps? to 'register-path'.
* guix/store/database.scm (register-path): Add #:reset-timestamps? and honor it.
Diffstat (limited to 'guix/store')
-rw-r--r--guix/store/database.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/store/database.scm b/guix/store/database.scm
index b9170dda73..bfd2c36264 100644
--- a/guix/store/database.scm
+++ b/guix/store/database.scm
@@ -225,6 +225,7 @@ it's a directory."
(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 @@ be used internally by the daemon's build hook."
(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")