From 048529bcb06601ee4ff91190b823ba00beba1a6a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 19 Jan 2023 23:10:32 +0100
Subject: Artifacts stored for other jobs

---
 src/Main.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index da3c0d8..8ba28d1 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,5 +1,7 @@
 module Main (main) where
 
+import Control.Concurrent.STM
+
 import Control.Monad
 
 import System.IO
@@ -30,10 +32,11 @@ main = do
         let shortCid = take 7 cid
         putStr $ shortCid <> " " <> fitToLength 50 desc
         hFlush stdout
-        results <- forM (configJobs config) $ \job -> do
+        outs <- runJobs "./.minici" cid $ configJobs config
+        results <- forM outs $ \outVar -> do
             putStr " "
             hFlush stdout
-            out <- runJob "./.minici" cid job
+            out <- atomically $ maybe retry return =<< readTVar outVar
             if | outStatus out -> do
                     putStr "\ESC[92m✓\ESC[0m      "
                | otherwise -> do
-- 
cgit v1.2.3