diff options
author | Ludovic Courtès <ludo@gnu.org> | 2019-07-03 22:42:19 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-03 23:44:19 +0200 |
commit | e85a7b7f8c6a2ef23b29968b3ddf09d922449c19 (patch) | |
tree | bba5420337d25dfd8dee559eb2a358fb6a433500 | |
parent | c14a2b289d2dd2fc2240e8ae226fadfa957fc587 (diff) | |
download | patches-e85a7b7f8c6a2ef23b29968b3ddf09d922449c19.tar patches-e85a7b7f8c6a2ef23b29968b3ddf09d922449c19.tar.gz |
derivations: 'substitution-oracle' no longer calls 'read-derivation-from-file'.
This is a followup to 5cf4b26d52bcea382d98fb4becce89be9ee37b55.
* guix/derivations.scm (substitution-oracle): Use
'derivation-input-derivation' instead of calling
'read-derivation-from-file'.
-rw-r--r-- | guix/derivations.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm index 8ce96ce62a..186d7a3f8f 100644 --- a/guix/derivations.scm +++ b/guix/derivations.scm @@ -320,8 +320,7 @@ substituter many times." ;; info is not already in cache. ;; Also, skip derivations marked as non-substitutable. (append-map (lambda (input) - (let ((drv (read-derivation-from-file - (derivation-input-path input)))) + (let ((drv (derivation-input-derivation input))) (if (substitutable-derivation? drv) (derivation-input-output-paths input) '()))) |