From 9b14b0c159d64eae18e2732f1662fd27a72f8db1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 12 Jan 2025 11:03:37 +0100 Subject: Handle duplicate tasks by matching tree id --- src/Command/Run.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/Command/Run.hs') 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 -- cgit v1.2.3