summaryrefslogtreecommitdiff
path: root/guix/upstream.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2022-01-04 21:41:38 +0100
committerRicardo Wurmus <rekado@elephly.net>2022-01-05 21:17:58 +0100
commite86afe58ff04a7a9b39cc6aee91d161afebddc18 (patch)
tree27eeca4f2bf82362c1c7e210b7c0e61168f5e974 /guix/upstream.scm
parent6226df77ee7448ba4eae05c14aa2ba9721f28bb4 (diff)
guix/upstream: Let changed-inputs support the new input lists.
* guix/upstream.scm (changed-inputs): Add match clauses for new-style input lists.
Diffstat (limited to 'guix/upstream.scm')
-rw-r--r--guix/upstream.scm8
1 files changed, 7 insertions, 1 deletions
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)))