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:
parent
5dd0269244
commit
022288ba53
|
@ -85,14 +85,14 @@
|
|||
(()
|
||||
'())
|
||||
((package-inputs ...)
|
||||
`((#:cargo-inputs ,package-inputs)))))
|
||||
`(#:cargo-inputs ,package-inputs))))
|
||||
|
||||
(define (maybe-cargo-development-inputs package-names)
|
||||
(match (package-names->package-inputs package-names)
|
||||
(()
|
||||
'())
|
||||
((package-inputs ...)
|
||||
`((#:cargo-development-inputs ,package-inputs)))))
|
||||
`(#:cargo-development-inputs ,package-inputs))))
|
||||
|
||||
(define (maybe-arguments arguments)
|
||||
(match arguments
|
||||
|
|
|
@ -91,7 +91,7 @@
|
|||
('build-system 'cargo-build-system)
|
||||
('arguments
|
||||
('quasiquote
|
||||
(('#:cargo-inputs (("rust-bar" ('unquote rust-bar)))))))
|
||||
('#:cargo-inputs (("rust-bar" ('unquote rust-bar))))))
|
||||
('home-page "http://example.com")
|
||||
('synopsis "summary")
|
||||
('description "summary")
|
||||
|
|
Loading…
Reference in New Issue