diff options
Diffstat (limited to 'Server.hs')
-rw-r--r-- | Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |