From 4ac26772681d74be2cbbf9376a02ebc395257c86 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 17 May 2025 08:50:07 +0200 Subject: Initial test scripts and configuration --- src/Output.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Output.hs') diff --git a/src/Output.hs b/src/Output.hs index b4678f5..2dbaa3f 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -40,6 +40,7 @@ data OutputType data OutputEvent = OutputMessage Text + | TestMessage Text | JobStarted JobId | JobFinished JobId Text @@ -93,6 +94,9 @@ outputEvent out@Output {..} = liftIO . \case forM_ outLogs $ \h -> outStrLn out h msg forM_ outTest $ \h -> outStrLn out h ("msg " <> msg) + TestMessage msg -> do + forM_ outTest $ \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) -- cgit v1.2.3