diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-04-24 14:43:31 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-25 00:13:56 +0200 |
| commit | f903dc056a5176033daca7a69d5b2c8376ff0677 (patch) | |
| tree | e7ca982e7ba57d22245a048c37223ff9f9947ea7 /build-aux/sync-synopses.scm | |
| parent | 5fe21fbeefe109f400aef40a51f71af111546fa3 (diff) | |
| download | 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/sync-synopses.scm')
| -rw-r--r-- | build-aux/sync-synopses.scm | 3 |
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~%" |