derivations: Use a set for 'substitution-oracle'.

* guix/derivations.scm (substitution-oracle): Use sets instead of lists.
This commit is contained in:
Ludovic Courtès 2015-01-11 23:20:57 +01:00
parent ed3592a980
commit c06d140c03
1 changed files with 2 additions and 2 deletions

View File

@ -217,8 +217,8 @@ substituter many times."
(append self deps result))) (append self deps result)))
'() '()
drv))) drv)))
(subst (substitutable-paths store paths))) (subst (list->set (substitutable-paths store paths))))
(cut member <> subst))) (cut set-contains? subst <>)))
(define* (derivation-prerequisites-to-build store drv (define* (derivation-prerequisites-to-build store drv
#:key #:key