aboutsummaryrefslogtreecommitdiff
path: root/plugins/syntax/string_notation.ml
diff options
context:
space:
mode:
authorGaëtan Gilbert2019-08-23 23:06:41 +0200
committerGaëtan Gilbert2019-08-23 23:06:41 +0200
commit2c36189fb8c433fa1d3adff4ea2c52a7b1ff29cc (patch)
tree4a201b720331128dfe60157057a8b95f250389b4 /plugins/syntax/string_notation.ml
parentb0a9cbeaf0530533008aa99246164b2bad896c5a (diff)
parent451acd6ca6a9ce5b86622fb42085eb19e23d6665 (diff)
Merge PR #10665: [api] Move handling of variable implicit data to impargs
Reviewed-by: SkySkimmer
Diffstat (limited to 'plugins/syntax/string_notation.ml')
-rw-r--r--plugins/syntax/string_notation.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/syntax/string_notation.ml b/plugins/syntax/string_notation.ml
index 8c0f9a3339..c92acb0f55 100644
--- a/plugins/syntax/string_notation.ml
+++ b/plugins/syntax/string_notation.ml
@@ -61,7 +61,7 @@ let vernac_string_notation local ty f g scope =
let of_ty = Smartlocate.global_with_alias g in
let cty = cref ty in
let arrow x y =
- mkProdC ([CAst.make Anonymous],Default Decl_kinds.Explicit, x, y)
+ mkProdC ([CAst.make Anonymous],Default Glob_term.Explicit, x, y)
in
let constructors = get_constructors tyc in
(* Check the type of f *)