diff options
author | Mathieu Othacehe <othacehe@gnu.org> | 2020-11-08 19:38:31 +0100 |
---|---|---|
committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-11-08 19:40:44 +0100 |
commit | ad2c3ba7504e34bc00808b2dc7d4df5e773f4ffd (patch) | |
tree | c7ac2f30497a55ce2489b80b9794c755e810eb64 /gnu | |
parent | bc47583412745e38d994a4ba71cda6564aed3a35 (diff) | |
download | guix-ad2c3ba7504e34bc00808b2dc7d4df5e773f4ffd.tar.gz |
installer: parted: Add debug output.
* gnu/installer/parted.scm (mkpart): Log partition creation.
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/installer/parted.scm | 30 |
1 files 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 @@ cause them to cross." 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)) |