From 35372fe2d693f7d9c4ca186d77df0d713ee077fc Mon Sep 17 00:00:00 2001
From: Orion Kindel <orionkindel@gmail.com>
Date: Sat, 18 Nov 2023 19:11:58 -0600
Subject: [PATCH] fix: empty body is empty

---
 src/HTTP/Request.purs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/HTTP/Request.purs b/src/HTTP/Request.purs
index 2236544..6cc58cf 100644
--- a/src/HTTP/Request.purs
+++ b/src/HTTP/Request.purs
@@ -24,6 +24,7 @@ import Data.Map (Map)
 import Data.Map as Map
 import Data.Maybe (Maybe(..))
 import Data.Newtype (unwrap)
+import Data.Nullable as Nullable
 import Data.Tuple.Containing (class TupleContaining, extract)
 import Data.Tuple.Nested (type (/\), (/\))
 import Effect (Effect)
@@ -47,6 +48,9 @@ import Web.File.Blob as Blob
 foreign import blobArrayBufferImpl :: Blob -> Effect (Promise ArrayBuffer)
 foreign import data RawRequestBody :: Type
 
+unsafeEmptyRawRequestBody :: RawRequestBody
+unsafeEmptyRawRequestBody = unsafeCoerce Nullable.null
+
 unsafeFormDataToRawRequestBody :: RawFormData -> RawRequestBody
 unsafeFormDataToRawRequestBody = unsafeCoerce
 
@@ -93,7 +97,7 @@ bodyToRaw (BodyBuffer body ct) = flip bind bodyToRaw $ liftEffect $ map (flip Bo
 bodyToRaw (BodyArrayBuffer body _) = pure $ unsafeArrayBufferToRawRequestBody body
 bodyToRaw (BodyForm form') = map unsafeFormDataToRawRequestBody $ Form.toRawFormData form'
 bodyToRaw (BodyBlob body) = unsafeBlobToRawRequestBody body
-bodyToRaw BodyEmpty = liftEffect $ map unsafeArrayBufferToRawRequestBody $ ArrayBuffer.empty 0
+bodyToRaw BodyEmpty = pure $ unsafeEmptyRawRequestBody
 
 data Method
   = GET