07/10: gnu: guix-build-coordinator: Propagate the guile inputs.

[guix-commits]

cbaines pushed a commit to branch master
in repository guix.

commit b0d6098f03ed297fda2bdb2dfdf36a2ae0f8bd8d
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Oct 23 14:59:17 2020 +0100

    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.
---
 gnu/packages/package-management.scm | 9 +++++----
 gnu/services/guix.scm               | 7 +++++--
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/package-management.scm 
b/gnu/packages/package-management.scm
index 349897f..7afbd92 100644
--- 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
--- 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)