filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

Extra logging

Browse Source
This commit is contained in:
Filip Gralinski 2021-03-01 08:07:06 +01:00
parent d02d3a824a
commit 04beeffbb4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Handler/Runner.hs
View File

@ -2,6 +2,9 @@
module Handler.Runner where module Handler.Runner where
import Import import Import
import qualified System.IO as SIO
import System.Process import System.Process
import System.Exit import System.Exit
import System.Environment import System.Environment
@ -128,7 +131,9 @@ gatherOutput ph hout herr chan = work mempty mempty
return allTheRest return allTheRest
msg :: Channel -> Text -> Handler () 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 :: Channel -> Text -> Handler ()
err = msg err = msg