02/02: build: cargo-build-system: Strip enough prefix in package.

[guix-commits]

efraim pushed a commit to branch rust-team
in repository guix.

commit 22655c4253a0ddd2dca19ca226094d2bbda5dcfd
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Oct 4 16:06:42 2023 +0300

    build: cargo-build-system: Strip enough prefix in package.
    
    * guix/build/cargo-build-system.scm (package): When using the source as
    the packaged crate also strip the 'rust-' prefix.
---
 guix/build/cargo-build-system.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/build/cargo-build-system.scm 
b/guix/build/cargo-build-system.scm
index 8bf6ba510b..e54882be34 100644
--- a/guix/build/cargo-build-system.scm
+++ b/guix/build/cargo-build-system.scm
@@ -231,10 +231,10 @@ directory = '" port)
           (for-each
             (lambda (file)
               (make-file-writable file)
-              ;; Strip the hash and replace '.tar.gz' with '.crate'.
+              ;; Strip the hash and rust prefix and replace '.tar.gz' with 
'.crate'.
               (rename-file file
                            (string-append (string-drop-right
-                                            (string-drop file 35)
+                                            (string-drop file 40)
                                             (string-length ".tar.gz"))
                                           ".crate")))
             (find-files "." "\\.tar\\.gz$"))))