diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-09-27 11:57:28 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-09-27 17:55:53 +0200 |
| commit | 7c5f01d55634254bea8bad4c9dcc31496efd4fce (patch) | |
| tree | 800625411b7df57179093b0548d584ffb4394009 /gnu | |
| parent | 4bd69850df42cedaa0a0f25d89e23889fb4637d0 (diff) | |
| download | 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')
| -rw-r--r-- | gnu/ci.scm | 24 |
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 |