From d98a5b9d36a74d47348a5a838209993f6b2539e0 Mon Sep 17 00:00:00 2001
From: Julien Lepiller <julien@lepiller.eu>
Date: Sun, 30 Aug 2020 20:43:42 +0200
Subject: [PATCH 2/3] gnu: ci: Set label in iso9660 jobs.

* gnu/ci.scm (image-jobs): Set label of generated ISOs.
---
 gnu/ci.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index af0bb66775..c15baa99d3 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2018, 2019 Clément Lassieur <clement@lassieur.org>
+;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -25,6 +26,7 @@
   #:use-module (guix profiles)
   #:use-module (guix packages)
   #:use-module (guix channels)
+  #:use-module (guix config)
   #:use-module (guix derivations)
   #:use-module (guix build-system)
   #:use-module (guix monads)
@@ -234,7 +236,15 @@ system.")
                 (build-image
                  (image
                   (inherit iso9660-image)
-                  (operating-system installation-os))))
+                  (operating-system installation-os)
+                  (partitions (match (image-partitions iso9660-image)
+                                ((boot others ...)
+                                 (cons
+                                   (partition
+                                     (inherit boot)
+                                     (label (string-append "GUIX_" system "_"
+                                                           %guix-version)))
+                                   others)))))))
         ;; Only cross-compile Guix System images from x86_64-linux for now.
         ,@(if (string=? system "x86_64-linux")
               (map (lambda (image)
-- 
2.28.0