summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-07-03 22:42:19 +0200
committerLudovic Courtès <ludo@gnu.org>2019-07-03 23:44:19 +0200
commite85a7b7f8c6a2ef23b29968b3ddf09d922449c19 (patch)
treebba5420337d25dfd8dee559eb2a358fb6a433500
parentc14a2b289d2dd2fc2240e8ae226fadfa957fc587 (diff)
downloadguix-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.scm3
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)
                         '())))