03/138: guix/upstream: Let changed-inputs support the new input lists.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit e86afe58ff04a7a9b39cc6aee91d161afebddc18
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Jan 4 21:41:38 2022 +0100

    guix/upstream: Let changed-inputs support the new input lists.
    
    * guix/upstream.scm (changed-inputs): Add match clauses for new-style input
    lists.
---
 guix/upstream.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/guix/upstream.scm b/guix/upstream.scm
index 632e9ebc4f..66fae5a351 100644
--- a/guix/upstream.scm
+++ b/guix/upstream.scm
@@ -1,7 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 
2020, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
-;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2019, 2022 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -117,16 +117,22 @@ S-expression PACKAGE-SEXP."
              (match expr
                ((path *** ('inputs
                            ('quasiquote ((label ('unquote sym)) ...)))) label)
+               ((path *** ('inputs
+                           ('list sym ...))) (map symbol->string sym))
                (_ '())))
             (new-native
              (match expr
                ((path *** ('native-inputs
                            ('quasiquote ((label ('unquote sym)) ...)))) label)
+               ((path *** ('native-inputs
+                           ('list sym ...))) (map symbol->string sym))
                (_ '())))
             (new-propagated
              (match expr
                ((path *** ('propagated-inputs
                            ('quasiquote ((label ('unquote sym)) ...)))) label)
+               ((path *** ('propagated-inputs
+                           ('list sym ...))) (map symbol->string sym))
                (_ '())))
             (current-regular
              (map input->name (package-inputs package)))