me/guix
Archived
1
0
Fork 0
Code Activity

refresh: Sort update specs by package location.

Browse source 
Fixes <https://issues.guix.gnu.org/64358>.

* guix/scripts/refresh.scm (guix-refresh): Sort update specs by location from
bottom to top before updating packages.
This commit is contained in:
Ricardo Wurmus 2023-07-10 20:37:55 +02:00
parent 4a027d2b0e
commit b43841c124
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 22 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
guix/scripts/refresh.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2019, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com> ;;; Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev> ;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com>
@ -589,16 +589,27 @@ all are dependent packages: ~{~a~^ ~}~%")
(or (assoc-ref opts 'keyring) (or (assoc-ref opts 'keyring)
(string-append (config-directory) (string-append (config-directory)
"/upstream/trustedkeys.kbx")))) "/upstream/trustedkeys.kbx"))))
(for-each (let* ((spec-line
(lambda (update) (compose location->string
(update-package store package-location
(update-spec-package update) update-spec-package))
(update-spec-version update) ;; Sort the specs so that we update packages from the
updaters ;; bottom of the file to the top. This way we can be
#:key-server (%openpgp-key-server) ;; sure that the package locations are always correct
#:key-download key-download ;; and never shifted due to previous edits.
#:warn? warn?)) (sorted-update-specs
update-specs) (sort update-specs
(lambda (a b) (string> (spec-line a) (spec-line b))))))
(for-each
(lambda (update)
(update-package store
(update-spec-package update)
(update-spec-version update)
updaters
#:key-server (%openpgp-key-server)
#:key-download key-download
#:warn? warn?))
sorted-update-specs))
(return #t))) (return #t)))
(else (else
(for-each (cut check-for-package-update <> updaters (for-each (cut check-for-package-update <> updaters