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/Command/Run.hs | |
| parent | ebe120fcfffc6d4d8ca261cfef7699eac7fd94fe (diff) | |
Changelog: Reuse job status and artifacts from previous runs
Diffstat (limited to 'src/Command/Run.hs')
| -rw-r--r-- | src/Command/Run.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs index a80e15d..c4b92bb 100644 --- a/src/Command/Run.hs +++ b/src/Command/Run.hs @@ -381,6 +381,10 @@ showStatus blink = \case JobRunning -> "\ESC[96m" <> (if blink then "*" else "^") <> "\ESC[0m " _ -> showStatus blink s + JobPreviousStatus (JobDone _) -> "\ESC[90m«\ESC[32m✓\ESC[0m " + JobPreviousStatus (JobFailed) -> "\ESC[90m«\ESC[31m✗\ESC[0m " + JobPreviousStatus s -> "\ESC[90m«" <> T.init (showStatus blink s) + displayStatusLine :: TerminalOutput -> TerminalLine -> Text -> Text -> [ Maybe (TVar (JobStatus JobOutput)) ] -> IO () displayStatusLine tout line prefix1 prefix2 statuses = do go "\0" |