From 7596ae1034a6878ecbe9e65a642a1434a78b1cf0 Mon Sep 17 00:00:00 2001
From: Julien Lepiller <julien@lepiller.eu>
Date: Thu, 3 Sep 2020 13:35:47 +0200
Subject: [PATCH] gnu: ci: Truncate git commit in ISO label.

* gnu/ci.scm (image-jobs): Keep only 7 characters from git commit in ISO
label.
---
 gnu/ci.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index 7181daeb62..630c4a9030 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -237,7 +237,10 @@ system.")
                  (image
                   (inherit (image-with-label
                              iso9660-image
-                             (string-append "GUIX_" system "_" %guix-version)))
+                             (string-append "GUIX_" system "_"
+                                            (if (> (string-length %guix-version) 7)
+                                                (substring %guix-version 0 7)
+                                                %guix-version))))
                   (operating-system installation-os))))
         ;; Only cross-compile Guix System images from x86_64-linux for now.
         ,@(if (string=? system "x86_64-linux")