build-system/channel: Correctly handle store file name from (gnu ci).

This is a followup to cf60a0a906.

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

* guix/build-system/channel.scm (build-channels): Add 'string?' case.
This commit is contained in:
Ludovic Courtès 2022-08-11 15:55:38 +02:00
parent d7aaf38611
commit a817064947
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -46,6 +46,13 @@ (define* (build-channels name inputs
(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)))