diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-08 19:50:57 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-11-08 21:43:28 +0100 |
| commit | d8354b8f1b2bbb6d911070ca9822c7e4fbd88bca (patch) | |
| tree | 202c03cc700e59106bc62f5d07068dd532a55c5e /src/Output.hs | |
| parent | a8aeb1866b221b850a8ece13e1a9b9acca1dc1f9 (diff) | |
Options to select rerun behavior
Changelog: Added `--rerun-*` command-line options to configure which jobs should be rerun
Diffstat (limited to 'src/Output.hs')
| -rw-r--r-- | src/Output.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Output.hs b/src/Output.hs index 4ecf08e..5fa2f81 100644 --- a/src/Output.hs +++ b/src/Output.hs @@ -46,6 +46,7 @@ data OutputEvent | JobFinished JobId Text | JobIsDuplicate JobId Text | JobPreviouslyFinished JobId Text + | JobWasSkipped JobId data OutputFootnote = OutputFootnote { footnoteText :: Text @@ -119,6 +120,10 @@ outputEvent out@Output {..} = liftIO . \case forM_ outLogs $ \h -> outStrLn out h ("Previously finished " <> textJobId jid <> " (" <> status <> ")") forM_ outTest $ \h -> outStrLn out h ("job-previous " <> textJobId jid <> " " <> status) + JobWasSkipped jid -> do + forM_ outLogs $ \h -> outStrLn out h ("Skipped " <> textJobId jid) + forM_ outTest $ \h -> outStrLn out h ("job-skip " <> textJobId jid) + outputFootnote :: Output -> Text -> IO OutputFootnote outputFootnote out@Output {..} footnoteText = do footnoteTerminal <- forM outTerminal $ \term -> newFootnote term footnoteText |