graph: Use 'derivation-input-derivation'.

* guix/scripts/graph.scm (derivation-dependencies): Use
'derivation-input-derivation'.
This commit is contained in:
Ludovic Courtès 2019-06-23 09:38:23 +02:00
parent 9844d0091e
commit a250061986
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 2 deletions

View File

@ -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))
'()))