Subject: Re: bug#27735: Unbootable images with GuixSD on... "GuixSD"

From: Danny Milosavljevic <[email-masked]>
Date: Wed, 19 Jul 2017 21:11:07 +0200

Hi Ludo,

I think it's a good interim solution.

On Tue, 18 Jul 2017 13:49:01 +0200
[email-masked] (Ludovic Courtès) wrote:

> +  (define root-uuid
> +    ;; UUID of the root file system, computed in a deterministic fashion.
> +    (if (string=? "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 that constant?