diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-01-11 23:20:57 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-01-11 23:50:01 +0100 |
| commit | c06d140c03020c669ce89bdb43c06fd27abc6e69 (patch) | |
| tree | 425d41eb31168baa92e5e79845ea0b7a9a368e19 | |
| parent | ed3592a9809fad73e9caee2d321d06446d78c8d2 (diff) | |
| download | guix-c06d140c03020c669ce89bdb43c06fd27abc6e69.tar guix-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.scm | 4 |
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 |