From 931080244f42cb5f5a08258c736f567c8311d2ec Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sun, 26 Apr 2020 20:17:01 +0200 Subject: [PATCH] Fix bug in logging --- lib/GHCup/Utils/File.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/GHCup/Utils/File.hs b/lib/GHCup/Utils/File.hs index 802f3f8..6de9eb7 100644 --- a/lib/GHCup/Utils/File.hs +++ b/lib/GHCup/Utils/File.hs @@ -199,6 +199,7 @@ execLogged exe spath args lfile chdir env = do lineAction ref rs bs' = do modifyIORef' ref (swapRegs bs') regs <- readIORef ref + void $ SPIB.fdWrite fileFd (bs' <> "\n") forM (zip regs rs) $ \(bs, r) -> do setConsoleRegion r $ do w <- consoleWidth @@ -210,8 +211,6 @@ execLogged exe spath args lfile chdir env = do . trim w . (\b -> "[ " <> toFilePath lfile <> " ] " <> b) $ bs - SPIB.fdWrite fileFd (bs <> "\n") - swapRegs bs regs | length regs < size = regs ++ [bs] | otherwise = tail regs ++ [bs]