From ad2c3ba7504e34bc00808b2dc7d4df5e773f4ffd Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sun, 8 Nov 2020 19:38:31 +0100 Subject: installer: parted: Add debug output. * gnu/installer/parted.scm (mkpart): Log partition creation. --- gnu/installer/parted.scm | 30 ++++++++++++++++++++++++++---- 1 file changed, 26 insertions(+), 4 deletions(-) diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm index f2352c5779..f592d315f5 100644 --- a/gnu/installer/parted.scm +++ b/gnu/installer/parted.scm @@ -758,11 +758,33 @@ (define* (extend-ranges! start-range end-range dev-constraint)) (no-constraint (constraint-any device)) ;; Try to create a partition with an optimal alignment - ;; constraint. If it fails, fallback to creating a partition with - ;; no specific constraint. + ;; constraint. If it fails, fallback to creating a partition + ;; with no specific constraint. + (partition-constraint-ok? + (disk-add-partition disk partition final-constraint)) + (partition-no-contraint-ok? + (or partition-constraint-ok? + (disk-add-partition disk partition no-constraint))) (partition-ok? - (or (disk-add-partition disk partition final-constraint) - (disk-add-partition disk partition no-constraint)))) + (or partition-constraint-ok? partition-no-contraint-ok?))) + (syslog "Creating partition: +~/type: ~a +~/filesystem-type: ~a +~/start: ~a +~/end: ~a +~/start-range: [~a, ~a] +~/end-range: [~a, ~a] +~/constraint: ~a +~/no-constraint: ~a +" + partition-type + (filesystem-type-name filesystem-type) + start-sector* + end-sector + (geometry-start start-range) (geometry-end start-range) + (geometry-start end-range) (geometry-end end-range) + partition-constraint-ok? + partition-no-contraint-ok?) ;; Set the partition name if supported. (when (and partition-ok? has-name? name) (partition-set-name partition name)) -- cgit v1.2.3