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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit e85a7b7f8c6a2ef23b29968b3ddf09d922449c19
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jul 3 22:42:19 2019 +0200

    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'.
---
 guix/derivations.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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