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:41:12 +0100 |
commit | 8c287bb2fb169c6b47c14cf2b7f7e5c06e2682db (patch) | |
tree | 4bc7bf5a6dea086430cca81aecb0b4b85e613faa /gnu | |
parent | dfe03a92a5cb3ac36ceae3492374acdf12432d27 (diff) | |
download | guix-8c287bb2fb169c6b47c14cf2b7f7e5c06e2682db.tar.gz guix-8c287bb2fb169c6b47c14cf2b7f7e5c06e2682db.zip |
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)) |