build-system/cargo: Use 'strip-store-file-name'.

This is a follow-up to f58b2f38e4.

* guix/build/cargo-build-system.scm (configure): Use bespoke
'strip-store-file-name' function.
This commit is contained in:
Efraim Flashner 2019-09-13 15:05:10 +03:00
parent f69f37d54a
commit 43ffa11fdc
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 1 additions and 1 deletions

View File

@ -99,7 +99,7 @@ Cargo.toml file present at its root."
(for-each
(match-lambda
((name . path)
(let* ((basepath (string-drop (basename path) 33))
(let* ((basepath (strip-store-file-name path))
(crate-dir (string-append vendor-dir "/" basepath)))
(and (crate-src? path)
;; Gracefully handle duplicate inputs