Remove warning on OCaml 4.12

ocsigen · Nov 13, 2020 · eb6c98f · eb6c98f
1 parent a059aad
commit eb6c98f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/unix/lwt_unix.cppo.ml b/src/unix/lwt_unix.cppo.ml
@@ -219,9 +219,11 @@ let choose_async_method = function
     | Some am -> am
     | None -> !default_async_method_var
 
+[@@@ocaml.warning "-16"]
 let execute_job ?async_method ~job ~result ~free =
   let async_method = choose_async_method async_method in
   run_job_aux async_method job (fun job -> let x = wrap_result result job in free job; x)
+[@@@ocaml.warning "+16"]
 
 external self_result : 'a job -> 'a = "lwt_unix_self_result"
 (* returns the result of a job using the [result] field of the C