fix generator printing

src/compiler/generate.ml

@@ -41,18 +41,19 @@ let check_hxb_output com actx =
 	begin match actx.hxb_out with
 		| None -> ()
 		| Some path ->
+			let t = Timer.timer ["generate";"hxb"] in
 			Path.mkdir_from_path path;
+			Printf.eprintf "Generating hxb to %s\n" path;
 			let zip = new Zip_output.zip_output path 6 in
 			let export com =
-				Common.log com ("Generating hxb to " ^ path);
-				Printf.eprintf "Generating hxb to %s\n" path;
-				let t = Timer.timer ["generate";"hxb"] in
-				Printf.eprintf "%d modules, %d types\n" (List.length com.modules) (List.length com.types);
 				let target = Common.platform_name_macro com in
+				Printf.eprintf "\t%s: %d modules, %d types\n" target (List.length com.Common.modules) (List.length com.types);
 				List.iter (export_hxb com target zip) com.modules;
-				t();
 			in
-			Std.finally (fun () -> zip#close) (fun () ->
+			Std.finally (fun () ->
+				zip#close;
+				t()
+			) (fun () ->
 				export com;
 				Option.may export (com.get_macros());
 			) ()