upstream: Compare symbols to symbols.

The UNCHANGED? comparison would always yield #FALSE, because we have been
comparing lists of strings with lists of symbols.

* guix/upstream.scm (update-package-inputs): Convert string labels to symbols
before comparison.
This commit is contained in:
Ricardo Wurmus 2023-09-13 14:06:19 +02:00
parent 67268d9a81
commit b6441f7bd0
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 3 additions and 2 deletions

View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2010-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
;;; Copyright © 2019, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019, 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2021, 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com>
@ -534,7 +534,8 @@ specified in SOURCE, an <upstream-source>."
(define old
(match (package-inputs package)
(((labels (? package? packages)) ...)
labels)
labels
(map string->symbol labels))
(_
'())))