[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#32759] [PATCH 7/8] channels: Add 'channel-instances->derivation'.
From: |
Ludovic Courtès |
Subject: |
[bug#32759] [PATCH 7/8] channels: Add 'channel-instances->derivation'. |
Date: |
Tue, 18 Sep 2018 14:06:39 +0200 |
* guix/channels.scm (channel-instances->derivation): New procedure.
(latest-channel-derivation): Use it.
(channel-instance-derivations): Make private.
---
guix/channels.scm | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/guix/channels.scm b/guix/channels.scm
index 2e7bffae9..82389eb58 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -47,9 +47,9 @@
channel-instance-checkout
latest-channel-instances
- channel-instance-derivations
latest-channel-derivation
- channel-instances->manifest))
+ channel-instances->manifest
+ channel-instances->derivation))
;;; Commentary:
;;;
@@ -294,13 +294,17 @@ channel instances."
(zip instances derivations))))
(return (manifest entries))))
+(define (channel-instances->derivation instances)
+ "Return the derivation of the profile containing INSTANCES, a list of
+channel instances."
+ (mlet %store-monad ((manifest (channel-instances->manifest instances)))
+ (profile-derivation manifest)))
+
(define latest-channel-instances*
(store-lift latest-channel-instances))
(define* (latest-channel-derivation #:optional (channels %default-channels))
"Return as a monadic value the derivation that builds the profile for the
latest instances of CHANNELS."
- (mlet* %store-monad ((instances ((store-lift latest-channel-instances)
- channels))
- (manifest (channel-instances->manifest instances)))
- (profile-derivation manifest)))
+ (mlet %store-monad ((instances (latest-channel-instances* channels)))
+ (channel-instances->derivation instances)))
--
2.18.0
- [bug#32759] [PATCH 0/8] Seamless integration of inferior packages, Ludovic Courtès, 2018/09/18
- [bug#32759] [PATCH 1/8] inferior: Add 'inferior-package-derivation'., Ludovic Courtès, 2018/09/18
- [bug#32759] [PATCH 6/8] profiles: 'packages->manifest' now accepts inferior packages., Ludovic Courtès, 2018/09/18
- [bug#32759] [PATCH 7/8] channels: Add 'channel-instances->derivation'.,
Ludovic Courtès <=
- [bug#32759] [PATCH 8/8] inferior: Add 'inferior-for-channels'., Ludovic Courtès, 2018/09/18
- [bug#32759] [PATCH 3/8] inferior: Add 'inferior-package-inputs' & co., Ludovic Courtès, 2018/09/18
- [bug#32759] [PATCH 2/8] inferior: Add 'lookup-inferior-packages'., Ludovic Courtès, 2018/09/18
- [bug#32759] [PATCH 4/8] inferior: Add 'inferior-package-search-paths' & co., Ludovic Courtès, 2018/09/18
- [bug#32759] [PATCH 5/8] inferior: Add 'inferior-package->manifest-entry'., Ludovic Courtès, 2018/09/18
- bug#32759: [PATCH 0/8] Seamless integration of inferior packages, Ludovic Courtès, 2018/09/21