diff options
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index dba2203..2360631 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -108,18 +108,19 @@ ,@(if (string=? (assq-ref setup-failure 'failure-reason) "missing_inputs") `((missing-inputs - . ,(map - (lambda (missing-input) - (let ((builds-for-missing-input - (datastore-list-builds-for-output - datastore - missing-input))) - `(,@missing-input - (builds . ,(list->vector - builds-for-missing-input))))) - (datastore-list-setup-failure-missing-inputs - datastore - (assq-ref setup-failure 'id))))) + . ,(list->vector + (map + (lambda (missing-input) + (let ((builds-for-missing-input + (datastore-list-builds-for-output + datastore + missing-input))) + `((missing-input . ,missing-input) + (builds . ,(list->vector + builds-for-missing-input))))) + (datastore-list-setup-failure-missing-inputs + datastore + (assq-ref setup-failure 'id)))))) '()))) (datastore-list-setup-failures-for-build datastore |