From 620489c7dc00f84e6c8177b6140eb3f8760411ba Mon Sep 17 00:00:00 2001
From: Torben Ewert <torben@ewert-online.com>
Date: Sun, 10 May 2020 14:42:01 +0200
Subject: [PATCH] BUGFIX: Set correct responseType on XHR

---
 src/Warp.re | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/Warp.re b/src/Warp.re
index 9f4640e..0da4a3f 100644
--- a/src/Warp.re
+++ b/src/Warp.re
@@ -69,6 +69,17 @@ let send:
       xhr->Warp_XHR.setRequestHeader(key, value)
     });
 
+    switch (client.responseType) {
+    | Types.ResponseType.TextResponse(_) =>
+      xhr->Warp_XHR.setResponseType(`text)->ignore
+    | Types.ResponseType.ArrayBufferResponse(_) =>
+      xhr->Warp_XHR.setResponseType(`arrayBuffer)->ignore
+    | Types.ResponseType.JSONResponse(_) =>
+      xhr->Warp_XHR.setResponseType(`json)->ignore
+    | Types.ResponseType.DocumentResponse(_) =>
+      xhr->Warp_XHR.setResponseType(`document)->ignore
+    };
+
     switch (client.onProgess) {
     | Some(onProgress) => xhr->Warp_XHR.onProgress(evt => onProgress(evt))
     | None => ()
-- 
2.51.2