push-notify-apn 0.2.0.1 → 0.2.0.2
raw patch · 3 files changed
+12/−6 lines, 3 filesdep ~base16-bytestring
Dependency ranges changed: base16-bytestring
Files
- changelog.md +5/−0
- push-notify-apn.cabal +2/−2
- src/Network/PushNotify/APN.hs +5/−4
changelog.md view
@@ -1,3 +1,8 @@+0.2.0.2+=======++- Fix build for newer packages+ 0.2.0.1 =======
push-notify-apn.cabal view
@@ -1,5 +1,5 @@ name: push-notify-apn-version: 0.2.0.1+version: 0.2.0.2 synopsis: Send push notifications to mobile iOS devices description: push-notify-apn is a library and command line utility that can be used to send@@ -24,7 +24,7 @@ exposed-modules: Network.PushNotify.APN build-depends: base >= 4.7 && < 5 , aeson- , base16-bytestring+ , base16-bytestring >= 1.0 , binary , bytestring , containers
src/Network/PushNotify/APN.hs view
@@ -9,6 +9,7 @@ -- Send push notifications using Apple's HTTP2 APN API {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PackageImports #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE TupleSections #-}@@ -73,9 +74,9 @@ import GHC.Generics import Network.HTTP2 (ErrorCodeId, toErrorCodeId)-import Network.HTTP2.Client-import Network.HTTP2.Client.FrameConnection-import Network.HTTP2.Client.Helpers+import "http2-client" Network.HTTP2.Client+import "http2-client" Network.HTTP2.Client.FrameConnection+import "http2-client" Network.HTTP2.Client.Helpers import Network.TLS hiding (sendData) import Network.TLS.Extra.Cipher import System.IO.Error@@ -136,7 +137,7 @@ -- ^ The base16 (hex) encoded unique identifier for a device (APN token) -> ApnToken -- ^ The resulting token-hexEncodedToken = ApnToken . B16.encode . fst . B16.decode . TE.encodeUtf8+hexEncodedToken = ApnToken . B16.encode . B16.decodeLenient . TE.encodeUtf8 -- | Exceptional responses to a send request data ApnException = ApnExceptionHTTP ErrorCodeId