diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2023-09-13 14:06:19 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2023-09-13 22:17:21 +0200 |
commit | b6441f7bd0257783fffecfc6b6b3c6f2950204c2 (patch) | |
tree | 38ab85f4b1b475925017ee31e00938c18d142b2c | |
parent | 67268d9a8109936d9e7e486394fcc021880c6a28 (diff) | |
download | guix-b6441f7bd0257783fffecfc6b6b3c6f2950204c2.tar.gz |
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.
-rw-r--r-- | guix/upstream.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/upstream.scm b/guix/upstream.scm index 33248d645c..e28ae12f3f 100644 --- a/guix/upstream.scm +++ b/guix/upstream.scm @@ -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)) (_ '()))) |