From 142258216c851f316c3854f146f3302c373b23c9 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 24 Oct 2020 17:40:46 +0100 Subject: WIP --- guix-build-coordinator/utils.scm | 42 ++++++++++++++++++++-------------------- 1 file changed, 21 insertions(+), 21 deletions(-) diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 79d0988..3fbb349 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -268,27 +268,27 @@ upcoming chunk." ;; Because there's no control over the caching of 404 lookups, and I'd ;; rather not reach inside and monkey patch the Guix code, just delete any ;; cache files - (let ((hash-part (store-path-hash-part output)) - (directories - (scandir %narinfo-cache-directory - (lambda (s) (= (string-length s) 52))))) - - (for-each (lambda (directory) - (let ((cache-file - (string-append - %narinfo-cache-directory "/" - directory "/" hash-part))) - (when (file-exists? cache-file) - (with-exception-handler - (lambda (exn) - (simple-format - (current-error-port) - "error: when deleting substitute cache file: ~A\n" - exn)) - (lambda () - (delete-file cache-file)) - #:unwind? #t)))) - (or directories '()))) + ;; (let ((hash-part (store-path-hash-part output)) + ;; (directories + ;; (scandir %narinfo-cache-directory + ;; (lambda (s) (= (string-length s) 52))))) + + ;; (for-each (lambda (directory) + ;; (let ((cache-file + ;; (string-append + ;; %narinfo-cache-directory "/" + ;; directory "/" hash-part))) + ;; (when (file-exists? cache-file) + ;; (with-exception-handler + ;; (lambda (exn) + ;; (simple-format + ;; (current-error-port) + ;; "error: when deleting substitute cache file: ~A\n" + ;; exn)) + ;; (lambda () + ;; (delete-file cache-file)) + ;; #:unwind? #t)))) + ;; (or directories '()))) (let ((narinfo (any (lambda (substitute-url) -- cgit v1.2.3