diff options
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index b51c791..8af826f 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1168,9 +1168,15 @@ (('fetch-agent-plan agent-id reply) (put-message reply - (or (assoc-ref allocation-plan agent-id) '()))) + (or (list-copy (assoc-ref allocation-plan agent-id)) + '()))) (('fetch-plan reply) - (put-message reply allocation-plan)) + (put-message reply + (map (match-lambda + ((agent-id . builds) + (cons agent-id + (list-copy builds)))) + allocation-plan))) (('remove-build uuid reply) (set! allocation-plan |