From 13e46b917a583915372ec5728fe1df99fe263726 Mon Sep 17 00:00:00 2001 From: Alexander Vieth Date: Tue, 1 Mar 2022 18:59:29 -0500 Subject: [PATCH] support http2-client 0.10.0.1 Change to the type of waitStream --- push-notify-apn.cabal | 2 +- src/Network/PushNotify/APN.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/push-notify-apn.cabal b/push-notify-apn.cabal index 11f78f4..885d81f 100644 --- a/push-notify-apn.cabal +++ b/push-notify-apn.cabal @@ -30,7 +30,7 @@ library , containers , data-default , http2 - , http2-client + , http2-client >= 0.10.0.1 , lifted-base , mtl , random diff --git a/src/Network/PushNotify/APN.hs b/src/Network/PushNotify/APN.hs index c44febc..022a220 100644 --- a/src/Network/PushNotify/APN.hs +++ b/src/Network/PushNotify/APN.hs @@ -639,7 +639,7 @@ sendApnRaw connection deviceToken mJwtBearerToken message = bracket_ upload message (HTTP2.setEndHeader . HTTP2.setEndStream) client (_outgoingFlowControl client) stream osfc let pph _hStreamId _hStream hHeaders _hIfc _hOfc = lift $ print hHeaders - response <- waitStream stream isfc pph + response <- waitStream client stream isfc pph let (errOrHeaders, frameResponses, _) = response case errOrHeaders of Left err -> throwIO (ApnExceptionHTTP $ toErrorCodeId err)