diff --git a/src/Simplex/Chat/Core.hs b/src/Simplex/Chat/Core.hs index b58f4857de..597b524e27 100644 --- 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