1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

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.
This commit is contained in:
Ludovic Courtès
2013-04-22 23:07:13 +02:00
parent b2a886f6c7
commit d66c70967f
3 changed files with 69 additions and 1 deletions

View File

@@ -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~%"