Improve some error messages

[hcoop/domtool2.git] / src / describe.sml

diff --git a/src/describe.sml b/src/describe.sml
index 1e81550..11194af 100644 (file)
--- a/src/describe.sml
+++ b/src/describe.sml
@@ -137,7 +137,7 @@ fun describe_type_error' loc te =
         Option.app (describe_unification_error t1) ueo)
       |        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.";
+           (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