|
@@ -975,7 +975,7 @@ let write_file gen w source_dir path extension out_files =
|
|
end else true in
|
|
end else true in
|
|
|
|
|
|
if should_write then begin
|
|
if should_write then begin
|
|
- let f = open_out s_path in
|
|
|
|
|
|
+ let f = open_out_bin s_path in
|
|
output_string f contents;
|
|
output_string f contents;
|
|
close_out f
|
|
close_out f
|
|
end;
|
|
end;
|