From 5b56bdff2d53c7670d4df8a37ee8ef7e24db7b46 Mon Sep 17 00:00:00 2001 From: sim Date: Tue, 20 Jan 2026 17:20:45 +0100 Subject: [PATCH] Fix following rebase --- src/Simplex/Messaging/Notifications/Server/Env.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/Simplex/Messaging/Notifications/Server/Env.hs b/src/Simplex/Messaging/Notifications/Server/Env.hs index 2721c2a1f..b71ffd0ec 100644 --- a/src/Simplex/Messaging/Notifications/Server/Env.hs +++ b/src/Simplex/Messaging/Notifications/Server/Env.hs @@ -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 =