[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#31755] [PATCH 09/19] database: Add #:reset-timestamps? to 'register
From: |
Ludovic Courtès |
Subject: |
[bug#31755] [PATCH 09/19] database: Add #:reset-timestamps? to 'register-path'. |
Date: |
Fri, 8 Jun 2018 11:34:41 +0200 |
* 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 b9170dda7..bfd2c3626 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")
--
2.17.1
- [bug#31755] [PATCH 00/19] Use (guix store database) instead of 'guix-register', Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 01/19] database: 'with-database' can now initialize new databases., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 06/19] database: 'register-path' creates the database directory if needed., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 07/19] deduplicate: Fix a couple of thinkos., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 08/19] database: Remove extra SQL parameter in 'update-or-insert'., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 10/19] database: Replace existing entries in Refs., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 02/19] database: Fail registration when encountering unregistered references., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 09/19] database: Add #:reset-timestamps? to 'register-path'.,
Ludovic Courtès <=
- [bug#31755] [PATCH 05/19] database: Provide a way to specify the schema location., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 11/19] database: 'reset-timestamps' sets file permissions as well., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 12/19] vm: 'expression->derivation-in-linux-vm' code can now use dlopen., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 04/19] build: Require Guile-SQLite3., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 18/19] store: Remove 'register-path'., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 14/19] database: 'sqlite-register' takes a database, not a file name., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 19/19] Remove 'guix-register' and its traces., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 03/19] store-copy: 'read-reference-graph' returns a list of records., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 15/19] database: Add 'register-items'., Ludovic Courtès, 2018/06/08
- [bug#31755] [PATCH 16/19] install: Use 'reset-timestamps' from (guix store database)., Ludovic Courtès, 2018/06/08