~ruther/guix-local: inferior: Fix cached-channel-instance utime call and return value.

3b9d0e0e5c79c836a2063eb216c020ec4f7c5593 — gnuphilic 6 months ago 824de8a

inferior: Fix cached-channel-instance utime call and return value.

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 <ludo@gnu.org>

patch browse .tar.gz

1 files changed, 4 insertions(+), 3 deletions(-)

M guix/inferior.scm

M guix/inferior.scm => guix/inferior.scm +4 -3

@@ 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