guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

10/12: channels: Add 'channel-instances->derivation'.


From: Ludovic Courtès
Subject: 10/12: channels: Add 'channel-instances->derivation'.
Date: Fri, 21 Sep 2018 11:04:56 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit c37f38bde69c072cfd0006ba89f30f0d0ad24448
Author: Ludovic Courtès <address@hidden>
Date:   Tue Sep 18 12:08:05 2018 +0200

    channels: Add 'channel-instances->derivation'.
    
    * 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 2e7bffa..82389eb 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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]