From eeae0b3c6ca1a0b86cb015ed45c638985ed7da30 Mon Sep 17 00:00:00 2001 From: 宋文武 Date: Wed, 27 May 2015 21:03:21 +0800 Subject: 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. --- guix/profiles.scm | 6 +++--- 1 file 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))) -- cgit v1.2.3