summary refs log tree commit diff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-07-03 20:38:09 +0100
committerChristopher Baines <mail@cbaines.net>2022-07-03 20:38:09 +0100
commite069de452a2c923868f5137421b4b6349c38d754 (patch)
tree623558984534c927b81de93f94a16e17050bacde
parent430848c6bd5c5cb2f1cce1065ad334cf792d9e36 (diff)
downloadguix-e069de452a2c923868f5137421b4b6349c38d754.tar.gz
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.
-rw-r--r--gnu/services/guix.scm5
1 files changed, 4 insertions, 1 deletions
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)