diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-06-06 17:06:42 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-06-14 11:16:59 +0200 |
| commit | 4bd86f0d62e948f76536ecfea1225a6e9bfa89c8 (patch) | |
| tree | 1e268e0e5f4b8c60832176595aab05fc1bd415c8 /guix/store | |
| parent | b85e2ff4841f1b91c104668bbcf93e39d9792827 (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.scm | 4 |
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") |