diff options
| author | Pierre-Marie Pédrot | 2020-09-28 11:14:23 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-09-30 13:20:27 +0200 |
| commit | e3a1cf35313bbc4eaca2a43f5fc95ca306bc45fa (patch) | |
| tree | 288992d95abc5eadcdaa22867ebf0fd944e07a72 /vernac/record.ml | |
| parent | 2c802aaf74c83274ae922c59081c01bfc267d31b (diff) | |
Remove the forward class hint feature.
It was not documented, not properly tested and thus likely buggy. Judging
from the code alone I spotted already one potential bug. Further more it was
prominently making use of the infamous "arbitrary term as hint" feature.
Since the only user in our CI seems to be a math-classes file that introduced
the feature under a claim of "cleanup", I believe we can safely remove it
without anyone noticing.
Diffstat (limited to 'vernac/record.ml')
| -rw-r--r-- | vernac/record.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/vernac/record.ml b/vernac/record.ml index bd5b71cd6b..79abf94726 100644 --- a/vernac/record.ml +++ b/vernac/record.ml @@ -557,7 +557,7 @@ let declare_class def cumulative ubinders univs id idbuild paramimpls params uni Impargs.declare_manual_implicits false (GlobRef.ConstRef proj_cst) (List.hd fieldimpls); Classes.set_typeclass_transparency (EvalConstRef cst) false false; let sub = match List.hd coers with - | Some b -> Some ((if b then Backward else Forward), List.hd priorities) + | Some () -> Some (Backward, List.hd priorities) | None -> None in [cref, [Name proj_name, sub, Some proj_cst]] @@ -568,8 +568,7 @@ let declare_class def cumulative ubinders univs id idbuild paramimpls params uni params template ~kind:Decls.Method ~name:[|binder_name|] record_data in let coers = List.map2 (fun coe pri -> - Option.map (fun b -> - if b then Backward, pri else Forward, pri) coe) + Option.map (fun () -> Backward, pri) coe) coers priorities in let map ind = |