aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIvan Petkov <ivanppetkov@gmail.com>2019-06-30 07:18:20 -0700
committerIvan Petkov <ivanppetkov@gmail.com>2019-06-30 09:01:27 -0700
commit022288ba53bd44c9311c6cffef5e8224a2e74598 (patch)
tree913b76c24017fec9968a9a3bf2d4162b6c157459
parent5dd0269244da42066133d19055c9eb82b9e9ae20 (diff)
downloadguix-022288ba53bd44c9311c6cffef5e8224a2e74598.tar
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.scm4
-rw-r--r--tests/crate.scm2
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")