From 236387604322b81260110f93be57762eac3ef20b Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 2 Aug 2011 13:48:26 -0400 Subject: A few error message improvements --- src/elab_err.sml | 4 ++-- src/marshalcheck.sml | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/elab_err.sml b/src/elab_err.sml index a03bc096..1194f817 100644 --- a/src/elab_err.sml +++ b/src/elab_err.sml @@ -267,10 +267,10 @@ val p_decl = P.p_decl fun declError env err = case err of KunifsRemain ds => - (ErrorMsg.errorAt (lspan ds) "Some kind unification variables are undetermined in declaration"; + (ErrorMsg.errorAt (lspan ds) "Some kind unification variables are undetermined in declaration\n(look for them as \"\")"; eprefaces' [("Decl", p_list_sep PD.newline (p_decl env) ds)]) | CunifsRemain ds => - (ErrorMsg.errorAt (lspan ds) "Some constructor unification variables are undetermined in declaration"; + (ErrorMsg.errorAt (lspan ds) "Some constructor unification variables are undetermined in declaration\n(look for them as \"\")"; eprefaces' [("Decl", p_list_sep PD.newline (p_decl env) ds)]) | Nonpositive d => (ErrorMsg.errorAt (#2 d) "Non-strictly-positive datatype declaration (could allow non-termination)"; diff --git a/src/marshalcheck.sml b/src/marshalcheck.sml index eadbfa49..8d7edd15 100644 --- a/src/marshalcheck.sml +++ b/src/marshalcheck.sml @@ -108,7 +108,7 @@ fun check file = () else E.error ("Input to exported function '" - ^ tag ^ "' involves one or more disallowed types: " + ^ tag ^ "' involves one or more types that are disallowed for page handler inputs: " ^ PS.toString s); (cmap, emap) end) @@ -120,7 +120,7 @@ fun check file = if PS.isEmpty s then () else - E.error ("Cookie '" ^ tag ^ "' includes one or more disallowed types: " + E.error ("Cookie '" ^ tag ^ "' includes one or more types that are disallowed for cookies: " ^ PS.toString s); (cmap, emap) end -- cgit v1.2.3