[profanity] actually, let's finally disable this fucking warning

.merlin

@@ -11,4 +11,5 @@ PKG camlzip
 PKG xml-light
 PKG sha
 FLG -safe-string
-FLG -w -3
+FLG -w -3
+FLG -w -40

Makefile

@@ -44,7 +44,7 @@ EXTLIB_INCLUDES=$(EXTLIB_LIBS:%=-I libs/%)
 ALL_INCLUDES=$(EXTLIB_INCLUDES) $(HAXE_INCLUDES)
 FINDLIB_PACKAGES=$(FINDLIB_LIBS:%=-package %)
 CFLAGS=
-ALL_CFLAGS=-bin-annot -safe-string -thread -g -w -3 $(CFLAGS) $(ALL_INCLUDES) $(FINDLIB_PACKAGES)
+ALL_CFLAGS=-bin-annot -safe-string -thread -g -w -3 -w -40 $(CFLAGS) $(ALL_INCLUDES) $(FINDLIB_PACKAGES)
 
 MESSAGE_FILTER=sed -e 's/_build\/src\//src\//' tmp.tmp
 

src/generators/genphp7.ml

@@ -53,8 +53,8 @@ let write_resource dir name data =
 let copy_file src dst =
 	let buffer_size = 8192 in
 	let buffer = String.create buffer_size in
-	let fd_in = Unix.openfile src [Unix.O_RDONLY] 0 in
-	let fd_out = Unix.openfile dst [Unix.O_WRONLY; Unix.O_CREAT; Unix.O_TRUNC] 0o644 in
+	let fd_in = Unix.openfile src [O_RDONLY] 0 in
+	let fd_out = Unix.openfile dst [O_WRONLY; O_CREAT; O_TRUNC] 0o644 in
 	let rec copy_loop () =
 		match Unix.read fd_in buffer 0 buffer_size with
 			|  0 -> ()