me
/
guix
Archived
1
0
Fork 0
Code

installer: parted: Add debug output. 

* gnu/installer/parted.scm (mkpart): Log partition creation.
master
Mathieu Othacehe 2020-11-08 19:38:31 +01:00
parent dfe03a92a5
commit 8c287bb2fb
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
gnu/installer/parted.scm
View File

@ -758,11 +758,33 @@ cause them to cross."
dev-constraint)) dev-constraint))
(no-constraint (constraint-any device)) (no-constraint (constraint-any device))
;; Try to create a partition with an optimal alignment ;; Try to create a partition with an optimal alignment
;; constraint. If it fails, fallback to creating a partition with ;; constraint. If it fails, fallback to creating a partition
;; no specific constraint. ;; 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? (partition-ok?
(or (disk-add-partition disk partition final-constraint) (or partition-constraint-ok? partition-no-contraint-ok?)))
(disk-add-partition disk partition no-constraint)))) (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. ;; Set the partition name if supported.
(when (and partition-ok? has-name? name) (when (and partition-ok? has-name? name)
(partition-set-name partition name)) (partition-set-name partition name))