diff options
| author | 宋文武 <iyzsong@gmail.com> | 2015-05-27 21:03:21 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2015-05-27 21:03:21 +0800 |
| commit | eeae0b3c6ca1a0b86cb015ed45c638985ed7da30 (patch) | |
| tree | 554b0b7e3d55070b5f98dec749607c827f65c6d1 | |
| parent | b04af0ec670c097ef46ad7751924941401272730 (diff) | |
| download | patches-eeae0b3c6ca1a0b86cb015ed45c638985ed7da30.tar patches-eeae0b3c6ca1a0b86cb015ed45c638985ed7da30.tar.gz | |
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.
| -rw-r--r-- | guix/profiles.scm | 6 |
1 files 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))) |