···26262727let new_partition partition start_sector sector_size new_size =
2828 if new_size mod sector_size <> 0 then
2929- Printf.ksprintf failwith
2929+ Fmt.failwith
3030 "Partition cannot be resized. New size of %d bytes does not align to \
3131 sectors. New size must be a multiple of %d"
3232 new_size sector_size
+2-2
bin/write_partition.ml
···4545 calculate_partition_info partition
4646 in
4747 if start_sector = 0 then
4848- Printf.ksprintf failwith
4949- "Writing to partition %d would overwrite the MBR header" partition_number;
4848+ Fmt.failwith "Writing to partition %d would overwrite the MBR header"
4949+ partition_number;
5050 let ic, data_size =
5151 match input_data with
5252 | None -> (stdin, None)