From 3b9d0e0e5c79c836a2063eb216c020ec4f7c5593 Mon Sep 17 00:00:00 2001 From: gnuphilic Date: Tue, 4 Nov 2025 17:32:26 +0200 Subject: [PATCH] inferior: Fix cached-channel-instance utime call and return value. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This fixes a bug introduced in 529dce6e98c22f00052df231414bca4f86e02094 where the utime procedure would just get a procedure rather than the actual file. * inferior.scm (cached-channel-instance): Use (cached commit) let-bound to cached-directory instead as value to utime and return-value. Fixes: guix/guix#4042 Change-Id: Ibe7fb78fa68292d70e3bbe4ab9234757510cc539 Signed-off-by: Ludovic Courtès --- guix/inferior.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/guix/inferior.scm b/guix/inferior.scm index 6446deea39e..ddea46ba2fe 100644 --- a/guix/inferior.scm +++ b/guix/inferior.scm @@ -963,10 +963,11 @@ X.509 host certificate; otherwise, warn about the problem and keep going." (if (file-exists? (cached commits)) - (let ((now (current-time))) + (let ((now (current-time)) + (cached-directory (cached commits))) ;; Update the mtime on CACHED to reflect usage. - (utime cached now now 0 0 AT_SYMLINK_NOFOLLOW) - cached) + (utime cached-directory now now 0 0 AT_SYMLINK_NOFOLLOW) + cached-directory) (run-with-store store (mlet* %store-monad ((instances -> (latest-channel-instances store channels