[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: profiles: Add #:system argument to profile-derivation.
From: |
David Thompson |
Subject: |
01/02: profiles: Add #:system argument to profile-derivation. |
Date: |
Mon, 21 Dec 2015 17:21:03 +0000 |
davexunit pushed a commit to branch wip-environment-profiles
in repository guix.
commit a1b0c3f5606313353b70efd2e9ed9e2b8e7dd530
Author: David Thompson <address@hidden>
Date: Sat Oct 31 17:17:28 2015 -0400
profiles: Add #:system argument to profile-derivation.
* guix/profiles.scm (profile-derivation): Add #:system argument and
honor it when calling 'gexp->derivation'.
---
guix/profiles.scm | 10 +++++++---
1 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/guix/profiles.scm b/guix/profiles.scm
index ce86ff8..8b500b1 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -694,10 +694,12 @@ creates the GTK+ 'icon-theme.cache' file for each theme."
(define* (profile-derivation manifest
#:key
- (hooks %default-profile-hooks))
+ (hooks %default-profile-hooks)
+ (system (%current-system)))
"Return a derivation that builds a profile (aka. 'user environment') with
-the given MANIFEST. The profile includes additional derivations returned by
-the monadic procedures listed in HOOKS--such as an Info 'dir' file, etc."
+the given MANIFEST for SYSTEM. The profile includes additional derivations
+returned by the monadic procedures listed in HOOKS--such as an Info 'dir'
+file, etc. By default, the profile is built for the current system."
(mlet %store-monad ((extras (if (null? (manifest-entries manifest))
(return '())
(sequence %store-monad
@@ -740,6 +742,8 @@ the monadic procedures listed in HOOKS--such as an Info
'dir' file, etc."
(guix search-paths)
(guix records))
+ #:system system
+
;; Not worth offloading.
#:local-build? #t