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'.

diff --git a/guix/derivations.scm b/guix/derivations.scm
index 8ce96ce..186d7a3 100644 (file)
--- 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)
                         '())))