diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-09-16 15:46:31 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-09-16 15:49:36 +0200 |
commit | e6eef565639fb3840dd235eb675ece6e4dbeb082 (patch) | |
tree | c222c842f7fad5f30bfc195962ee6984ee723fd8 /plugins/ssrmatching | |
parent | 1a1af4f2119715245b8d4488664a8b57f4bdce08 (diff) |
Addressing OCaml compilation warnings.
One of them revealed a true bug.
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 ff1db8cf5..a34fa4cae 100644 --- a/plugins/ssrmatching/ssrmatching.ml4 +++ b/plugins/ssrmatching/ssrmatching.ml4 @@ -903,7 +903,7 @@ let pr_ssrpattern_roundp _ _ _ = pr_pattern_roundp let wit_rpatternty = add_genarg "rpatternty" pr_pattern let glob_ssrterm gs = function - | k, (_, Some c) as x -> k, + | k, (_, Some c) -> k, let x = Tacintern.intern_constr gs c in fst x, Some c | ct -> ct |