me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
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
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/build-system/channel.scm
View file

@ -46,6 +46,13 @@
(latest-channel-instances* (latest-channel-instances*
(list source) (list source)
#:authenticate? authenticate?)) #: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 (else
(mlet %store-monad ((source (mlet %store-monad ((source
(lower-object source))) (lower-object source)))