diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-18 17:27:12 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-05-20 22:03:55 +0200 |
| commit | 8326f8037530cf0046773a18e872aaf4aa1209d8 (patch) | |
| tree | 37b9ad7cc36fb73c886ecdaf8c95d9e61062932c /src/Output.hs | |
| parent | aa9926074264d63aa6ceb2f3dd81e1fb9f9d0d29 (diff) | |
Print jobset errors to log and test outputs
Diffstat (limited to 'src/Output.hs')
| -rw-r--r-- | src/Output.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Output.hs b/src/Output.hs index 2dbaa3f..64704ec 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -41,6 +41,7 @@ data OutputType data OutputEvent = OutputMessage Text | TestMessage Text + | LogMessage Text | JobStarted JobId | JobFinished JobId Text @@ -97,6 +98,9 @@ outputEvent out@Output {..} = liftIO . \case TestMessage msg -> do forM_ outTest $ \h -> outStrLn out h msg + LogMessage msg -> do + forM_ outLogs $ \h -> outStrLn out h msg + JobStarted jid -> do forM_ outLogs $ \h -> outStrLn out h ("Started " <> textJobId jid) forM_ outTest $ \h -> outStrLn out h ("job-start " <> textJobId jid) |