aboutsummaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-05-07 14:04:19 +0200
committerLudovic Courtès <ludo@gnu.org>2018-05-07 14:04:19 +0200
commitd26727a143fab0dded1dbc848899270dbacd5dad (patch)
tree23c29b5c322a960768c4624a6350fc5602222dd1 /guix
parent91a56b4ab5e714e230c0088fb9f5ce0519efe1a0 (diff)
downloadguix-d26727a143fab0dded1dbc848899270dbacd5dad.tar
guix-d26727a143fab0dded1dbc848899270dbacd5dad.tar.gz
pack: Fix handling of '-e'.
Fixes a regression introduced in aad16cc1965ab3488449c262455eb29b15c77e95. 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'.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/pack.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 1f493d8a09..0e09a01496 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -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