diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-04-22 23:07:13 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-22 23:07:13 +0200 |
| commit | d66c70967f9bd792acdd00036292dc0a7b858742 (patch) | |
| tree | 90e60b8fa1c2aa5e491d314c805f39cf4b11444f /build-aux | |
| parent | b2a886f6c7c8424ce024020aaa8927be9811f40b (diff) | |
| download | patches-d66c70967f9bd792acdd00036292dc0a7b858742.tar patches-d66c70967f9bd792acdd00036292dc0a7b858742.tar.gz | |
packages: Add `package-field-location'.
* guix/packages.scm (package-field-location): New procedure.
* build-aux/sync-synopses.scm: Use it instead of `package-location'.
* tests/packages.scm ("package-field-location"): New test.
Diffstat (limited to 'build-aux')
| -rw-r--r-- | build-aux/sync-synopses.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/build-aux/sync-synopses.scm b/build-aux/sync-synopses.scm index 9aaff11ce0..3681b8c623 100644 --- a/build-aux/sync-synopses.scm +++ b/build-aux/sync-synopses.scm @@ -52,7 +52,7 @@ ((package . descriptor) (let ((upstream (gnu-package-doc-summary descriptor)) (downstream (package-synopsis package)) - (loc (package-location package))) + (loc (package-field-location package 'synopsis))) (unless (and upstream (string=? upstream downstream)) (format (guix-warning-port) "~a: ~a: proposed synopsis: ~s~%" |