diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-04 12:54:30 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-04-05 16:13:13 +0200 |
| commit | cd7557eb4ab04e903492f01cdda06aa7b42615f1 (patch) | |
| tree | df4f80e5c54196076091e071eefd0aba0c2f2f42 /src/Output.hs | |
| parent | b6edd51453417644dbd7f0d903e3569f0118f20a (diff) | |
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 5fa2f81..e9ce718 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -42,6 +42,7 @@ data OutputEvent = OutputMessage Text | TestMessage Text | LogMessage Text + | JobEnqueued JobId | JobStarted JobId | JobFinished JobId Text | JobIsDuplicate JobId Text @@ -104,6 +105,9 @@ outputEvent out@Output {..} = liftIO . \case LogMessage msg -> do forM_ outLogs $ \h -> outStrLn out h msg + JobEnqueued jid -> do + forM_ outTest $ \h -> outStrLn out h ("job-enqueue " <> textJobId jid) + JobStarted jid -> do forM_ outLogs $ \h -> outStrLn out h ("Started " <> textJobId jid) forM_ outTest $ \h -> outStrLn out h ("job-start " <> textJobId jid) |