02/02: ci: Adjust 'channel-build-system' to monadic style.

[guix-commits]

civodul pushed a commit to branch core-updates-frozen
in repository guix.

commit 7c5f01d55634254bea8bad4c9dcc31496efd4fce
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Sep 27 11:57:28 2021 +0200

    ci: Adjust 'channel-build-system' to monadic style.
    
    * gnu/ci.scm (channel-build-system): Adjust to new monadic style.
---
 gnu/ci.scm | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index 15a4815..b65c45d 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -301,20 +301,16 @@ otherwise use the IMAGE name."
 
 (define channel-build-system
   ;; Build system used to "convert" a channel instance to a package.
-  (let* ((build (lambda* (store name inputs
-                                #:key source commit system
-                                #:allow-other-keys)
-                  (run-with-store store
-                    ;; SOURCE can be a lowerable object such as <local-file>
-                    ;; or a file name.  Adjust accordingly.
-                    (mlet* %store-monad ((source (if (string? source)
-                                                     (return source)
-                                                     (lower-object source)))
-                                         (instance
-                                          -> (checkout->channel-instance
-                                              source #:commit commit)))
-                      (channel-instances->derivation (list instance)))
-                    #:system system)))
+  (let* ((build (lambda* (name inputs
+                               #:key source commit system
+                               #:allow-other-keys)
+                  (mlet* %store-monad ((source (if (string? source)
+                                                   (return source)
+                                                   (lower-object source)))
+                                       (instance
+                                        -> (checkout->channel-instance
+                                            source #:commit commit)))
+                    (channel-instances->derivation (list instance)))))
          (lower (lambda* (name #:key system source commit
                                #:allow-other-keys)
                   (bag