02/02: profiles: Use 'derivation?' to filter hooks.

[???]

iyzsong pushed a commit to branch master
in repository guix.

commit eeae0b3c6ca1a0b86cb015ed45c638985ed7da30
Author: 宋文武 <address@hidden>
Date:   Wed May 27 21:03:21 2015 +0800

    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 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/profiles.scm b/guix/profiles.scm
index 55c0598..aaf6933 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)))