warnings

Author: cristianoc

analysis/reanalyze/src/Arnold.ml

@@ -909,7 +909,7 @@ module Compile = struct
         c +++ ConstrOption Rnone
       | _ -> c)
     | Texp_function {cases} -> cases |> List.map (case ~ctx) |> Command.nondet
-    | Texp_match (e, casesOk, casesExn, partial)
+    | Texp_match (e, casesOk, casesExn, _partial)
       when not
              (casesExn
              |> List.map (fun (case : Typedtree.case) -> case.c_lhs.pat_desc)

analysis/reanalyze/src/Log_.ml

@@ -98,7 +98,7 @@ let item x =
   Format.fprintf Format.std_formatter "  ";
   Format.fprintf Format.std_formatter x
 
-let missingRaiseInfoToText {exnTable; missingAnnotations; locFull} =
+let missingRaiseInfoToText {missingAnnotations; locFull} =
   let missingTxt =
     Format.asprintf "%a" (Exceptions.pp ~exnTable:None) missingAnnotations
   in
@@ -179,7 +179,7 @@ let logIssue ~(issue : issue) =
     let message = Json.escape (descriptionToMessage issue.description) in
     Format.asprintf "%a%s%s"
       (fun ppf () ->
-        EmitJson.emitItem ~ppf:Format.std_formatter ~name:issue.name
+        EmitJson.emitItem ~ppf ~name:issue.name
           ~kind:
             (match issue.severity with
             | Warning -> "warning"