amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system: glib-or-gtk: Improve glib-or-gtk-cross-build style.

Browse source 
* guix/build-system/glib-or-gtk.scm
(glib-or-gtk-cross-build): Use with-imported-modules around the
glib-or-gtk-cross-build builder gexp.

Change-Id: I8eaa032ffc0a3f8dbf02c96a4ecee85475c32111
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Nicolas Graves 2025-04-25 11:26:31 +02:00 • committed by Christopher Baines
parent aa7b1abf2c
commit 4c4e29cebb
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 44 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix/build-system/glib-or-gtk.scm
View file

@ -225,6 +225,7 @@
disallowed-references) disallowed-references)
"Cross-build SOURCE with INPUTS. See GNU-BUILD for more details." "Cross-build SOURCE with INPUTS. See GNU-BUILD for more details."
(define builder (define builder
(with-imported-modules imported-modules
#~(begin #~(begin
(use-modules #$@(sexp->gexp modules)) (use-modules #$@(sexp->gexp modules))
@ -272,8 +273,7 @@
#:strip-binaries? #$strip-binaries? #:strip-binaries? #$strip-binaries?
#:strip-flags #$strip-flags #:strip-flags #$strip-flags
#:strip-directories #:strip-directories
#$strip-directories))) #$strip-directories))))
(mlet %store-monad ((guile (package->derivation (or guile (default-guile)) (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
system #:graft? #f))) system #:graft? #f)))
@ -281,7 +281,6 @@
#:system system #:system system
#:target target #:target target
#:graft? #f #:graft? #f
#:modules imported-modules
#:allowed-references allowed-references #:allowed-references allowed-references
#:disallowed-references disallowed-references #:disallowed-references disallowed-references
#:guile-for-build guile))) #:guile-for-build guile)))