From: Richard W.M. Jones <rjones@redhat.com>
Date: Mon, 6 Dec 2010 17:13:32 +0000 (+0000)
Subject: Clean up some warnings and debug messages.
X-Git-Tag: 3.1~2
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=11a880097558ecda3a7fe0b5b31c8c04ecb9978c;p=febootstrap.git

Clean up some warnings and debug messages.
---

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"))