Permalink
Browse files

Reopen for append instead of truncating

  • Loading branch information...
1 parent 54843d9 commit 582f14f784c10aa50c8531d11fa8e5bb86beacd3 @VictorNicollet committed Nov 24, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 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

0 comments on commit 582f14f

Please sign in to comment.