trivial diff: capital letters in error messages

[Fergus Henderson]

compiler/prog_io_typeclass.m:	
	Fix a minor bug in some of the type class error messages:
	In errors start with "Error: Expected ...", the
	"Expected" should start with a lower-case `e'.

Index: prog_io_typeclass.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/prog_io_typeclass.m,v
retrieving revision 1.4
diff -u -u -r1.4 prog_io_typeclass.m
--- prog_io_typeclass.m	1998/01/21 05:41:15	1.4
+++ prog_io_typeclass.m	1998/01/27 10:57:47
@@ -131,7 +131,7 @@
 		->
 			Result = ok(typeclass([], ClassName, Vars, [], VarSet))
 		;
-			Result = error("Expected variables as class parameters",
+			Result = error("expected variables as class parameters",
 				Name)
 		)
 	;
@@ -159,7 +159,7 @@
 			Interface),
 		find_errors(Interface, Result)
 	;
-		Result = error("Expected list of class methods", Methods)
+		Result = error("expected list of class methods", Methods)
 	).
 
 :- pred list_term_to_term_list(term, list(term)).
@@ -266,7 +266,7 @@
 	->
 		Result = ok(constraint(ClassName, Args))
 	;
-		Result = error("Expected atom as class name", Constraint)
+		Result = error("expected atom as class name", Constraint)
 	).
 
 %-----------------------------------------------------------------------------%
@@ -346,7 +346,7 @@
 				)),
 			list__filter_map(NonVarArg, ConstraintList, [E|_Es])
 		->
-			Result = error("Expected variables in constraints of instance declaration", E)
+			Result = error("expected variables in constraints of instance declaration", E)
 		;
 			Result = ParsedConstraints
 		)
@@ -404,7 +404,7 @@
 				% XXX We should report an error for _each_
 				% XXX erroneous type
 			ErroneousTypes = [E|_Es],
-			Result = error("Expected type in instance declaration to be a functor with variables as args", E)
+			Result = error("expected type in instance declaration to be a functor with variables as args", E)
 		)
 	;
 		MaybeClassName = error(String, Term),
@@ -453,7 +453,7 @@
 			Interface),
 		find_errors(Interface, Result)
 	;
-		Result = error("Expected list of instance methods", Methods)
+		Result = error("expected list of instance methods", Methods)
 	).
 
 	% Turn the term into a method instance
@@ -487,7 +487,7 @@
 					InstanceMethodName, ArityInt))
 			;
 				Result = error(
-				    "Expected `pred(<Name> / <Arity>) is <InstanceMethod>'",
+				    "expected `pred(<Name> / <Arity>) is <InstanceMethod>'",
 					MethodTerm)
 			)
 		;
@@ -512,16 +512,16 @@
 					InstanceMethodName, ArityInt))
 			;
 				Result = error(
-				    "Expected `func(<Name> / <Arity>) is <InstanceMethod>'",
+				    "expected `func(<Name> / <Arity>) is <InstanceMethod>'",
 					MethodTerm)
 			)
 		;
 			Result = error(
-				"Expected `pred(<Name> / <Arity>) is <InstanceName>'",
+				"expected `pred(<Name> / <Arity>) is <InstanceName>'",
 				MethodTerm)
 		)
 	;
-		Result = error("Expected `pred(<Name> / <Arity>) is <InstanceName>'",
+		Result = error("expected `pred(<Name> / <Arity>) is <InstanceName>'",
 			MethodTerm)
 	).
 

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