trivial diff: typecheck.m error message

[Fergus Henderson]

compiler/typecheck.m:	
	Fix a minor bug in one of the type class error messages:
	one of lines of a multi-line error messages wasn't properly indented.

Index: typecheck.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/typecheck.m,v
retrieving revision 1.227
diff -u -u -r1.227 typecheck.m
--- typecheck.m	1998/01/23 02:46:10	1.227
+++ typecheck.m	1998/01/27 10:20:50
@@ -2894,9 +2894,10 @@
 			list__delete_elems(TheConstraints, DeclaredConstraints,
 				Unsatisfied),
 			prog_out__write_context(Context, IO0, IO1),
+			io__write_string("  ", IO1, IO2),
 			io__write_list(Unsatisfied, ", ",
-				mercury_output_constraint(TheVarSet), IO1, IO2),
-			io__write_char('\n', IO2, IO)
+				mercury_output_constraint(TheVarSet), IO2, IO3),
+			io__write_char('\n', IO3, IO)
 		)),
 
 		% XXX this won't be very pretty when there are

-- 
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.