diff options
| author | Herman Rimm <herman@rimm.ee> | 2024-02-20 21:45:15 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-02-23 19:02:55 +0100 |
| commit | b386c11e7804e0b577411d930b60f1e0a4a0382c (patch) | |
| tree | b3eb20bbba353d0af5094b7f664a5eeecfadbd05 /guix/import | |
| parent | df3e44cab1078ac6e84df9059a5acccdf9486700 (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.scm | 13 |
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) |