diff options
| author | Hugo Herbelin | 2020-10-24 13:18:09 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-11-20 19:41:20 +0100 |
| commit | 23924afa0e4d7ed9ca58fbf5f69dc57685d593fa (patch) | |
| tree | 9f2812eedcabf7dcfb8f6edc824ae51a06c27c87 /plugins | |
| parent | 52b93b587b9cb53b0ed11c7d6cf5f328d7ee1479 (diff) | |
A step towards supporting pattern cast deeplier.
We at least support a cast at the top of patterns in notations.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ssrsearch/g_search.mlg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssrsearch/g_search.mlg b/plugins/ssrsearch/g_search.mlg index 2daecd4af8..74535a10d3 100644 --- a/plugins/ssrsearch/g_search.mlg +++ b/plugins/ssrsearch/g_search.mlg @@ -141,7 +141,7 @@ let interp_search_notation ?loc tag okey = let rec sub () = function | NVar x when List.mem_assoc x nvars -> DAst.make ?loc @@ GPatVar (FirstOrderPatVar x) | c -> - glob_constr_of_notation_constr_with_binders ?loc (fun _ x -> (), None, x, Explicit) sub () c in + glob_constr_of_notation_constr_with_binders ?loc (fun _ x t -> (), None, x, Explicit, t) sub () c in let _, npat = Patternops.pattern_of_glob_constr (sub () body) in Search.GlobSearchSubPattern (Vernacexpr.Anywhere,false,npat) |