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.
This commit is contained in:
宋文武 2015-05-27 21:03:21 +08:00
parent b04af0ec67
commit eeae0b3c6c
1 changed files with 3 additions and 3 deletions

View File

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