Skip to content

Commit 94329ee

Browse files
committed
Deprecate :> for typeclasses?
1 parent 6d74a97 commit 94329ee

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

vernac/record.ml

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -867,7 +867,9 @@ let class_structure ~cumulative ~template ~impargs ~univs ~params ~primitive_pro
867867
in
868868
let coers = List.map (fun (_, { rf_subclass; rf_priority }) ->
869869
match rf_subclass with
870-
| Vernacexpr.BackInstance -> Some {hint_priority = rf_priority; hint_pattern = None}
870+
| Vernacexpr.BackInstance ->
871+
assert false
872+
(* Some {hint_priority = rf_priority; hint_pattern = None} *)
871873
| Vernacexpr.NoInstance -> None)
872874
cfs
873875
in

0 commit comments

Comments
 (0)