From fe1da1f16884ea1e3b1c3faedbe336d94ee3a386 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 6 Nov 2025 20:54:41 +0100
Subject: Reuse job status and artifacts

Changelog: Reuse job status and artifacts from previous runs
---
 src/Output.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/Output.hs')

diff --git a/src/Output.hs b/src/Output.hs
index 64704ec..4ecf08e 100644
--- a/src/Output.hs
+++ b/src/Output.hs
@@ -44,6 +44,8 @@ data OutputEvent
     | LogMessage Text
     | JobStarted JobId
     | JobFinished JobId Text
+    | JobIsDuplicate JobId Text
+    | JobPreviouslyFinished JobId Text
 
 data OutputFootnote = OutputFootnote
     { footnoteText :: Text
@@ -109,6 +111,14 @@ outputEvent out@Output {..} = liftIO . \case
         forM_ outLogs $ \h -> outStrLn out h ("Finished " <> textJobId jid <> " (" <> status <> ")")
         forM_ outTest $ \h -> outStrLn out h ("job-finish " <> textJobId jid <> " " <> status)
 
+    JobIsDuplicate jid status -> do
+        forM_ outLogs $ \h -> outStrLn out h ("Duplicate " <> textJobId jid <> " (" <> status <> ")")
+        forM_ outTest $ \h -> outStrLn out h ("job-duplicate " <> textJobId jid <> " " <> status)
+
+    JobPreviouslyFinished jid status -> do
+        forM_ outLogs $ \h -> outStrLn out h ("Previously finished " <> textJobId jid <> " (" <> status <> ")")
+        forM_ outTest $ \h -> outStrLn out h ("job-previous " <> textJobId jid <> " " <> status)
+
 outputFootnote :: Output -> Text -> IO OutputFootnote
 outputFootnote out@Output {..} footnoteText = do
     footnoteTerminal <- forM outTerminal $ \term -> newFootnote term footnoteText
-- 
cgit v1.2.3