diff options
-rw-r--r-- | Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |