diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-05-30 16:43:14 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-05-30 16:43:14 +0200 |
| commit | b75f714c025b51ed8b4db15bfce99df2d6ae7c41 (patch) | |
| tree | 4c25d6cbc0d6f62450c15ebdda03a3ada717c8e1 /vernac/classes.ml | |
| parent | b1714dcc7df330df92a935f202964a1e73e44652 (diff) | |
| parent | 7c62654a4a1c0711ebdd492193bb8b7bd0e4f1fb (diff) | |
Merge PR #7558: [api] Make `vernac/` self-contained.
Diffstat (limited to 'vernac/classes.ml')
| -rw-r--r-- | vernac/classes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/classes.ml b/vernac/classes.ml index d99d45313..40001c0a3 100644 --- a/vernac/classes.ml +++ b/vernac/classes.ml @@ -41,7 +41,7 @@ let _ = Goptions.declare_bool_option { let typeclasses_db = "typeclass_instances" let set_typeclass_transparency c local b = - Hints.add_hints local [typeclasses_db] + Hints.add_hints ~local [typeclasses_db] (Hints.HintsTransparencyEntry ([c], b)) let _ = @@ -56,7 +56,7 @@ let _ = (Constrintern.intern_constr_pattern (Global.env()) Evd.(from_env Global.(env()))) info.hint_pattern } in Flags.silently (fun () -> - Hints.add_hints local [typeclasses_db] + Hints.add_hints ~local [typeclasses_db] (Hints.HintsResolveEntry [info, poly, false, Hints.PathHints path, inst'])) ()); Hook.set Typeclasses.set_typeclass_transparency_hook set_typeclass_transparency; |