Reopen for append instead of truncating

VictorNicollet · Nov 24, 2012 · 582f14f · 582f14f
1 parent 54843d9
commit 582f14f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ohmTrackLogs/ohmTrackLogs.ml b/ohmTrackLogs/ohmTrackLogs.ml
@@ -41,7 +41,7 @@ let get_output_channel time =
   (* Grab output channel if it is present, otherwise create it. *)
   match !output_channel with 
     | Some (chan,_) -> chan
-    | None -> let chan = open_out file in
+    | None -> let chan = open_out_gen [Open_wronly;Open_creat;Open_append;Open_binary] 0o644 file in
 	      output_channel := Some (chan,file) ;
 	      chan