diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-07 15:04:07 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-07 15:04:07 -0400 |
| commit | 98370da7e9f70e3d83f666019b765e15f617b846 (patch) | |
| tree | 24ba2b9bca09a5a9c9236d096b13998d77a97ab9 /src/elab_err.sml | |
| parent | fd1a963a81327f7b6a20a0f2ac131d2525649400 (diff) | |
Enhance table sig item support and get demo compiling again
Diffstat (limited to 'src/elab_err.sml')
| -rw-r--r-- | src/elab_err.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/elab_err.sml b/src/elab_err.sml index 221e4981..4f24e225 100644 --- a/src/elab_err.sml +++ b/src/elab_err.sml @@ -328,7 +328,7 @@ datatype str_error = | NotFunctor of sgn | FunctorRebind of ErrorMsg.span | UnOpenable of sgn - | NotType of kind * (kind * kind * kunify_error) + | NotType of ErrorMsg.span * kind * (kind * kind * kunify_error) | DuplicateConstructor of string * ErrorMsg.span | NotDatatype of ErrorMsg.span @@ -344,8 +344,8 @@ fun strError env err = | UnOpenable sgn => (ErrorMsg.errorAt (#2 sgn) "Un-openable structure"; eprefaces' [("Signature", p_sgn env sgn)]) - | NotType (k, (k1, k2, ue)) => - (ErrorMsg.errorAt (#2 k) "'val' type kind is not 'Type'"; + | NotType (loc, k, (k1, k2, ue)) => + (ErrorMsg.errorAt loc "'val' type kind is not 'Type'"; eprefaces' [("Kind", p_kind env k), ("Subkind 1", p_kind env k1), ("Subkind 2", p_kind env k2)]; |