postmark 0.1.0 → 0.1.1

raw patch · 3 files changed

+6/−8 lines, 3 filesdep +http-client-tlsdep −http-conduitdep −timedep −timerepdep ~network-api-support

Dependencies added: http-client-tls

Dependencies removed: http-conduit, time, timerep

Dependency ranges changed: network-api-support

Files

• postmark.cabal +3/−5
• src/Network/Api/Postmark/Core.hs +2/−2
• src/Network/Api/Postmark/Request.hs +1/−1

@@ -1,5 +1,5 @@ Name:               postmark-Version:            0.1.0+Version:            0.1.1 License:            BSD3 License-File:       LICENSE Author:             Mark Hibberd <mark@hibberd.id.au>@@ -32,12 +32,10 @@                     , attoparsec                    >= 0.10                     , bytestring                    >= 0.9                     , containers                    >= 0.4-                    , http-conduit                  >= 1.4                     , http-types                    >= 0.6-                    , time                          >= 1.2-                    , timerep                       >= 1.0.3                     , text                          >= 0.11-                    , network-api-support           >= 0.0.3+                    , network-api-support           >= 0.1.0+                    , http-client-tls               >= 0.2.1.1     GHC-Options:

@@ -14,7 +14,7 @@ import Network.Api.Postmark.Request import Network.Api.Postmark.Response import Network.Api.Postmark.Settings-import Network.HTTP.Conduit+import Network.HTTP.Client.TLS import Network.HTTP.Types  -- * Api endpoints@@ -34,7 +34,7 @@ -- | Run the specified request with the specified settings. request :: PostmarkSettings -> PostmarkRequest e a -> IO (PostmarkResponse e a) request settings (PostmarkRequest stdmethod url transform) =-  runRequest def stdmethod (apiUrl settings <> url) (+  runRequest tlsManagerSettings stdmethod (apiUrl settings <> url) (     addHeader ("Accept", "application/json") <>     addHeader ("X-Postmark-Server-Token", encodeUtf8 $  apiToken settings) <>     transform

@@ -10,7 +10,7 @@ import Network.HTTP.Types  data PostmarkRequest e a where-  PostmarkRequest :: (FromJSON e, FromJSON a) => StdMethod -> Text -> RequestTransformer IO -> PostmarkRequest e a+  PostmarkRequest :: (FromJSON e, FromJSON a) => StdMethod -> Text -> RequestTransformer -> PostmarkRequest e a  type PostmarkRequest' a =   PostmarkRequest PostmarkError a