diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-01-12 11:03:37 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-01-13 21:22:52 +0100 |
| commit | 9b14b0c159d64eae18e2732f1662fd27a72f8db1 (patch) | |
| tree | ff5f61b29c3298537fbaaec2a2fcc1a2be34c2e1 /src/Command/Run.hs | |
| parent | 17998a5e8d386b58d30d138ea8dbc565955cccc6 (diff) | |
Handle duplicate tasks by matching tree id
Diffstat (limited to 'src/Command/Run.hs')
| -rw-r--r-- | src/Command/Run.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Command/Run.hs b/src/Command/Run.hs index 7c169b2..bd2aba9 100644 --- a/src/Command/Run.hs +++ b/src/Command/Run.hs @@ -104,6 +104,13 @@ showStatus blink = \case JobFailed -> "\ESC[91m✗\ESC[0m " JobDone _ -> "\ESC[92m✓\ESC[0m " + JobDuplicate _ s -> case s of + JobQueued -> "\ESC[94m^\ESC[0m " + JobWaiting _ -> "\ESC[94m^\ESC[0m " + JobSkipped -> "\ESC[0m-\ESC[0m " + JobRunning -> "\ESC[96m" <> (if blink then "*" else "^") <> "\ESC[0m " + _ -> showStatus blink s + displayStatusLine :: TerminalOutput -> Text -> Text -> [ Maybe (TVar (JobStatus JobOutput)) ] -> IO () displayStatusLine tout prefix1 prefix2 statuses = do blinkVar <- newTVarIO False |