diff options
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 |