channels: Avoid use of 'derivation-input-path'.

* guix/channels.scm (old-style-guix?): Use 'derivation-name' rather than
'derivation-input-path'.
This commit is contained in:
Ludovic Courtès 2019-07-10 18:51:56 +02:00
parent b9373e2627
commit 9af75a2630
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions

View File

@ -435,8 +435,9 @@ derivation."
;; "old style" (before commit 8a0d9bc8a3f153159d9e239a151c0fa98f1e12d8,
;; dated May 30, 2018) did not depend on "guix-command.drv".
(not (find (lambda (input)
(string-suffix? "-guix-command.drv"
(derivation-input-path input)))
(string=? "guix-command"
(derivation-name
(derivation-input-derivation input))))
(derivation-inputs drv))))
(define (channel-instances->manifest instances)