postmark-streams 0.1.0.3 → 0.1.0.4
raw patch · 3 files changed
+9/−6 lines, 3 files
Files
- ChangeLog.md +4/−1
- postmark-streams.cabal +2/−2
- src/Postmark.hs +3/−3
ChangeLog.md view
@@ -16,4 +16,7 @@ ## 0.1.0.3 -- 2019-05-10 * Version bumps - ++## 0.1.0.3 -- 2023-07-20++* Fix import conflict
postmark-streams.cabal view
@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/ name: postmark-streams-version: 0.1.0.3+version: 0.1.0.4 synopsis: Send email via Postmark using io-streams. description: Send email via Postmark using io-streams.@@ -23,7 +23,7 @@ source-repository this type: git location: git://github.com/jonpetterbergman/postmark-streams.git- tag: v0.1.0.3+ tag: v0.1.0.4
src/Postmark.hs view
@@ -51,7 +51,7 @@ send :: ByteString -> Email -> IO (Either Error PRes.Success) send token r = withConnection (establishConnection singleUrl) $ \connection -> do- sendRequest connection (req singleUrl token) (jsonBody r)+ sendRequest connection (req singleUrl token) (jsonBodyP r) receiveResponse connection decodeResponse' -- | @'sendStream' token build process@ sends a stream of emails@@ -72,8 +72,8 @@ setContentType "application/json" setHeader "X-Postmark-Server-Token" token -jsonBody :: ToJSON a => a -> OutputStream Builder -> IO ()-jsonBody v o = write (Just $ Builder.fromLazyByteString $ encode v) o+jsonBodyP :: ToJSON a => a -> OutputStream Builder -> IO ()+jsonBodyP v o = write (Just $ Builder.fromLazyByteString $ encode v) o decodeResponse :: (InputStream ByteString -> IO r) -> Response