From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=)
Subject: bug#31757: 'guix system disk-image --format=iso9660' includes more
	than the OS closure
Date: Fri, 08 Jun 2018 15:23:27 +0200
Message-ID: <87zi05mmy8.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: quoted-printable
Return-path: <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:32920)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1fRHN9-0001RU-5h
	for bug-guix@gnu.org; Fri, 08 Jun 2018 09:24:08 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1fRHN4-000686-56
	for bug-guix@gnu.org; Fri, 08 Jun 2018 09:24:07 -0400
Received: from debbugs.gnu.org ([208.118.235.43]:59265)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
	(Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
	id 1fRHN4-00067p-0g
	for bug-guix@gnu.org; Fri, 08 Jun 2018 09:24:02 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1fRHN3-0003lP-Qo
	for bug-guix@gnu.org; Fri, 08 Jun 2018 09:24:01 -0400
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-Message-ID: <handler.31757.B.152846422414434@debbugs.gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:60919)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1fRHMd-0000yJ-1l
	for bug-guix@gnu.org; Fri, 08 Jun 2018 09:23:36 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1fRHMY-0005tT-0I
	for bug-guix@gnu.org; Fri, 08 Jun 2018 09:23:35 -0400
Received: from fencepost.gnu.org ([2001:4830:134:3::e]:57579)
	by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@gnu.org>)
	id 1fRHMX-0005tN-SI
	for bug-guix@gnu.org; Fri, 08 Jun 2018 09:23:29 -0400
Received: from [193.50.110.75] (port=52190 helo=ribbon)
	by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256)
	(Exim 4.82) (envelope-from <ludo@gnu.org>) id 1fRHMX-0002fV-Dx
	for bug-guix@gnu.org; Fri, 08 Jun 2018 09:23:29 -0400
List-Id: Bug reports for GNU Guix <bug-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-guix/>
List-Post: <mailto:bug-guix@gnu.org>
List-Help: <mailto:bug-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-guix>,
	<mailto:bug-guix-request@gnu.org?subject=subscribe>
Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org
Sender: "bug-Guix" <bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org>
To: 31757@debbugs.gnu.org

Hey hey!

Turns out =E2=80=98guix system disk-image --format=3Diso9660=E2=80=99 inclu=
des not sure
the closure of the given OS, but everything that=E2=80=99s in the build
environment=E2=80=99s store.  So typically, we end up with QEMU and all in
addition to the store=E2=80=99s closure.

This stems from the fact that =E2=80=98make-iso9660-image=E2=80=99 does:

--8<---------------cut here---------------start------------->8---
    (apply invoke
           `(,grub-mkrescue "-o" ,target
                            ,(string-append "boot/grub/grub.cfg=3D" config-=
file)
                            ,(string-append "gnu/store=3D" os-drv "/..")
                            "etc=3D/tmp/root/etc"
                            "var=3D/tmp/root/var"
                            "run=3D/tmp/root/run"
                            ;; /mnt is used as part of the installation
                            ;; process, as the mount point for the target
                            ;; file system, so create it.
                            "mnt=3D/tmp/root/mnt"
                            "--"
                            "-volid" ,(string-upcase volume-id)
                            ,@(if volume-uuid
                                  `("-volume_date" "uuid"
                                    ,(string-filter (lambda (value)
                                                      (not (char=3D? #\- va=
lue)))
                                                    (iso9660-uuid->string
                                                     volume-uuid)))
                                  `())))
--8<---------------cut here---------------end--------------->8---

The =E2=80=9Cgnu/store=3D=E2=80=A6=E2=80=9D argument means we=E2=80=99re ad=
ding the whole store to the ISO.

Ludo=E2=80=99.