From e86afe58ff04a7a9b39cc6aee91d161afebddc18 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 4 Jan 2022 21:41:38 +0100 Subject: 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(-) (limited to 'guix/upstream.scm') 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 ;;; Copyright © 2015 Alex Kost -;;; Copyright © 2019 Ricardo Wurmus +;;; Copyright © 2019, 2022 Ricardo Wurmus ;;; ;;; 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))) -- cgit v1.2.3