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 | e56ecefbc8cc0251d30511ec8c6cdc8dca25a263 (patch) | |
tree | 24ba2b9bca09a5a9c9236d096b13998d77a97ab9 /src/elab_err.sml | |
parent | 1169e58b645a34751d97d9b54e977edd9359587d (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)]; |