Update of /cvsroot/hcoop/domtool2/src
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv17910/src
Modified Files:
describe.sml
Log Message:
Improve one kind of error message
Index: describe.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/describe.sml,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** describe.sml 24 Feb 2008 21:58:17 -0000 1.5
--- describe.sml 25 Feb 2008 00:32:30 -0000 1.6
***************
*** 113,119 ****
fun get_first_arg (t, _) =
case t of
! TArrow (t', _) => t'
| TUnif (_, ref (SOME t')) => get_first_arg t'
! | _ => raise Fail "get_first_arg failed!"
fun hint te =
--- 113,119 ----
fun get_first_arg (t, _) =
case t of
! TArrow (t', _) => SOME t'
| TUnif (_, ref (SOME t')) => get_first_arg t'
! | _ => NONE
fun hint te =
***************
*** 138,144 ****
| WrongForm (place, form, e, t, ueo) =>
if form = "action" andalso will_be_action t then
! (ErrorMsg.error (SOME loc) ("Not enough arguments passed to
configuration function. (" ^ place ^ ")");
! preface (" Expression so far:", p_exp e);
! preface ("Next argument type:", p_typ (get_first_arg t)))
else
(ErrorMsg.error (SOME loc) (place ^ " has a non-" ^ form ^ "
type.");
--- 138,147 ----
| WrongForm (place, form, e, t, ueo) =>
if form = "action" andalso will_be_action t then
! (case get_first_arg t of
! NONE => ErrorMsg.error (SOME loc) "You probably forgot a
'with' clause here."
! | SOME t' =>
! (ErrorMsg.error (SOME loc) ("Not enough arguments passed to
configuration function. (" ^ place ^ ")");
! preface (" Expression so far:", p_exp e);
! preface ("Next argument type:", p_typ t')))
else
(ErrorMsg.error (SOME loc) (place ^ " has a non-" ^ form ^ "
type.");
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
