diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-20 11:21:51 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-20 11:21:51 +0000 |
| commit | 076683555911dcd71f9d2fb8971a01dfe4ec8ab5 (patch) | |
| tree | ee2bfb53f6117da1196082055e27d468febadf3d | |
| parent | c20fe92d48f86b2b9b98f11ca66f6904d6125092 (diff) | |
| download | build-coordinator-076683555911dcd71f9d2fb8971a01dfe4ec8ab5.tar build-coordinator-076683555911dcd71f9d2fb8971a01dfe4ec8ab5.tar.gz | |
Pass the store in to get-output-details
| -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 |