* [bug#63458] [PATCH] gnu: guix-build-coordinator: Neaten up the package definitions.
@ 2023-05-12 7:44 Christopher Baines
2023-05-15 8:52 ` bug#63458: " Christopher Baines
0 siblings, 1 reply; 2+ messages in thread
From: Christopher Baines @ 2023-05-12 7:44 UTC (permalink / raw)
To: 63458
Remove duplication and redundant append calls.
* gnu/packages/package-management.scm (guix-build-coordinator)[inputs]: Always
add sqitch.
[propagated-inputs]: Always add guile-fibers-next.
(guix-build-coordinator-agent-only)[arguments]: Remove unnecessary duplication
of phases.
[propagated-inputs]: Remove unnecessary append.
---
gnu/packages/package-management.scm | 109 +++++++---------------------
1 file changed, 26 insertions(+), 83 deletions(-)
diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm
index 7be497c534..494ae7445d 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -1474,27 +1474,21 @@ (define-public guix-build-coordinator
guile-lib
(first (assoc-ref (package-native-inputs guix) "guile"))))
(inputs
- (append
- (list (first (assoc-ref (package-native-inputs guix) "guile"))
- sqlite
- bash-minimal)
- (if (hurd-target?)
- '()
- (list sqitch))))
+ (list (first (assoc-ref (package-native-inputs guix) "guile"))
+ sqlite
+ bash-minimal
+ sqitch))
(propagated-inputs
- (append
- (list guile-prometheus
- guile-gcrypt
- guile-json-4
- guile-lib
- guile-lzlib
- guile-zlib
- guile-sqlite3
- guix
- guile-gnutls)
- (if (hurd-target?)
- '()
- (list guile-fibers-next))))
+ (list guile-prometheus
+ guile-gcrypt
+ guile-json-4
+ guile-lib
+ guile-lzlib
+ guile-zlib
+ guile-sqlite3
+ guix
+ guile-gnutls
+ guile-fibers-next))
(home-page "https://git.cbaines.net/guix/build-coordinator/")
(synopsis "Tool to help build derivations")
(description
@@ -1508,62 +1502,12 @@ (define-public guix-build-coordinator/agent-only
(inherit guix-build-coordinator)
(name "guix-build-coordinator-agent-only")
(arguments
- `(#:modules (((guix build guile-build-system)
+ (list
+ #:modules `(((guix build guile-build-system)
#:select (target-guile-effective-version))
,@%gnu-build-system-modules)
- #:imported-modules ((guix build guile-build-system)
- ,@%gnu-build-system-modules)
- #:phases
- (modify-phases %standard-phases
- (add-before 'build 'set-GUILE_AUTO_COMPILE
- (lambda _
- ;; To avoid warnings relating to 'guild'.
- (setenv "GUILE_AUTO_COMPILE" "0")
- #t))
- (add-after 'install 'wrap-executable
- (lambda* (#:key inputs outputs target #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin"))
- (guile (assoc-ref inputs "guile"))
- (version (target-guile-effective-version))
- (scm (string-append out "/share/guile/site/" version))
- (go (string-append out "/lib/guile/" version "/site-ccache")))
- (for-each
- (lambda (file)
- (simple-format (current-error-port) "wrapping: ~A\n" file)
- (let ((guile-inputs (list
- "guile-json"
- "guile-gcrypt"
- "guix"
- "guile-prometheus"
- "guile-lib"
- "guile-lzlib"
- "guile-zlib"
- "guile-sqlite3"
- "guile-gnutls")))
- (wrap-program file
- `("PATH" ":" prefix (,bin))
- `("GUILE_LOAD_PATH" ":" prefix
- (,scm ,(string-join
- (map (lambda (input)
- (simple-format
- #f "~A/share/guile/site/~A"
- (assoc-ref inputs input)
- version))
- guile-inputs)
- ":")))
- `("GUILE_LOAD_COMPILED_PATH" ":" prefix
- (,go ,(string-join
- (map (lambda (input)
- (simple-format
- #f "~A/lib/guile/~A/site-ccache"
- (assoc-ref inputs input)
- version))
- guile-inputs)
- ":"))))))
- (find-files bin)))
- #t))
- (delete 'strip)))) ; As the .go files aren't compatible
+ #:imported-modules `((guix build guile-build-system)
+ ,@%gnu-build-system-modules)))
(native-inputs
(list pkg-config
autoconf
@@ -1581,15 +1525,14 @@ (define-public guix-build-coordinator/agent-only
(list (first (assoc-ref (package-native-inputs guix) "guile"))
bash-minimal))
(propagated-inputs
- (append
- (list guile-prometheus
- guile-gcrypt
- guile-json-4
- guile-lib
- guile-lzlib
- guile-zlib
- guix
- guile-gnutls)))
+ (list guile-prometheus
+ guile-gcrypt
+ guile-json-4
+ guile-lib
+ guile-lzlib
+ guile-zlib
+ guix
+ guile-gnutls))
(description
"The Guix Build Coordinator helps with performing lots of builds across
potentially many machines, and with doing something with the results and
base-commit: 23a575f97cab5b86a72391dd4ab3b937cd70d8a9
prerequisite-patch-id: e5211bfb82950d0b0a127e22dc4eb63dc5792633
--
2.39.1
^ permalink raw reply related [flat|nested] 2+ messages in thread
* bug#63458: [PATCH] gnu: guix-build-coordinator: Neaten up the package definitions.
2023-05-12 7:44 [bug#63458] [PATCH] gnu: guix-build-coordinator: Neaten up the package definitions Christopher Baines
@ 2023-05-15 8:52 ` Christopher Baines
0 siblings, 0 replies; 2+ messages in thread
From: Christopher Baines @ 2023-05-15 8:52 UTC (permalink / raw)
To: 63458-done
[-- Attachment #1: Type: text/plain, Size: 587 bytes --]
Christopher Baines <mail@cbaines.net> writes:
> Remove duplication and redundant append calls.
>
> * gnu/packages/package-management.scm (guix-build-coordinator)[inputs]: Always
> add sqitch.
> [propagated-inputs]: Always add guile-fibers-next.
> (guix-build-coordinator-agent-only)[arguments]: Remove unnecessary duplication
> of phases.
> [propagated-inputs]: Remove unnecessary append.
> ---
> gnu/packages/package-management.scm | 109 +++++++---------------------
> 1 file changed, 26 insertions(+), 83 deletions(-)
Pushed to master as 38cfe61780f03b8cc029e1346a11bae2c0231625.
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 987 bytes --]
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2023-05-15 8:53 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2023-05-12 7:44 [bug#63458] [PATCH] gnu: guix-build-coordinator: Neaten up the package definitions Christopher Baines
2023-05-15 8:52 ` bug#63458: " Christopher Baines
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).