From 7c5f01d55634254bea8bad4c9dcc31496efd4fce Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 27 Sep 2021 11:57:28 +0200 Subject: 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 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 - ;; 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 -- cgit v1.2.3