瀏覽代碼

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

Nicolas Cannasse 15 年之前
父節點
當前提交
6f1d8a0d02
共有 1 個文件被更改,包括 1 次插入1 次删除
  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()