aboutsummaryrefslogtreecommitdiff
path: root/gnu/ci.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-09-27 11:57:28 +0200
committerLudovic Courtès <ludo@gnu.org>2021-09-27 17:55:53 +0200
commit7c5f01d55634254bea8bad4c9dcc31496efd4fce (patch)
tree800625411b7df57179093b0548d584ffb4394009 /gnu/ci.scm
parent4bd69850df42cedaa0a0f25d89e23889fb4637d0 (diff)
downloadguix-7c5f01d55634254bea8bad4c9dcc31496efd4fce.tar
guix-7c5f01d55634254bea8bad4c9dcc31496efd4fce.tar.gz
ci: Adjust 'channel-build-system' to monadic style.
* gnu/ci.scm (channel-build-system): Adjust to new monadic style.
Diffstat (limited to 'gnu/ci.scm')
-rw-r--r--gnu/ci.scm24
1 files changed, 10 insertions, 14 deletions
diff --git a/gnu/ci.scm b/gnu/ci.scm
index 15a4815ff4..b65c45d47a 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