From 197a73b44733a49987be1ffa1c0065e767941382 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 2 Mar 2017 06:56:22 -0700 Subject: TODO --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3