From 11a880097558ecda3a7fe0b5b31c8c04ecb9978c Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Mon, 6 Dec 2010 17:13:32 +0000 Subject: [PATCH] Clean up some warnings and debug messages. --- febootstrap.ml | 7 +++++-- 1 file 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")) -- 1.8.3.1