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

View file

@ -320,8 +320,7 @@ (define (dependencies drv)
;; 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)
'())))