From eeae0b3c6ca1a0b86cb015ed45c638985ed7da30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= <iyzsong@gmail.com>
Date: Wed, 27 May 2015 21:03:21 +0800
Subject: [PATCH] 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 55c059860e66f59de3e138b93a83654f60a0b532..aaf693363a7bc9425ab2aaefdfe2070e87f60f55 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)))