From 18d8fe0a507c55de9b803d96f180f597b26b6d26 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Thu, 12 Dec 2019 23:44:40 +0700
Subject: [PATCH] Fix timestamps

---
 src/Main.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 7ab89d5..e528dc6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -84,11 +84,12 @@ runWithConfig config = do
       (_, Just stdOut, Just stdErr, ph) <- createProcess $ (proc (cExecutablePath execcfg) (makeArgs (cGlobalArgs config) (cArgs execcfg))) { std_out = CreatePipe, std_err = CreatePipe }
       withFile (cLogPath execcfg) AppendMode $ \log -> handleIO (exceptionHandler inChan) $ do
         stdErrLogThread <- forkIO $ forever $ do
+          line <- T.pack <$> hGetLine stdErr
           now <- getCurrentTime
-          line <- lineWithTime now . T.pack <$> hGetLine stdErr
-          TIO.hPutStrLn log line
+          let line' = lineWithTime now line
+          TIO.hPutStrLn log line'
           hFlush log
-          writeChan inChan line
+          writeChan inChan line'
         forever $ do
           now <- getCurrentTime
           line <- lineWithTime now . T.pack <$> hGetLine stdOut