mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
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:
parent
d7aaf38611
commit
a817064947
1 changed files with 7 additions and 0 deletions
|
@ -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)))
|
||||
|
|
Loading…
Reference in a new issue