aboutsummaryrefslogtreecommitdiff
path: root/guix/channels.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-10-19 16:39:06 +0200
committerLudovic Courtès <ludo@gnu.org>2023-10-28 00:17:24 +0200
commit344e39c928bdb8e6b7e5ac79d94535921a414a05 (patch)
treed342223b21fba1140d255b015c15852664266b62 /guix/channels.scm
parent9d4b720e1f9e7581e340e4c84c3781af4ee72fde (diff)
downloadguix-344e39c928bdb8e6b7e5ac79d94535921a414a05.tar
guix-344e39c928bdb8e6b7e5ac79d94535921a414a05.tar.gz
profiles: Hooks honor the #:system parameter of ‘profile-derivation’.
Fixes <https://issues.guix.gnu.org/65225>. * guix/profiles.scm (info-dir-file, package-cache-file) (info-dir-file, ghc-package-cache-file, ca-certificate-bundle) (emacs-subdirs, gdk-pixbuf-loaders-cache-file, glib-schemas) (gtk-icon-themes, gtk-im-modules, linux-module-database) (xdg-desktop-database, xdg-mime-database, fonts-dir-file) (manual-database, manual-database/optional): Add optional #:system parameter and pass it to ‘gexp->derivation’. (profile-derivation): Pass HOOK a second parameter, SYSTEM. * gnu/bootloader.scm (efi-bootloader-profile)[efi-bootloader-profile-hook]: Add optional #:system parameter and pass it to ‘gexp->derivation’. * guix/channels.scm (package-cache-file): Likewise. * tests/profiles.scm ("profile-derivation, #:system, and hooks"): New test. Reported-by: Tobias Geerinckx-Rice <me@tobias.gr>
Diffstat (limited to 'guix/channels.scm')
-rw-r--r--guix/channels.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/channels.scm b/guix/channels.scm
index 681adafc6c..f01903642d 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -926,7 +926,7 @@ specified."
(entries -> (map instance->entry instances derivations)))
(return (manifest entries))))
-(define (package-cache-file manifest)
+(define* (package-cache-file manifest #:optional system)
"Build a package cache file for the instance in MANIFEST. This is meant to
be used as a profile hook."
;; Note: Emit a profile in format version 3, which was introduced in 2017
@@ -961,6 +961,7 @@ be used as a profile hook."
(gexp->derivation-in-inferior "guix-package-cache" build
profile
+ #:system system
;; If the Guix in PROFILE is too old and
;; lacks 'guix repl', don't build the cache