summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-01-11 23:20:57 +0100
committerLudovic Courtès <ludo@gnu.org>2015-01-11 23:50:01 +0100
commitc06d140c03020c669ce89bdb43c06fd27abc6e69 (patch)
tree425d41eb31168baa92e5e79845ea0b7a9a368e19
parented3592a9809fad73e9caee2d321d06446d78c8d2 (diff)
downloadguix-c06d140c03020c669ce89bdb43c06fd27abc6e69.tar.gz
derivations: Use a set for 'substitution-oracle'.
* guix/derivations.scm (substitution-oracle): Use sets instead of lists.
-rw-r--r--guix/derivations.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm
index 2f015089a3..b48e7e604d 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -217,8 +217,8 @@ substituter many times."
                            (append self deps result)))
                        '()
                        drv)))
-         (subst (substitutable-paths store paths)))
-    (cut member <> subst)))
+         (subst (list->set (substitutable-paths store paths))))
+    (cut set-contains? subst <>)))
 
 (define* (derivation-prerequisites-to-build store drv
                                             #:key