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

* guix/channels.scm (old-style-guix?): Use 'derivation-name' rather than 'derivation-input-path'.
2019-07-10 18:51:56 +02:00 · 2019-07-10 18:51:56 +02:00 · 9af75a2630
commit 9af75a2630
parent b9373e2627
1 changed files with 3 additions and 2 deletions
--- a/guix/channels.scm
+++ b/guix/channels.scm
@ -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)