From cd7557eb4ab04e903492f01cdda06aa7b42615f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 4 Apr 2026 12:54:30 +0200
Subject: Test: log when a job is enqueued

---
 src/Job.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Job.hs')

diff --git a/src/Job.hs b/src/Job.hs
index 9286839..7701da0 100644
--- a/src/Job.hs
+++ b/src/Job.hs
@@ -266,6 +266,7 @@ runJobs mngr@JobManager {..} tout jobs rerun = do
                                 mbStatus -> do
                                     when (isJust mbStatus) $ do
                                         liftIO $ removeDirectoryRecursive jdir
+                                    liftIO $ outputEvent tout $ JobEnqueued (jobId taskJob)
                                     uses <- waitForUsedArtifacts tout taskJob results taskStatus
                                     runManagedJob mngr taskId (return JobCancelled) $ do
                                         liftIO $ atomically $ writeTVar taskStatus JobRunning
-- 
cgit v1.2.3