From 69663cdfa4081d4c3b9a844f5d4f8435e5d83dfb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 17 Jan 2024 09:47:02 +0100
Subject: [PATCH] gnu: hurd: Prettify origin file names.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/hurd.scm (hurd-headers): Drop “v” from ‘version’ string.
(dde-sources): Strip COMMIT in ‘file-name’ field.
(rumpkernel)[source]: Pass VERSION rather than COMMIT to ‘git-file-name’.

Change-Id: I403048d5ba79ef410383c567157aca416843a529
---
 gnu/packages/hurd.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index 7a271a68b086c3742b373d05213c5e1120377589..e7c3141c75be446c2b4147b44fbdc93207b7ec19 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -134,7 +134,7 @@ communication.")
         (commit "v0.9.git20230520"))
     (package
       (name "hurd-headers")
-      (version commit)
+      (version (string-drop commit 1))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
@@ -310,7 +310,7 @@ Hurd-minimal package which are needed for both glibc and GCC.")
       (sha256
        (base32
         "0ygk7jm4jmhpvh0zzi5bk638242z7sbcab2i57fkb4y2mmdkjjbw"))
-      (file-name (git-file-name "dde" commit)))))
+      (file-name (git-file-name "dde" (string-take commit 7))))))
 
 (define %import-from-dde
   (list "libmachdevdde" "libddekit" "libdde_linux26"))
@@ -656,7 +656,7 @@ in userland processes thanks to the DDE layer.")
                 (sha256
                  (base32
                   "0fv0k52qqcg3nq9012hibgsamvsd7mnvn2ikdasmzjhsp8qh5q3r"))
-                (file-name (git-file-name name commit))))
+                (file-name (git-file-name name version))))
       (build-system gnu-build-system)
       (arguments
        (list