Hi Ludo,
I think it's a good interim solution.
On Tue, 18 Jul 2017 13:49:01 +0200
l...@gnu.org (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?
