From mboxrd@z Thu Jan  1 00:00:00 1970
From: Danny Milosavljevic <dannym@scratchpost.org>
Subject: bug#27735: Unbootable images with GuixSD on... "GuixSD"
Date: Wed, 19 Jul 2017 21:11:07 +0200
Message-ID: <20170719211107.51ebe24b@scratchpost.org>
References: <327af9f3-fdfb-7916-f0ea-9aec0fae20f3@tobias.gr>
	<20170717191731.2d3ad604@scratchpost.org> <87bmoi0xua.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]:33084)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dXuOD-0001kc-5E
	for bug-guix@gnu.org; Wed, 19 Jul 2017 15:12:06 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dXuO9-0004Ap-T0
	for bug-guix@gnu.org; Wed, 19 Jul 2017 15:12:05 -0400
Received: from debbugs.gnu.org ([208.118.235.43]:45464)
	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 1dXuO9-0004Ak-P3
	for bug-guix@gnu.org; Wed, 19 Jul 2017 15:12:01 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1dXuO9-00025Q-JV
	for bug-guix@gnu.org; Wed, 19 Jul 2017 15:12:01 -0400
Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-Message-ID: <handler.27735.B27735.15004914767965@debbugs.gnu.org>
In-Reply-To: <87bmoi0xua.fsf@gnu.org>
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: Ludovic =?UTF-8?Q?Court=C3=A8s?= <ludo@gnu.org>
Cc: 27735@debbugs.gnu.org

Hi Ludo,

I think it's a good interim solution.

On Tue, 18 Jul 2017 13:49:01 +0200
ludo@gnu.org (Ludovic Court=C3=A8s) wrote:

> +  (define root-uuid
> +    ;; UUID of the root file system, computed in a deterministic fashion.
> +    (if (string=3D? "iso9660" file-system-type)
           ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> +        (let ((pad (compose (cut string-pad <> 2 #\0)
> +                            number->string)))
> +          (string->iso9660-uuid
> +           (string-append "1970-01-01-"
> +                          (pad (hash name 24))
> +                          (pad (hash file-system-type 60))
                                  ^^^^^^^^^^^^^^^^^^^^^^^^^^ hmm... isn't t=
hat constant?