re-open log file in append mode

Oops, it got truncated otherwise..

1 files changed, 1 insertions, 1 deletions

diff --git a/Server.hs b/Server.hs
index c1a302a..dc23643 100644
--- a/Server.hs
+++ b/Server.hs
@@ -72,7 +72,7 @@ preventWriteWhile (Session _ loghv loglock) o sid a = bracket setup cleanup go
 		return ll
 	cleanup ll = do
 		let f = sessionLogFile (serverDirectory o) sid
-		h <- openFile f WriteMode
+		h <- openFile f AppendMode
 		atomically $ do
 			putTMVar loglock ll
 			writeTVar loghv h