core: fix race condition in --execute option, closes #890 (#898)

2022-08-04 17:07:50 +01:00
parent 8a7e320d12
commit 46319044f8
1 changed files with 2 additions and 2 deletions
--- a/src/Simplex/Chat/Core.hs
+++ b/src/Simplex/Chat/Core.hs
@@ -32,8 +32,8 @@ runSimplexChat :: ChatOpts -> User -> ChatController -> (User -> ChatController
 runSimplexChat ChatOpts {maintenance} u cc chat
  | maintenance = wait =<< async (chat u cc)
  | otherwise = do
-    a1 <- async $ chat u cc
-    a2 <- runReaderT (startChatController u True) cc
+    a1 <- runReaderT (startChatController u True) cc
+    a2 <- async $ chat u cc
    waitEither_ a1 a2

 sendChatCmd :: ChatController -> String -> IO ChatResponse