[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: derivations: Use a set for 'substitution-oracle'.
|
From: |
Ludovic Courtès |
|
Subject: |
03/03: derivations: Use a set for 'substitution-oracle'. |
|
Date: |
Sun, 11 Jan 2015 22:50:59 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit c06d140c03020c669ce89bdb43c06fd27abc6e69
Author: Ludovic Courtès <address@hidden>
Date: Sun Jan 11 23:20:57 2015 +0100
derivations: Use a set for 'substitution-oracle'.
* guix/derivations.scm (substitution-oracle): Use sets instead of lists.
---
guix/derivations.scm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/derivations.scm b/guix/derivations.scm
index 2f01508..b48e7e6 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