diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-03-14 20:22:03 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-03-14 20:22:03 +0100 |
commit | 93a75d635ac3fb52eed7b39c3c7a8e656f0a81b7 (patch) | |
tree | 29ff91cc0daece1bdccab2488aa7bd50f97708dd /plugins/ssrmatching | |
parent | e3a214801baf52c1cb1e9094d9e19624a6f9ded2 (diff) | |
parent | e6127d1f65a761a27c80b81c0f1bc5fca2b74af8 (diff) |
Merge PR#432: [cleanup] Change Id.t option to Name.t in TacFun
Diffstat (limited to 'plugins/ssrmatching')
-rw-r--r-- | plugins/ssrmatching/ssrmatching.ml4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ssrmatching/ssrmatching.ml4 b/plugins/ssrmatching/ssrmatching.ml4 index f4f6efa4a..03c4ae47d 100644 --- a/plugins/ssrmatching/ssrmatching.ml4 +++ b/plugins/ssrmatching/ssrmatching.ml4 @@ -1412,7 +1412,7 @@ let () = let name = { mltac_plugin = "ssrmatching_plugin"; mltac_tactic = "ssrpattern"; } in let () = Tacenv.register_ml_tactic name [|mltac|] in let tac = - TacFun ([Some (Id.of_string "pattern")], + TacFun ([Name (Id.of_string "pattern")], TacML (Loc.ghost, { mltac_name = name; mltac_index = 0 }, [])) in let obj () = Tacenv.register_ltac true false (Id.of_string "ssrpattern") tac in |