From 70730cf81526b40010bf150955bd2f13e06cfc8e Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 30 Apr 2024 09:47:26 +0100 Subject: [PATCH] gnu: guix-build-coordinator/agent-only: Don't propagate inputs. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Since this package is just intended to provide the guix-build-coordinator-agent script, don't propagate any inputs and strip the unnecessary files from the package. * gnu/packages/package-management.scm (guix-build-coordinator/agent-only) [arguments]: Add 'strip-non-agent-files phase. [propagated-inputs]: Move… [inputs]: …here. Change-Id: I17544c23f3667147c874ec9afad5e5b90d19acc8 --- gnu/packages/package-management.scm | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 709bb7d30d..d02dcd7883 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -1671,6 +1671,16 @@ outputs of those builds.") (package (inherit guix-build-coordinator) (name "guix-build-coordinator-agent-only") + (arguments + (substitute-keyword-arguments (package-arguments guix-build-coordinator) + ((#:phases phases #~%standard-phases) + #~(modify-phases #$phases + (add-after 'install 'strip-non-agent-files + (lambda _ + (delete-file-recursively + (string-append #$output "/share/guix-build-coordinator")) + (delete-file + (string-append #$output "/bin/guix-build-coordinator")))))))) (native-inputs (list pkg-config autoconf @@ -1686,17 +1696,16 @@ outputs of those builds.") guile-next)) (inputs (list guile-next - bash-minimal - (libc-utf8-locales-for-target))) - (propagated-inputs - (list guile-prometheus + guix + guile-prometheus guile-gcrypt guile-json-4 guile-lib guile-lzlib guile-zlib - guix - guile-gnutls)) + guile-gnutls + bash-minimal + (libc-utf8-locales-for-target))) (description "The Guix Build Coordinator helps with performing lots of builds across potentially many machines, and with doing something with the results and