From e069de452a2c923868f5137421b4b6349c38d754 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 3 Jul 2022 20:38:09 +0100
Subject: 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(-)

(limited to 'gnu')

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 @@ (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)
-- 
cgit v1.2.3