From 582f14f784c10aa50c8531d11fa8e5bb86beacd3 Mon Sep 17 00:00:00 2001
From: Victor Nicollet <victor@nicollet.net>
Date: Sat, 24 Nov 2012 12:43:18 +0100
Subject: [PATCH] Reopen for append instead of truncating

---
 ohmTrackLogs/ohmTrackLogs.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ohmTrackLogs/ohmTrackLogs.ml b/ohmTrackLogs/ohmTrackLogs.ml
index 8956a44..ebcba20 100644
--- 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