aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer/parted.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2020-11-08 19:38:31 +0100
committerMathieu Othacehe <othacehe@gnu.org>2020-11-08 19:41:12 +0100
commit8c287bb2fb169c6b47c14cf2b7f7e5c06e2682db (patch)
tree4bc7bf5a6dea086430cca81aecb0b4b85e613faa /gnu/installer/parted.scm
parentdfe03a92a5cb3ac36ceae3492374acdf12432d27 (diff)
downloadguix-8c287bb2fb169c6b47c14cf2b7f7e5c06e2682db.tar
guix-8c287bb2fb169c6b47c14cf2b7f7e5c06e2682db.tar.gz
installer: parted: Add debug output.
* gnu/installer/parted.scm (mkpart): Log partition creation.
Diffstat (limited to 'gnu/installer/parted.scm')
-rw-r--r--gnu/installer/parted.scm30
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))