From 8326f8037530cf0046773a18e872aaf4aa1209d8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 18 May 2025 17:27:12 +0200
Subject: Print jobset errors to log and test outputs

---
 src/Command/Run.hs | 2 ++
 src/Output.hs      | 4 ++++
 2 files changed, 6 insertions(+)

(limited to 'src')

diff --git a/src/Command/Run.hs b/src/Command/Run.hs
index 09a814e..0ea73b5 100644
--- a/src/Command/Run.hs
+++ b/src/Command/Run.hs
@@ -320,6 +320,8 @@ cmdRun (RunCommand RunOptions {..} args) = do
                     Left err -> do
                         forM_ (outputTerminal output) $ flip newLine $
                             "\ESC[91m" <> shortCid <> "\ESC[0m" <> " " <> shortDesc <> " \ESC[91m" <> T.pack err <> "\ESC[0m"
+                        outputEvent output $ TestMessage $ "jobset-fail " <> T.pack err
+                        outputEvent output $ LogMessage $ "Jobset failed: " <> shortCid <> " " <> T.pack err
                 loop names (Just ( rest, next ))
 
         handle @SomeException (\_ -> cancelAllJobs mngr) $ do
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)
-- 
cgit v1.2.3