diff options
| author | Ivan Petkov <ivanppetkov@gmail.com> | 2019-06-30 07:18:20 -0700 |
|---|---|---|
| committer | Ivan Petkov <ivanppetkov@gmail.com> | 2019-06-30 09:01:27 -0700 |
| commit | 022288ba53bd44c9311c6cffef5e8224a2e74598 (patch) | |
| tree | 913b76c24017fec9968a9a3bf2d4162b6c157459 | |
| parent | 5dd0269244da42066133d19055c9eb82b9e9ae20 (diff) | |
| download | guix-022288ba53bd44c9311c6cffef5e8224a2e74598.tar.gz | |
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.
| -rw-r--r-- | guix/import/crate.scm | 4 | ||||
| -rw-r--r-- | tests/crate.scm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/guix/import/crate.scm b/guix/import/crate.scm index 9a73d9fe16..29318aac0e 100644 --- a/guix/import/crate.scm +++ b/guix/import/crate.scm @@ -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 diff --git a/tests/crate.scm b/tests/crate.scm index a4a328d507..72c3a13350 100644 --- a/tests/crate.scm +++ b/tests/crate.scm @@ -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") |