Compare commits

...
Author SHA1 Message Date
Evgeny Poberezkin d88b6352f9 agent: disable waiting for network 2024-05-18 10:35:55 +01:00
2 changed files with 6 additions and 5 deletions
+3 -2
View File
@@ -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
+3 -3
View File
@@ -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