Message ID | 20190710171128.21568-9-ludo@gnu.org |
---|---|
State | Accepted |
Headers | show |
Series | Modernize the API of the 'derivation' primitive | expand |
diff --git a/guix/channels.scm b/guix/channels.scm index e6bb9b891b..a8c8f43276 100644 --- a/guix/channels.scm +++ b/guix/channels.scm @@ -424,8 +424,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)