aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-04-24 14:43:31 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-25 00:13:56 +0200
commitf903dc056a5176033daca7a69d5b2c8376ff0677 (patch)
treee7ca982e7ba57d22245a048c37223ff9f9947ea7 /build-aux
parent5fe21fbeefe109f400aef40a51f71af111546fa3 (diff)
downloadguix-f903dc056a5176033daca7a69d5b2c8376ff0677.tar
guix-f903dc056a5176033daca7a69d5b2c8376ff0677.tar.gz
packages: Use `read' and source properties for `package-field-location'.
* guix/packages.scm (package-field-location): Rewrite using `read' and source properties. Change to return #f upon failure. * tests/packages.scm ("package-field-location"): Check for #f upon failure. * build-aux/sync-synopses.scm: Adjust accordingly.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/sync-synopses.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/build-aux/sync-synopses.scm b/build-aux/sync-synopses.scm
index 3681b8c623..c1049d3398 100644
--- a/build-aux/sync-synopses.scm
+++ b/build-aux/sync-synopses.scm
@@ -52,7 +52,8 @@
((package . descriptor)
(let ((upstream (gnu-package-doc-summary descriptor))
(downstream (package-synopsis package))
- (loc (package-field-location package 'synopsis)))
+ (loc (or (package-field-location package 'synopsis)
+ (package-location package))))
(unless (and upstream (string=? upstream downstream))
(format (guix-warning-port)
"~a: ~a: proposed synopsis: ~s~%"