diff options
author | Christopher Baines <mail@cbaines.net> | 2020-10-24 17:40:46 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-10-24 17:40:46 +0100 |
commit | 142258216c851f316c3854f146f3302c373b23c9 (patch) | |
tree | b64b21d6e8a3038dd341685e5468583cdb5f7329 | |
parent | 1e471ebdbd47d311a048d2bf5c27ddb56431dae6 (diff) | |
download | build-coordinator-142258216c851f316c3854f146f3302c373b23c9.tar build-coordinator-142258216c851f316c3854f146f3302c373b23c9.tar.gz |
WIP
-rw-r--r-- | guix-build-coordinator/utils.scm | 42 |
1 files 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) |