aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
author宋文武 <iyzsong@gmail.com>2015-05-27 21:03:21 +0800
committer宋文武 <iyzsong@gmail.com>2015-05-27 21:03:21 +0800
commiteeae0b3c6ca1a0b86cb015ed45c638985ed7da30 (patch)
tree554b0b7e3d55070b5f98dec749607c827f65c6d1
parentb04af0ec670c097ef46ad7751924941401272730 (diff)
downloadguix-eeae0b3c6ca1a0b86cb015ed45c638985ed7da30.tar.gz
guix-eeae0b3c6ca1a0b86cb015ed45c638985ed7da30.zip
profiles: Use 'derivation?' to filter hooks.
Fixes a regression introduced in 07eaecfa. * guix/profiles.scm (profile-derivation): Use 'derivation?' instead of 'gexp?' to filter hooks.
-rw-r--r--guix/profiles.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm
index 55c059860e..aaf693363a 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -685,9 +685,9 @@ the monadic procedures listed in HOOKS--such as an Info 'dir' file, etc."
(hook manifest))
hooks)))))
(define inputs
- (append (filter-map (lambda (gexp)
- (and (gexp? gexp)
- (gexp-input gexp)))
+ (append (filter-map (lambda (drv)
+ (and (derivation? drv)
+ (gexp-input drv)))
extras)
(manifest-inputs manifest)))