dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-03-29 12:19:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix following rebase

Browse Source
This commit is contained in:
sim
2026-01-20 17:20:45 +01:00
parent afd001150b
commit 5b56bdff2d
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Simplex/Messaging/Notifications/Server/Env.hs
View File

@@ -184,16 +184,15 @@ newWPPushClient :: NtfPushServer -> WPProvider -> IO PushProviderClient
newWPPushClient NtfPushServer {wpConfig, pushClients} (WPP (WPSrvLoc (SrvLoc h p))) = do
logDebug "New WP Client requested"
-- We use one http manager per push server (which may be used by different clients)
manager <- wpHTTPManager
cache <- newIORef Nothing
random <- C.newRandom
let client = WebPushClient {wpConfig, cache, manager, random}
let client = WebPushClient {wpConfig, cache, random}
r <- wpHTTP2Client h p
case r of
Right client -> pure $ wpPushProviderClientH2 client
Right h2Client -> pure $ wpPushProviderClientH2 client h2Client
Left e -> do
logError $ "Error connecting to H2 WP: " <> tshow e
wpPushProviderClientH1 client
wpPushProviderClientH1 client <$> wpHTTPManager
wpHTTPManager :: IO Manager
wpHTTPManager =