From 0c1f276f3bfc2f25653d1cd7a75b59d9f6afd522 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 29 Jan 2026 21:36:47 +0100
Subject: Deferred object API with load/wait/chack functions

---
 main/Test.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index 6896c9a..220f414 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -414,9 +414,8 @@ cmdLoadDeferred = do
     [ tidx ] <- asks tiParams
     Just RunningServer {..} <- gets tsServer
     deferred <- (!! read (T.unpack tidx)) <$> liftIO (readMVar rsDeferredObjects)
-    mvar <- deferredLoad deferred
     out <- asks tiOutput
-    liftIO $ void $ forkIO $ readMVar mvar >>= \case
+    liftIO $ void $ forkIO $ deferredWait deferred >>= \case
         DeferredLoaded sobj -> do
             void $ copyRef st $ storedRef sobj
             header : _ <- return $ BL.lines $ serializeObject $ fromStored sobj
-- 
cgit v1.2.3