s/let _ =/let () =/ in some places (mostly goptions related)

2 files changed, 8 insertions, 8 deletions

diff --git a/interp/constrexpr_ops.ml b/interp/constrexpr_ops.ml
index d5f0b7bff6..07ed7825ff 100644
--- a/interp/constrexpr_ops.ml
+++ b/interp/constrexpr_ops.ml
@@ -605,13 +605,13 @@ let rec coerce_to_cases_pattern_expr c = CAst.map_with_loc (fun ?loc -> function
                       (str "This expression should be coercible to a pattern.")) c
 
 let asymmetric_patterns = ref (false)
-let _ = Goptions.declare_bool_option {
-  Goptions.optdepr = false;
-  Goptions.optname = "no parameters in constructors";
-  Goptions.optkey = ["Asymmetric";"Patterns"];
-  Goptions.optread = (fun () -> !asymmetric_patterns);
-  Goptions.optwrite = (fun a -> asymmetric_patterns:=a);
-}
+let () = Goptions.(declare_bool_option {
+  optdepr = false;
+  optname = "no parameters in constructors";
+  optkey = ["Asymmetric";"Patterns"];
+  optread = (fun () -> !asymmetric_patterns);
+  optwrite = (fun a -> asymmetric_patterns:=a);
+})
 
 (** Local universe and constraint declarations. *)
 
diff --git a/interp/constrextern.ml b/interp/constrextern.ml
index 838ef40545..8fc2c3de41 100644
--- a/interp/constrextern.ml
+++ b/interp/constrextern.ml
@@ -195,7 +195,7 @@ let without_specific_symbols l =
 (* Set Record Printing flag *)
 let record_print = ref true
 
-let _ =
+let () =
   let open Goptions in
   declare_bool_option
     { optdepr  = false;