Browse Source

[cs] Use binary output on resources. Closes #3989 . Closes #3177

Cauê Waneck 10 years ago
parent
commit
5896b9555c
1 changed files with 1 additions and 1 deletions
  1. 1 1
      gencs.ml

+ 1 - 1
gencs.ml

@@ -3162,7 +3162,7 @@ let configure gen =
 			let full_path = src ^ "/" ^ name in
 			mkdir_from_path full_path;
 
-			let f = open_out full_path in
+			let f = open_out_bin full_path in
 			output_string f v;
 			close_out f;