ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 21:59:08 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix import: Print list of expressions.

Browse source 
* guix/scripts/import.scm (guix-import): Print list of expressions.
This commit is contained in:
Ricardo Wurmus 2016-05-17 16:42:41 +02:00 committed by Ricardo Wurmus
parent 64ce53eb5e
commit d68ba5f483
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
guix/scripts/import.scm
View file

@ -107,10 +107,17 @@ (define (guix-import . args)
(show-version-and-exit "guix import"))
((importer args ...)
(if (member importer importers)
(match (apply (resolve-importer importer) args)
((and expr ('package _ ...))
(pretty-print expr (newline-rewriting-port
(current-output-port))))
(x
(leave (_ "'~a' import failed~%") importer)))
(let ((print (lambda (expr)
(pretty-print expr (newline-rewriting-port
(current-output-port))))))
(match (apply (resolve-importer importer) args)
((and expr ('package _ ...))
(print expr))
((? list? expressions)
(for-each (lambda (expr)
(print expr)
(newline))
expressions))
(x
(leave (_ "'~a' import failed~%") importer))))
(leave (_ "~a: invalid importer~%") importer)))))