diff options
Diffstat (limited to 'plugins/syntax')
| -rw-r--r-- | plugins/syntax/numeral.ml | 2 | ||||
| -rw-r--r-- | plugins/syntax/string_notation.ml | 11 |
2 files changed, 7 insertions, 6 deletions
diff --git a/plugins/syntax/numeral.ml b/plugins/syntax/numeral.ml index 10a0af0b8f..470deb4a60 100644 --- a/plugins/syntax/numeral.ml +++ b/plugins/syntax/numeral.ml @@ -125,7 +125,7 @@ let vernac_numeral_notation local ty f g scope opts = | None -> type_error_of g ty true in let o = { to_kind; to_ty; of_kind; of_ty; - num_ty = ty; + ty_name = ty; warning = opts } in (match opts, to_kind with diff --git a/plugins/syntax/string_notation.ml b/plugins/syntax/string_notation.ml index fff8e928c3..12ee4c6eda 100644 --- a/plugins/syntax/string_notation.ml +++ b/plugins/syntax/string_notation.ml @@ -80,11 +80,12 @@ let vernac_string_notation local ty f g scope = else if has_type g (arrow cty (opt cbyte)) then Byte, Option else type_error_of g ty in - let o = { sto_kind = to_kind; - sto_ty = to_ty; - sof_kind = of_kind; - sof_ty = of_ty; - string_ty = ty } + let o = { to_kind = to_kind; + to_ty = to_ty; + of_kind = of_kind; + of_ty = of_ty; + ty_name = ty; + warning = () } in let i = { pt_local = local; |