diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-29 21:36:47 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-01-30 22:05:20 +0100 |
| commit | 0c1f276f3bfc2f25653d1cd7a75b59d9f6afd522 (patch) | |
| tree | 437ea3547c3262ca264027a35aa2235db66c090e /main/Test.hs | |
| parent | 0a78dd7f3e56c4879771a60bb3b43b197ddb444d (diff) | |
Deferred object API with load/wait/chack functions
Diffstat (limited to 'main/Test.hs')
| -rw-r--r-- | main/Test.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |