~ruther/guix-local: profiles: Use 'derivation?' to filter hooks.

eeae0b3c6ca1a0b86cb015ed45c638985ed7da30 — 宋文武 10 years ago b04af0e

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.

patch browse .tar.gz

1 files changed, 3 insertions(+), 3 deletions(-)

M guix/profiles.scm

M guix/profiles.scm => guix/profiles.scm +3 -3

@@ 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)))