From fc48a5f5458ce7b3026d4cbbe357e7f703561394 Mon Sep 17 00:00:00 2001
From: Alexander Bondarenko <486682+dpwiz@users.noreply.github.com>
Date: Thu, 30 May 2024 17:44:15 +0300
Subject: [PATCH] restore concurrently_

---
 tests/AgentTests/FunctionalAPITests.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/tests/AgentTests/FunctionalAPITests.hs b/tests/AgentTests/FunctionalAPITests.hs
index 6704a0fd8..97da447b3 100644
--- a/tests/AgentTests/FunctionalAPITests.hs
+++ b/tests/AgentTests/FunctionalAPITests.hs
@@ -1322,8 +1322,9 @@ testRatchetSyncSuspendForeground t = do
   foregroundAgent bob2
 
   withSmpServerStoreMsgLogOn t testPort $ \_ -> do
-    get alice =##> ratchetSyncP bobId RSAgreed
-    get bob2 =##> ratchetSyncP aliceId RSAgreed
+    concurrently_
+      (get alice =##> ratchetSyncP bobId RSAgreed)
+      (get bob2 =##> ratchetSyncP aliceId RSAgreed)
     get alice =##> ratchetSyncP bobId RSOk
     get bob2 =##> ratchetSyncP aliceId RSOk
     runRight_ $ exchangeGreetingsMsgIds alice bobId 12 bob2 aliceId 9
@@ -1348,8 +1349,9 @@ testRatchetSyncSimultaneous t = do
   liftIO $ aRSS `shouldBe` RSStarted
 
   withSmpServerStoreMsgLogOn t testPort $ \_ -> do
-    get alice =##> ratchetSyncP bobId RSAgreed
-    get bob2 =##> ratchetSyncP aliceId RSAgreed
+    concurrently_
+      (get alice =##> ratchetSyncP bobId RSAgreed)
+      (get bob2 =##> ratchetSyncP aliceId RSAgreed)
     get alice =##> ratchetSyncP bobId RSOk
     get bob2 =##> ratchetSyncP aliceId RSOk
     runRight_ $ exchangeGreetingsMsgIds alice bobId 12 bob2 aliceId 9