diff options
-rw-r--r-- | guix-build-coordinator/agent.scm | 10 |
1 files 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 |