diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2010-12-06 17:13:32 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2010-12-06 17:13:32 +0000 |
commit | 11a880097558ecda3a7fe0b5b31c8c04ecb9978c (patch) | |
tree | a1ead280a923b1b4b672e2eecce35e77167eef85 | |
parent | 68eade3bca4b6024015a319e13e4ad3c5e0d840e (diff) | |
download | febootstrap-11a880097558ecda3a7fe0b5b31c8c04ecb9978c.tar.gz febootstrap-11a880097558ecda3a7fe0b5b31c8c04ecb9978c.tar.xz febootstrap-11a880097558ecda3a7fe0b5b31c8c04ecb9978c.zip |
Clean up some warnings and debug messages.
-rw-r--r-- | febootstrap.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/febootstrap.ml b/febootstrap.ml index 966a316..8fee7b9 100644 --- a/febootstrap.ml +++ b/febootstrap.ml @@ -374,19 +374,22 @@ let () = (match !warn_unreadable with | [] -> () | paths -> - eprintf "febootstrap: warning: some host files are unreadable by non-root\nGet your distro to fix these files:\n"; + eprintf "febootstrap: warning: some host files are unreadable by non-root\n"; + eprintf "febootstrap: warning: get your distro to fix these files:\n"; List.iter - (fun path -> eprintf "\t%s\n" path) + (fun path -> eprintf "\t%s\n%!" path) (List.sort compare paths) ); ); (* Near-atomically copy files to the final output directory. *) + debug "writing %s ..." (outputdir // "base.img"); let cmd = sprintf "mv %s %s" (Filename.quote (tmpdir // "base.img")) (Filename.quote (outputdir // "base.img")) in run_command cmd; + debug "writing %s ..." (outputdir // "hostfiles"); let cmd = sprintf "mv %s %s" (Filename.quote (tmpdir // "hostfiles")) |