aboutsummaryrefslogtreecommitdiff
path: root/build-aux/list-packages.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-11-24 22:57:06 +0100
committerLudovic Courtès <ludo@gnu.org>2013-11-24 22:57:06 +0100
commitaad560a56f7c5c9ea2bcf7c3e51973ef826f736f (patch)
tree2ff933002d9dd05ff4e510dd25fb2edb8467f95c /build-aux/list-packages.scm
parent840f71cdfc45356bfe49658eace499e0524f6aa8 (diff)
downloadguix-aad560a56f7c5c9ea2bcf7c3e51973ef826f736f.tar
guix-aad560a56f7c5c9ea2bcf7c3e51973ef826f736f.tar.gz
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.
Diffstat (limited to 'build-aux/list-packages.scm')
-rwxr-xr-xbuild-aux/list-packages.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm
index 6cf2c53491..d832374a9c 100755
--- a/build-aux/list-packages.scm
+++ b/build-aux/list-packages.scm
@@ -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")))