More warnings.

Author: cristianoc

analysis/src/Commands.ml

@@ -245,14 +245,16 @@ let format ~path =
     in
     if List.length diagnostics > 0 then ""
     else
-      Res_printer.printImplementation !Res_cli.ResClflags.width structure
-        comments
+      Res_printer.printImplementation ~width:!Res_cli.ResClflags.width ~comments
+        structure
   else if Filename.check_suffix path ".resi" then
     let {Res_driver.parsetree = signature; comments; diagnostics} =
       Res_driver.parsingEngine.parseInterface ~forPrinter:true ~filename:path
     in
     if List.length diagnostics > 0 then ""
-    else Res_printer.printInterface !Res_cli.ResClflags.width signature comments
+    else
+      Res_printer.printInterface ~width:!Res_cli.ResClflags.width ~comments
+        signature
   else ""
 
 let test ~path =

analysis/src/CreateInterface.ml

@@ -108,7 +108,8 @@ let printSignature ~extractor ~signature =
   let rec processSignature ~indent (signature : Types.signature) : unit =
     match signature with
     | Sig_value
-        ( makePropsId (* makeProps *),
+        ( makePropsId
+        (* makeProps *),
           {val_loc = makePropsLoc; val_type = makePropsType} )
       :: Sig_value (makeId (* make *), makeValueDesc) :: rest
       when Ident.name makePropsId = Ident.name makeId ^ "Props"

analysis/src/Files.ml

@@ -41,7 +41,7 @@ let relpath base path =
 let maybeStat path =
   try Some (Unix.stat path) with Unix.Unix_error (Unix.ENOENT, _, _) -> None
 
-let readFile ~filename =
+let readFile filename =
   try
     (* windows can't use open_in *)
     let chan = open_in_bin filename in
@@ -51,6 +51,7 @@ let readFile ~filename =
   with _ -> None
 
 let exists path = match maybeStat path with None -> false | Some _ -> true
+
 let ifExists path = if exists path then Some path else None
 
 let readDirectory dir =

analysis/src/dune

@@ -4,7 +4,7 @@
  ; The main module that will become the binary.
  (name Cli)
  (flags
-  (-w "+26+27+32+33+39")
+  (-w "+6+26+27+32+33+39")
   (-open Compilerlibs406)
   (-open Jsonlib)
   (-open Outcomeprinter))