robur/opam-mirror
4
0
Fork 0
Code Issues 6 Pull requests 2 Projects Releases Packages Wiki Activity Actions

Add a message on successful --initialize-disk

Browse source
This commit is contained in:
Reynir Björnsson 2024-10-16 11:06:48 +02:00
parent 30266f4e09
commit 26643fbcde
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mirage/unikernel.ml
View file

@ -1047,7 +1047,9 @@ stamp: %S
and sectors_git = K.sectors_git () in and sectors_git = K.sectors_git () in
if initialize_disk then if initialize_disk then
Part.format block ~sectors_cache ~sectors_git >>= function Part.format block ~sectors_cache ~sectors_git >>= function
| Ok () -> Lwt.return_unit | Ok () ->
Logs.app (fun m -> m "Successfully initialized the disk! You may restart now without --initialize-disk.");
Lwt.return_unit
| Error `Msg e -> | Error `Msg e ->
Logs.err (fun m -> m "Error formatting disk: %s" e); Logs.err (fun m -> m "Error formatting disk: %s" e);
exit Mirage_runtime.argument_error exit Mirage_runtime.argument_error