diff options
author | 2018-07-09 22:16:10 +0200 | |
---|---|---|
committer | 2018-07-09 22:16:10 +0200 | |
commit | a4909dd5f8d5df773a361a7cbacefc392b7cfebd (patch) | |
tree | 7f16c4018bad54d9c1bf7c9e9d4aefacd83b2e40 /vernac/class.ml | |
parent | c1d4dc68ace54f9ff9fd8f6466add38098ef0495 (diff) | |
parent | 420b38cba7aedfcfeac5671a7db0c02c4bb14a0c (diff) |
Merge PR #7920: Generic syntax for attributes
Diffstat (limited to 'vernac/class.ml')
-rw-r--r-- | vernac/class.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vernac/class.ml b/vernac/class.ml index 133726702..e425e6474 100644 --- a/vernac/class.ml +++ b/vernac/class.ml @@ -303,12 +303,12 @@ let try_add_new_coercion_with_source ref ~local poly ~source = try_add_new_coercion_core ref ~local poly (Some source) None false let add_coercion_hook poly local ref = - let stre = match local with + let local = match local with + | Discharge | Local -> true | Global -> false - | Discharge -> assert false in - let () = try_add_new_coercion ref ~local:stre poly in + let () = try_add_new_coercion ref ~local poly in let msg = pr_global_env Id.Set.empty ref ++ str " is now a coercion" in Flags.if_verbose Feedback.msg_info msg |