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/Command/Run.hs | |
parent | aa9926074264d63aa6ceb2f3dd81e1fb9f9d0d29 (diff) |
Print jobset errors to log and test outputs
Diffstat (limited to 'src/Command/Run.hs')
-rw-r--r-- | src/Command/Run.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |