From 4bd86f0d62e948f76536ecfea1225a6e9bfa89c8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 6 Jun 2018 17:06:42 +0200 Subject: [PATCH] database: Add #:reset-timestamps? to 'register-path'. * guix/store/database.scm (register-path): Add #:reset-timestamps? and honor it. --- guix/store/database.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 @@ (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")