tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-23 09:35:56 +02:00
Code Activity

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

Browse Source 
* gnu/ci.scm (channel-build-system): Adjust to new monadic style.
This commit is contained in:
Ludovic Courtès
2021-09-27 11:57:28 +02:00
parent 4bd69850df
commit 7c5f01d556
1 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/ci.scm
+10 -14
View File
@@ -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