derivations: 'substitution-oracle' no longer calls 'read-derivation-from-file'.

This is a followup to 5cf4b26d52.

* guix/derivations.scm (substitution-oracle): Use
'derivation-input-derivation' instead of calling
'read-derivation-from-file'.
This commit is contained in:
Ludovic Courtès 2019-07-03 22:42:19 +02:00
parent c14a2b289d
commit e85a7b7f8c
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 2 deletions

View File

@ -320,8 +320,7 @@ substituter many times."
;; info is not already in cache. ;; info is not already in cache.
;; Also, skip derivations marked as non-substitutable. ;; Also, skip derivations marked as non-substitutable.
(append-map (lambda (input) (append-map (lambda (input)
(let ((drv (read-derivation-from-file (let ((drv (derivation-input-derivation input)))
(derivation-input-path input))))
(if (substitutable-derivation? drv) (if (substitutable-derivation? drv)
(derivation-input-output-paths input) (derivation-input-output-paths input)
'()))) '())))