From 4ec39a666bd9feff44ea75851f6da06097f30d0c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 22 Apr 2017 15:24:59 -0400 Subject: re-open log file in append mode Oops, it got truncated otherwise.. --- Server.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Server.hs') 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 -- cgit v1.2.3