From 04beeffbb464fc113044ffcae6e46703529fa20b Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Mon, 1 Mar 2021 08:07:06 +0100
Subject: [PATCH] Extra logging

---
 Handler/Runner.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Handler/Runner.hs b/Handler/Runner.hs
index 669a519..3330693 100644
--- a/Handler/Runner.hs
+++ b/Handler/Runner.hs
@@ -2,6 +2,9 @@
 module Handler.Runner where
 
 import Import
+
+import qualified System.IO as SIO
+
 import System.Process
 import System.Exit
 import System.Environment
@@ -128,7 +131,9 @@ gatherOutput ph hout herr chan = work mempty mempty
       return allTheRest
 
 msg :: Channel -> Text -> Handler ()
-msg chan m = liftIO $ atom $ writeTChan chan $ Just (m ++ "\n")
+msg chan m = do
+  liftIO $ SIO.hPutStrLn stderr (unpack m)
+  liftIO $ atom $ writeTChan chan $ Just (m ++ "\n")
 
 err :: Channel -> Text -> Handler ()
 err = msg