nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

guix: import: crate: fix redundant inputs list nesting 

* guix/import/crate.scm (maybe-cargo-inputs): Remove one level of lists.
* guix/import/crate.scm (maybe-cargo-development-inputs): Same.
* tests/crate.scm: (crate->guix-package)[package]<#:arguments>: Remove
one level of list nesting.
This commit is contained in:
Ivan Petkov 2019-06-30 07:18:20 -07:00
parent 5dd0269244
commit 022288ba53
No known key found for this signature in database
GPG Key ID: 0B431E9837056942
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/import/crate.scm
View File

@ -85,14 +85,14 @@
(() (()
'()) '())
((package-inputs ...) ((package-inputs ...)
`((#:cargo-inputs ,package-inputs))))) `(#:cargo-inputs ,package-inputs))))
(define (maybe-cargo-development-inputs package-names) (define (maybe-cargo-development-inputs package-names)
(match (package-names->package-inputs package-names) (match (package-names->package-inputs package-names)
(() (()
'()) '())
((package-inputs ...) ((package-inputs ...)
`((#:cargo-development-inputs ,package-inputs))))) `(#:cargo-development-inputs ,package-inputs))))
(define (maybe-arguments arguments) (define (maybe-arguments arguments)
(match arguments (match arguments

2
tests/crate.scm
View File

@ -91,7 +91,7 @@
('build-system 'cargo-build-system) ('build-system 'cargo-build-system)
('arguments ('arguments
('quasiquote ('quasiquote
(('#:cargo-inputs (("rust-bar" ('unquote rust-bar))))))) ('#:cargo-inputs (("rust-bar" ('unquote rust-bar))))))
('home-page "http://example.com") ('home-page "http://example.com")
('synopsis "summary") ('synopsis "summary")
('description "summary") ('description "summary")