diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-06 20:54:41 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-07 18:24:32 +0100 |
| commit | fe1da1f16884ea1e3b1c3faedbe336d94ee3a386 (patch) | |
| tree | 0f346c66b04beb36f0d84e9dbe1cdb600b5140c5 /src/Output.hs | |
| parent | ebe120fcfffc6d4d8ca261cfef7699eac7fd94fe (diff) | |
Changelog: Reuse job status and artifacts from previous runs
Diffstat (limited to 'src/Output.hs')
| -rw-r--r-- | src/Output.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Output.hs b/src/Output.hs index 64704ec..4ecf08e 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -44,6 +44,8 @@ data OutputEvent | LogMessage Text | JobStarted JobId | JobFinished JobId Text + | JobIsDuplicate JobId Text + | JobPreviouslyFinished JobId Text data OutputFootnote = OutputFootnote { footnoteText :: Text @@ -109,6 +111,14 @@ outputEvent out@Output {..} = liftIO . \case forM_ outLogs $ \h -> outStrLn out h ("Finished " <> textJobId jid <> " (" <> status <> ")") forM_ outTest $ \h -> outStrLn out h ("job-finish " <> textJobId jid <> " " <> status) + JobIsDuplicate jid status -> do + forM_ outLogs $ \h -> outStrLn out h ("Duplicate " <> textJobId jid <> " (" <> status <> ")") + forM_ outTest $ \h -> outStrLn out h ("job-duplicate " <> textJobId jid <> " " <> status) + + JobPreviouslyFinished jid status -> do + forM_ outLogs $ \h -> outStrLn out h ("Previously finished " <> textJobId jid <> " (" <> status <> ")") + forM_ outTest $ \h -> outStrLn out h ("job-previous " <> textJobId jid <> " " <> status) + outputFootnote :: Output -> Text -> IO OutputFootnote outputFootnote out@Output {..} footnoteText = do footnoteTerminal <- forM outTerminal $ \term -> newFootnote term footnoteText |