fix(build): Fix/disable some warnings

Author: AltGr

dune

@@ -7,7 +7,7 @@
 )
 
 (env
-  (release (flags -safe-string -w +a-4-42-44-45-48-3-58-32-33)
+  (release (flags -safe-string -w +a-4-42-44-45-48-3-58-32-33-70)
            (ocamlc_flags)
            (ocamlopt_flags))
 )

src/ppx-metaquot/genlifter.ml

@@ -94,7 +94,7 @@ module Main : sig end = struct
             (lam
                (Pat.record (List.map fst l) Closed)
                (selfcall "record" [str ty; list (List.map snd l)]))
-      | Type_variant l, _ ->
+      | Type_variant (l, _rep), _ ->
           let case cd =
             let c = Ident.name cd.cd_id in
             let qc = prefix ^ c in

src/toplevel/learnocaml_toplevel.ml

@@ -23,18 +23,18 @@ let (>>=) = Lwt.(>>=)
 
 type t = {
   timeout_delay: float;
-  mutable timeout_prompt: t -> unit Lwt.t;
+  timeout_prompt: t -> unit Lwt.t;
   mutable current_timeout_prompt: unit Lwt.t;
   flood_limit: int;
-  mutable flood_prompt: t -> Html_types.nmtoken -> (unit -> int) -> bool Lwt.t;
+  flood_prompt: t -> Html_types.nmtoken -> (unit -> int) -> bool Lwt.t;
   mutable current_flood_prompt: unit Lwt.t;
   flood_reset: t -> unit;
   worker: Learnocaml_toplevel_worker_caller.t;
   container: [ `Div ] Html5.elt;
   oldify: bool;
   mutable status: [ `Reset of (unit Lwt.t * unit Lwt.u) | `Execute of unit Lwt.t | `Idle ] ;
-  mutable on_enable_input: t -> unit;
-  mutable on_disable_input: t -> unit;
+  on_enable_input: t -> unit;
+  on_disable_input: t -> unit;
   mutable disabled : int;
   output: Learnocaml_toplevel_output.output;
   input: Learnocaml_toplevel_input.input;
@@ -525,7 +525,7 @@ let create
       >>= fun _ -> Lwt.return_unit) ;
   let first_time = ref true in
   let after_init top =
-    if !first_time || not oldify then
+    if !first_time || not top.oldify then
       Learnocaml_toplevel_output.clear output
     else
       Learnocaml_toplevel_output.oldify output;
@@ -536,7 +536,7 @@ let create
       | `Idle | `Execute _ -> assert false
     end ;
     top.status <- `Idle;
-    begin if display_welcome && (!first_time || not oldify) then
+    begin if display_welcome && (!first_time || not top.oldify) then
         Learnocaml_toplevel_worker_caller.execute
           ~pp_answer: (fun _ -> ())
           ~print_outcome: false

src/toplevel/learnocaml_toplevel_history.ml

@@ -7,8 +7,8 @@
  * included LICENSE file for details. *)
 
 type history =
-  { mutable storage : string array ;
-    mutable updated : string array ;
+  { storage : string array ;
+    updated : string array ;
     mutable first : int ;
     mutable stored : int ;
     mutable current : [ `Floating | `Index of int ] ;

src/toplevel/learnocaml_toplevel_worker_caller.ml

@@ -59,7 +59,7 @@ type t = {
   mutable after_init: t -> unit Lwt.t;
   pp_stdout: string -> unit;
   pp_stderr: string -> unit;
-}
+} [@@ocaml.warning "-69"]
 
 
 exception Not_equal