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

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 43ffa11fdc4de4197a1096f6ebc4067115f9eb26
Author: Efraim Flashner <address@hidden>
Date:   Fri Sep 13 15:05:10 2019 +0300

    build-system/cargo: Use 'strip-store-file-name'.
    
    This is a follow-up to f58b2f38e4dfdbb8473fb2816d44fae6ad9cbc79.
    
    * guix/build/cargo-build-system.scm (configure): Use bespoke
    'strip-store-file-name' function.
---
 guix/build/cargo-build-system.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/build/cargo-build-system.scm 
b/guix/build/cargo-build-system.scm
index 0134997..c69cae5 100644
--- a/guix/build/cargo-build-system.scm
+++ b/guix/build/cargo-build-system.scm
@@ -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