ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

describe: Make sure package-channels always returns a list.

Browse source 
* guix/describe.scm (package-channels): Return an empty list if the file
origin could not be determined.
This commit is contained in:
Mathieu Othacehe 2021-02-25 10:24:11 +01:00
parent b6c7e5af02
commit 4dfce0115f
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
guix/describe.scm
View file

@ -156,16 +156,16 @@ (define (package-channels package)
(let ((file (if (string-prefix? "/" file)
file
(search-path %load-path file))))
(and file
(string-prefix? (%store-prefix) file)
(filter-map
(lambda (entry)
(let ((item (manifest-entry-item entry)))
(and (or (string-prefix? item file)
(string=? "guix" (manifest-entry-name entry)))
(manifest-entry-channel entry))))
(current-profile-entries)))))))
(if (and file
(string-prefix? (%store-prefix) file))
(filter-map
(lambda (entry)
(let ((item (manifest-entry-item entry)))
(and (or (string-prefix? item file)
(string=? "guix" (manifest-entry-name entry)))
(manifest-entry-channel entry))))
(current-profile-entries))
'())))))
(define (package-provenance package)
"Return the provenance of PACKAGE as an sexp for use as the 'provenance'