From 87dd32f21450c4f84c55f6afc11ba1979e201ec9 Mon Sep 17 00:00:00 2001 From: Pavel Shlyak Date: Sun, 22 May 2022 16:53:30 +0300 Subject: [PATCH 2/4] Image API: support VFAT partitions in GPT --- gnu/system/image.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/gnu/system/image.scm b/gnu/system/image.scm index a83f844682..a6267feab2 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm @@ -317,10 +317,15 @@ (define (partition->dos-type partition) (define (partition->gpt-type partition) ;; Return the genimage GPT partition type code corresponding to PARTITION. ;; See https://github.com/pengutronix/genimage/blob/master/README.rst - (let ((flags (partition-flags partition))) + (let ((flags (partition-flags partition)) (file-system (partition-file-system partition))) (cond ((member 'esp flags) "U") - (else "L")))) + ((string-prefix? "ext" file-system) "L") + ((string=? file-system "vfat") "F") + (else + (raise (condition + (&message + (message "unsupported partition type")))))))) (define (partition-image partition) ;; Return as a file-like object, an image of the given PARTITION. A -- 2.32.1 (Apple Git-133)