diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-07-10 18:51:56 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-15 10:01:05 +0200 |
| commit | 9af75a26308475f5fc9cf1c13bb0374b5a3345a6 (patch) | |
| tree | 5897b4d5590a365467e89f660a19c41a154db17f | |
| parent | b9373e262730578ba6c3805ffe44900f10bc655c (diff) | |
| download | guix-9af75a26308475f5fc9cf1c13bb0374b5a3345a6.tar guix-9af75a26308475f5fc9cf1c13bb0374b5a3345a6.tar.gz | |
channels: Avoid use of 'derivation-input-path'.
* guix/channels.scm (old-style-guix?): Use 'derivation-name' rather than
'derivation-input-path'.
| -rw-r--r-- | guix/channels.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/channels.scm b/guix/channels.scm index 615ff14565..bfe6963418 100644 --- 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) |