TODO

1 files changed, 1 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 43b627d..80a83c9 100644
--- a/Main.hs
+++ b/Main.hs
@@ -46,7 +46,7 @@ processScanSessDir :: St -> FilePath -> IO ()
 processScanSessDir st dir = withCurrentDirectory dir $ do
     posix <- getPOSIXTime
     let stamp = show . round $ posix
-    logH <- openFile (logFile stamp) WriteMode
+    logH <- openFile (logFile stamp) WriteMode -- TODO maybe AppendMode?
     outH <- openFile (outFile stamp) WriteMode
     case st^.stOutFormat of
       PDF -> do