TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

* 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)))
(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))
(title "Link to patch snippet"))
"snippet")))