pack: Fix handling of '-e'.
Fixes a regression introduced in
aad16cc196
.
Reported by Julien Lepiller.
* guix/scripts/pack.scm (guix-pack)[manifest-from-args]: In
'match-lambda', add clause for single packages.
* tests/guix-pack.sh: Add test for '-e'.
This commit is contained in:
parent
91a56b4ab5
commit
d26727a143
|
@ -402,8 +402,9 @@ Create a bundle of PACKAGE.\n"))
|
|||
(let* ((transform (options->transformation opts))
|
||||
(packages (map (match-lambda
|
||||
(((? package? package) output)
|
||||
(list (transform store package)
|
||||
output)))
|
||||
(list (transform store package) output))
|
||||
((? package? package)
|
||||
(list (transform store package) "out")))
|
||||
(filter-map maybe-package-argument opts)))
|
||||
(manifest-file (assoc-ref opts 'manifest)))
|
||||
(cond
|
||||
|
|
|
@ -35,8 +35,11 @@ export GUIX_BUILD_OPTIONS
|
|||
# Build a tarball with no compression.
|
||||
guix pack --compression=none --bootstrap guile-bootstrap
|
||||
|
||||
# Build a tarball (with compression).
|
||||
guix pack --bootstrap guile-bootstrap
|
||||
# Build a tarball (with compression). Check that '-e' works as well.
|
||||
out1="`guix pack --bootstrap guile-bootstrap`"
|
||||
out2="`guix pack --bootstrap -e '(@ (gnu packages bootstrap) %bootstrap-guile)'`"
|
||||
test -n "$out1"
|
||||
test "$out1" = "$out2"
|
||||
|
||||
# Build a tarball with a symlink.
|
||||
the_pack="`guix pack --bootstrap -S /opt/gnu/bin=bin guile-bootstrap`"
|
||||
|
|
Loading…
Reference in New Issue