build-system/julia: Tweak internal 'slug'.

* guix/build/julia-build-system.scm (link-depot): Tweak 'slug'.

Change-Id: I72937a701c86505e7793209509d1592689217b22

1 files changed, 4 insertions, 1 deletions

diff --git a/guix/build/julia-build-system.scm b/guix/build/julia-build-system.scm
index 7fb5cc6c81b..71b36fe9b66 100644
--- a/guix/build/julia-build-system.scm
+++ b/guix/build/julia-build-system.scm
@@ -169,7 +169,10 @@ Project.toml)."
                            (format #f "using Pkg;
 println(Base.version_slug(Base.UUID(\"~a\"),
                           Base.SHA1(Pkg.GitTools.tree_hash(\".\"))))" uuid)))
-         (slug (string-trim-right (get-string-all pipe))))
+         (slug (string-take-right
+                (string-trim-right (get-string-all pipe))
+                5)))
+
     (let ((status (close-pipe pipe)))
       (unless (zero? status)
         (error "failed to compute package slug" status)))