gnu: guix-build-coordinator: Propagate the guile inputs.

This means the package is usable as a library, which is useful when using the
procedures to send requests to the Guix Build Coordinator.

* gnu/packages/package-management.scm (guix-build-coordinator)[inputs]: Move
guile inputs to propagated inputs.
[propagated-inputs]: Receive some inputs.
* gnu/services/guix.scm (make-guix-build-coordinator-start-script): Adjust the
start script to include propagated inputs.

diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm
index 349897f..7afbd92 100644 (file)
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -1059,7 +1059,10 @@ environments.")
        ("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))))
     (inputs
      `(("guile" ,@(assoc-ref (package-native-inputs guix) "guile"))
-       ("guile-fibers" ,guile-fibers)
+       ("sqlite" ,sqlite)
+       ("sqitch" ,sqitch)))
+    (propagated-inputs
+     `(("guile-fibers" ,guile-fibers)
        ("guile-prometheus" ,guile-prometheus)
        ("guile-gcrypt" ,guile-gcrypt)
        ("guile-json" ,guile-json-3)
@@ -1067,9 +1070,7 @@ environments.")
        ("guile-zlib" ,guile-zlib)
        ("guile-sqlite3" ,guile-sqlite3)
        ("guix" ,guix)
-       ("gnutls" ,gnutls)
-       ("sqlite" ,sqlite)
-       ("sqitch" ,sqitch)))
+       ("gnutls" ,gnutls)))
     (home-page "https://git.cbaines.net/guix/build-coordinator/")
     (synopsis "Tool to help build derivations")
     (description

diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index 87f0033..b909c65 100644 (file)
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -188,8 +188,11 @@
                           ;; libraries, but it means that the Guile libraries
                           ;; needed for the Guix Build Coordinator don't need
                           ;; to be individually specified here.
-                          (map second (package-inputs
-                                       guix-build-coordinator-package)))
+                          (append
+                           (map second (package-inputs
+                                        guix-build-coordinator-package))
+                           (map second (package-propagated-inputs
+                                        guix-build-coordinator-package))))
      #~(begin
          (use-modules (srfi srfi-1)
                       (ice-9 match)