From b0d6098f03ed297fda2bdb2dfdf36a2ae0f8bd8d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Fri, 23 Oct 2020 14:59:17 +0100
Subject: 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 349897fd16..7afbd92b0d 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -1059,7 +1059,10 @@ (define-public guix-build-coordinator
        ("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 @@ (define-public guix-build-coordinator
        ("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 87f00338da..b909c651cc 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -188,8 +188,11 @@ (define* (make-guix-build-coordinator-start-script database-uri-string
                           ;; 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)
-- 
cgit v1.2.3