From a25006198690dc263ce1b13de6733055c6d6eba4 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 23 Jun 2019 09:38:23 +0200
Subject: graph: Use 'derivation-input-derivation'.

* guix/scripts/graph.scm (derivation-dependencies): Use
'derivation-input-derivation'.
---
 guix/scripts/graph.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'guix/scripts/graph.scm')

diff --git a/guix/scripts/graph.scm b/guix/scripts/graph.scm
index 8fe81ad64b..2e14857f1e 100644
--- a/guix/scripts/graph.scm
+++ b/guix/scripts/graph.scm
@@ -254,8 +254,7 @@ GNU-BUILD-SYSTEM have zero dependencies."
   "Return the <derivation> objects and store items corresponding to the
 dependencies of OBJ, a <derivation> or store item."
   (if (derivation? obj)
-      (append (map (compose read-derivation-from-file derivation-input-path)
-                   (derivation-inputs obj))
+      (append (map derivation-input-derivation (derivation-inputs obj))
               (derivation-sources obj))
       '()))
 
-- 
cgit v1.2.3