trivial diff: fix some --very-verbose messages

[Fergus Henderson]

compiler/intermod.m:
compiler/trans_opt.m:
	Fix some minor inconsistencies in the `--very-verbose' output.

Index: compiler/intermod.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/intermod.m,v
retrieving revision 1.55
diff -u -r1.55 intermod.m
--- intermod.m	1998/06/09 02:13:03	1.55
+++ intermod.m	1998/06/29 05:23:55
@@ -1207,7 +1207,7 @@
 intermod__adjust_pred_import_status(Module0, Module, IO0, IO) :-
 	globals__io_lookup_bool_option(very_verbose, VVerbose, IO0, IO1),
 	maybe_write_string(VVerbose, 
-		"Adjusting import status of predicates in the `.opt' file...",
+		"% Adjusting import status of predicates in the `.opt' file...",
 		IO1, IO2),
 
 	init_intermod_info(Module0, Info0),
@@ -1220,7 +1220,7 @@
 		Deforestation, Info0, Info1),
 	intermod__gather_abstract_exported_types(Info1, Info),
 	do_adjust_pred_import_status(Info, Module0, Module),
-	maybe_write_string(VVerbose, "done\n", IO2, IO).
+	maybe_write_string(VVerbose, " done\n", IO2, IO).
 
 :- pred do_adjust_pred_import_status(intermod_info::in,
 		module_info::in, module_info::out) is det.
Index: compiler/trans_opt.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/trans_opt.m,v
retrieving revision 1.11
diff -u -r1.11 trans_opt.m
--- trans_opt.m	1998/06/27 08:42:06	1.11
+++ trans_opt.m	1998/06/29 05:26:02
@@ -204,11 +204,13 @@
 	maybe_write_string(VeryVerbose, ImportString),
 	maybe_write_string(VeryVerbose, "'... "),
 	maybe_flush_output(VeryVerbose),
-	maybe_write_string(VeryVerbose, "% done.\n"),
 
 	module_name_to_file_name(Import, ".trans_opt", no, FileName),
 	prog_io__read_opt_file(FileName, Import, yes,
 			ModuleError, Messages, Items1),
+
+	maybe_write_string(VeryVerbose, " done.\n"),
+
 	update_error_status(ModuleError, Messages, Error0, Error1),
 	{ list__append(Items0, Items1, Items2) },
 	read_trans_opt_files(Imports, Items2, Items, Error1, Error).

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.