me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/upstream.scm (changed-inputs): Add match clauses for new-style input
lists.
master
Ricardo Wurmus 2022-01-04 21:41:38 +01:00
parent 6226df77ee
commit e86afe58ff
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/upstream.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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 © 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 © 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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -117,16 +117,22 @@ S-expression PACKAGE-SEXP."
(match expr (match expr
((path *** ('inputs ((path *** ('inputs
('quasiquote ((label ('unquote sym)) ...)))) label) ('quasiquote ((label ('unquote sym)) ...)))) label)
((path *** ('inputs
('list sym ...))) (map symbol->string sym))
(_ '()))) (_ '())))
(new-native (new-native
(match expr (match expr
((path *** ('native-inputs ((path *** ('native-inputs
('quasiquote ((label ('unquote sym)) ...)))) label) ('quasiquote ((label ('unquote sym)) ...)))) label)
((path *** ('native-inputs
('list sym ...))) (map symbol->string sym))
(_ '()))) (_ '())))
(new-propagated (new-propagated
(match expr (match expr
((path *** ('propagated-inputs ((path *** ('propagated-inputs
('quasiquote ((label ('unquote sym)) ...)))) label) ('quasiquote ((label ('unquote sym)) ...)))) label)
((path *** ('propagated-inputs
('list sym ...))) (map symbol->string sym))
(_ '()))) (_ '())))
(current-regular (current-regular
(map input->name (package-inputs package))) (map input->name (package-inputs package)))