summaryrefslogtreecommitdiff
path: root/guix/scripts/pack.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-02-11 22:52:28 +0100
committerLudovic Courtès <ludo@gnu.org>2019-02-11 23:23:28 +0100
commit910d0121a8b6515febf0a02e4d23c249f98c0da2 (patch)
treecd15da4172eb61dd0bccada8d04443d4f5574d71 /guix/scripts/pack.scm
parent1d8b10d00f0c242bc5ce9540737af3d3f24a05c0 (diff)
downloadpatches-910d0121a8b6515febf0a02e4d23c249f98c0da2.tar
patches-910d0121a8b6515febf0a02e4d23c249f98c0da2.tar.gz
pack, vm: Fix incorrect use of 'package-transitive-propagated-inputs'.
In practice the error was not triggered because 'package-transitive-propagated-inputs' currently returns the empty list for these two packages. * guix/scripts/pack.scm (gcrypt-sqlite3&co): Remove labels from the result. * gnu/system/vm.scm (gcrypt-sqlite3&co): Likewise.
Diffstat (limited to 'guix/scripts/pack.scm')
-rw-r--r--guix/scripts/pack.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index b19a4ae1b1..8fce99ad17 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -104,7 +104,9 @@ found."
;; Guile-Gcrypt, Guile-SQLite3, and their propagated inputs.
(append-map (lambda (package)
(cons package
- (package-transitive-propagated-inputs package)))
+ (match (package-transitive-propagated-inputs package)
+ (((labels packages) ...)
+ packages))))
(list guile-gcrypt guile-sqlite3)))
(define (store-database items)