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

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit e069de452a2c923868f5137421b4b6349c38d754
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Jul 3 20:38:09 2022 +0100

    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.
---
 gnu/services/guix.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index c7dd7ec0ed..338e027245 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -309,7 +309,10 @@
                                        #$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)