01/01: guix: import: crate: fix redundant inputs list nesting

[guix-commits]

ipetkov pushed a commit to branch master
in repository guix.

commit 022288ba53bd44c9311c6cffef5e8224a2e74598
Author: Ivan Petkov <address@hidden>
Date:   Sun Jun 30 07:18:20 2019 -0700

    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.
---
 guix/import/crate.scm | 4 ++--
 tests/crate.scm       | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/import/crate.scm b/guix/import/crate.scm
index 9a73d9f..29318aa 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 a4a328d..72c3a13 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")