services: guix-build-coordinator: Fix passing parallel-hooks.

The previous approach didn't support a simple alist.

* gnu/services/guix.scm (make-guix-build-coordinator-start-script): Fix
passing parallel-hooks in to the start gexp.
This commit is contained in:
Christopher Baines 2022-07-03 20:38:09 +01:00
parent 430848c6bd
commit e069de452a
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577

View file

@ -309,7 +309,10 @@ (define* (make-guix-build-coordinator-start-script database-uri-string
#$agent-communication-uri-string)
#:client-communication-uri (string->uri
#$client-communication-uri-string)
#:parallel-hooks (list #$@parallel-hooks)))))
#:parallel-hooks (list #$@(map (match-lambda
((name . val)
#~(cons '#$name #$val)))
parallel-hooks))))))
#:guile guile))
(define (guix-build-coordinator-shepherd-services config)