diff --git a/src/Simplex/Messaging/Agent.hs b/src/Simplex/Messaging/Agent.hs index b1aa5070a..2fec0d377 100644 --- a/src/Simplex/Messaging/Agent.hs +++ b/src/Simplex/Messaging/Agent.hs @@ -438,8 +438,9 @@ setUserNetworkInfo c@AgentClient {userNetworkInfo, userNetworkDelay} netInfo = w let off = wasOnline && not (isOnline netInfo) when off $ writeTVar userNetworkDelay d pure off - liftIO . when off . void . forkIO $ - growOfflineDelay 0 d ni + -- liftIO . when off . void . forkIO $ + -- growOfflineDelay 0 d ni + pure () where growOfflineDelay elapsed d ni = do online <- waitOnlineOrDelay c d diff --git a/src/Simplex/Messaging/Agent/Client.hs b/src/Simplex/Messaging/Agent/Client.hs index fb595f1c0..32ec0a3b6 100644 --- a/src/Simplex/Messaging/Agent/Client.hs +++ b/src/Simplex/Messaging/Agent/Client.hs @@ -856,9 +856,9 @@ getNetworkConfig c = do _ -> fastCfg waitForUserNetwork :: AgentClient -> IO () -waitForUserNetwork c = - unlessM (atomically $ isNetworkOnline c) $ - readTVarIO (userNetworkDelay c) >>= void . waitOnlineOrDelay c +waitForUserNetwork c = pure () + -- unlessM (atomically $ isNetworkOnline c) $ + -- readTVarIO (userNetworkDelay c) >>= void . waitOnlineOrDelay c waitOnlineOrDelay :: AgentClient -> Int64 -> IO Bool waitOnlineOrDelay c t = do