diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-05-17 15:28:54 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-05-31 23:25:25 +0200 |
commit | 9f3ea03516b506d7c0440867b9db08898390a981 (patch) | |
tree | 4460150ecc85e968f16cd3bd57af549f0b712b96 /guix/upstream.scm | |
parent | e6223017d95bc615b2648f0798d9a3904d5b5f57 (diff) | |
download | guix-patches-9f3ea03516b506d7c0440867b9db08898390a981.tar guix-patches-9f3ea03516b506d7c0440867b9db08898390a981.tar.gz |
diagnostics: Factorize 'absolute-location'.
* guix/scripts/style.scm (absolute-location): Move to...
* guix/diagnostics.scm (absolute-location): ... here.
* guix/upstream.scm (update-package-source): Use it.
Diffstat (limited to 'guix/upstream.scm')
-rw-r--r-- | guix/upstream.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/upstream.scm b/guix/upstream.scm index 52f9333878..4ae2d1c8c8 100644 --- a/guix/upstream.scm +++ b/guix/upstream.scm @@ -637,8 +637,8 @@ new version string if an update was made, and #f otherwise." ;; function of the person who uploads the package. Note that ;; package definitions usually concatenate fragments of the URL, ;; which is why we only attempt to replace a subset of the URL. - (let ((properties (assq-set! (location->source-properties loc) - 'filename file)) + (let ((properties (location->source-properties + (absolute-location loc))) (replacements `((,old-version . ,version) (,old-hash . ,hash) ,@(if (and old-commit new-commit) |