diff options
Diffstat (limited to 'toplevel/vernacentries.ml')
-rw-r--r-- | toplevel/vernacentries.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index d63ef9ec1..eb4038721 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -414,11 +414,11 @@ let start_proof_and_print k l hook = start_proof_com k l hook; print_subgoals () -let no_hook = None +let no_hook _ _ = () let vernac_definition_hook = function | Coercion -> Class.add_coercion_hook -| CanonicalStructure -> Some (fun _ -> Recordops.declare_canonical_structure) +| CanonicalStructure -> (fun _ -> Recordops.declare_canonical_structure) | SubClass -> Class.add_subclass_hook | _ -> no_hook |