From c34b341a03af4a924f2503dc20a0bbbf646c150c Mon Sep 17 00:00:00 2001
From: Arthur Xavier <arthur.xavierx@gmail.com>
Date: Mon, 29 Nov 2021 14:09:40 -0300
Subject: [PATCH] Support 'Duplex' streams in the existing 'Body' instance for
 streams (#187)

---
 src/HTTPure/Body.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/HTTPure/Body.purs b/src/HTTPure/Body.purs
index 53e83a0..59f6651 100644
--- a/src/HTTPure/Body.purs
+++ b/src/HTTPure/Body.purs
@@ -82,7 +82,7 @@ instance bodyBuffer :: Body Buffer where
 -- | `Transfer-Encoding` header to indicate chunked data.  To write the data, we
 -- | simply pipe the newtype-wrapped `Stream` to the response.
 instance bodyChunked ::
-  TypeEquals (Stream r) (Readable ()) =>
+  TypeEquals (Stream r) (Readable s) =>
   Body (Stream r) where
   defaultHeaders _ = pure $ header "Transfer-Encoding" "chunked"
   write body response = makeAff \done -> do