Prechádzať zdrojové kódy

save in binary mode (\n instead of \r\n on windows)

Nicolas Cannasse 15 rokov pred
rodič
commit
6f1d8a0d02
1 zmenil súbory, kde vykonal 1 pridanie a 1 odobranie
  1. 1 1
      genjs.ml

+ 1 - 1
genjs.ml

@@ -760,7 +760,7 @@ let generate com =
 		newline ctx;
 	) (List.rev ctx.inits);
 	List.iter (generate_static ctx) (List.rev ctx.statics);
-	let ch = open_out com.file in
+	let ch = open_out_bin com.file in
 	output_string ch (Buffer.contents ctx.buf);
 	close_out ch;
 	t()