summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorHerman Rimm <herman@rimm.ee>2024-02-20 21:45:15 +0100
committerLudovic Courtès <ludo@gnu.org>2024-02-23 19:02:55 +0100
commitb386c11e7804e0b577411d930b60f1e0a4a0382c (patch)
treeb3eb20bbba353d0af5094b7f664a5eeecfadbd05 /guix/import
parentdf3e44cab1078ac6e84df9059a5acccdf9486700 (diff)
import: Do not return package name with json importer.
* guix/import/json.scm (json->code): Do not return package names after package expressions. * doc/package-hello.json: Fix comma errors and use valid greeter URL. Change-Id: Id71924e72f690a9bda5fbfdb65a443029adfd158 Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix/import')
-rw-r--r--guix/import/json.scm13
1 files changed, 6 insertions, 7 deletions
diff --git a/guix/import/json.scm b/guix/import/json.scm
index b87e9918c5..bf346a1bef 100644
--- a/guix/import/json.scm
+++ b/guix/import/json.scm
@@ -78,14 +78,13 @@ a list of S-expressions, or return #F when the JSON is invalid."
#:result
(append result
(list
- (package->code (alist->package pkg names))
- (string->symbol (assoc-ref pkg "name"))))))))
- (list #:names '()
- #:result '())
- packages))))
+ (package->code
+ (alist->package pkg names))))))))
+ (list #:names '()
+ #:result '())
+ packages))))
(package
- (list (package->code (alist->package json))
- (string->symbol (assoc-ref json "name")))))))
+ (list (package->code (alist->package json)))))))
(const #f)))
(define (json->scheme-file file)