summary refs log tree commit diff
path: root/build-aux/sync-synopses.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-04-22 23:07:13 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-22 23:07:13 +0200
commitd66c70967f9bd792acdd00036292dc0a7b858742 (patch)
tree90e60b8fa1c2aa5e491d314c805f39cf4b11444f /build-aux/sync-synopses.scm
parentb2a886f6c7c8424ce024020aaa8927be9811f40b (diff)
downloadguix-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/sync-synopses.scm')
-rw-r--r--build-aux/sync-synopses.scm2
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~%"