From 076683555911dcd71f9d2fb8971a01dfe4ec8ab5 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 20 Nov 2023 11:21:51 +0000 Subject: Pass the store in to get-output-details --- guix-build-coordinator/agent.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index e7af677..7fce2db 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -308,15 +308,14 @@ (cons output-name template)))) outputs))) - (define (get-output-details outputs) + (define (get-output-details store outputs) (map (match-lambda ((output-name . output) (let ((path-info - (with-store store - (query-path-info - store - (derivation-output-path output))))) + (query-path-info + store + (derivation-output-path output)))) `((name . ,output-name) (hash . ,(bytevector->nix-base32-string (path-info-hash path-info))) @@ -361,6 +360,7 @@ (output-details (if result (get-output-details + store (derivation-outputs derivation)) #f)) (compressed-outputs -- cgit v1.2.3