~ruther/guix-local

a81706494753ad84754cbb7583ccc783452decc0 — Ludovic Courtès 3 years ago d7aaf38
build-system/channel: Correctly handle store file name from (gnu ci).

This is a followup to cf60a0a906440ccb007bae1243c3e0397c3a0aba.

Reported by Mathieu Othacehe <othacehe@gnu.org>.

* guix/build-system/channel.scm (build-channels): Add 'string?' case.
1 files changed, 7 insertions(+), 0 deletions(-)

M guix/build-system/channel.scm
M guix/build-system/channel.scm => guix/build-system/channel.scm +7 -0
@@ 46,6 46,13 @@
                               (latest-channel-instances*
                                (list source)
                                #:authenticate? authenticate?))
                              ((string? source)
                               ;; If SOURCE is a store file name, as is the
                               ;; case when called from (gnu ci), return it as
                               ;; is.
                               (return
                                (list (checkout->channel-instance
                                       source #:commit commit))))
                              (else
                               (mlet %store-monad ((source
                                                    (lower-object source)))