me/guix
Archived
1
0
Fork 0
Code Activity

list-packages: Make 'snippet-link' more tolerant.

Browse source 
* build-aux/list-packages.scm (package->sxml)[snippet-link]: If
  'package-field-location' returns #f, use 'package-location.
This commit is contained in:
Ludovic Courtès 2013-11-24 22:57:06 +01:00
parent 840f71cdfc
commit aad560a56f
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
build-aux/list-packages.scm
View file

@ -106,7 +106,8 @@ decreasing, is 1."
(basename patch))) (basename patch)))
(define (snippet-link snippet) (define (snippet-link snippet)
(let ((loc (package-field-location package 'source))) (let ((loc (or (package-field-location package 'source)
(package-location package))))
`(a (@ (href ,(location-url loc)) `(a (@ (href ,(location-url loc))
(title "Link to patch snippet")) (title "Link to patch snippet"))
"snippet"))) "snippet")))