From 2dd631b6345b8b435e4e1921964c4e3ada6d26c2 Mon Sep 17 00:00:00 2001
From: Brian Frank <briansfrank@gmail.com>
Date: Thu, 25 Apr 2024 16:47:41 -0400
Subject: [PATCH] dom: fix HttpRes.contentBuf and beef up documentation

---
 src/dom/es/HttpReqPeer.js | 5 +++--
 src/dom/fan/HttpReq.fan   | 6 ++++--
 src/dom/fan/HttpRes.fan   | 7 ++++---
 3 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/src/dom/es/HttpReqPeer.js b/src/dom/es/HttpReqPeer.js
index cf85d60de..ae102b77c 100644
--- a/src/dom/es/HttpReqPeer.js
+++ b/src/dom/es/HttpReqPeer.js
@@ -104,7 +104,7 @@ class HttpReqPeer extends sys.Obj {
     if (isText)
       res.content(xhr.responseText);
     else if (xhr.responseType == "arraybuffer")
-      res.contentBuf(sys.MemBuf.__makeBytes(res.content));
+      res.contentBuf(sys.MemBuf.__makeBytes(xhr.response));
 
     const all = xhr.getAllResponseHeaders().split("\n");
     for (let i=0; i<all.length; i++)
@@ -152,4 +152,5 @@ class HttpReqPeer extends sys.Obj {
     // send POST request
     self.send("POST", data, f);
   }
-}
\ No newline at end of file
+}
+
diff --git a/src/dom/fan/HttpReq.fan b/src/dom/fan/HttpReq.fan
index 5eb615815..e40e889a1 100644
--- a/src/dom/fan/HttpReq.fan
+++ b/src/dom/fan/HttpReq.fan
@@ -33,8 +33,9 @@ class HttpReq
 
   ** The type of data contained in the response. It also lets the
   ** author change the response type. If an empty string is set as
-  ** the value, the default value of '"text"' is used.
-  @NoDoc Str resType := ""
+  ** the value, the default value of '"text"' is used.  Set this
+  ** field to "arraybuffer" to access response as Buf.
+  Str resType := ""
 
   **
   ** Indicates whether or not cross-site 'Access-Control' requests
@@ -101,3 +102,4 @@ class HttpReq
   **
   native Void postFormMultipart(Str:Obj form, |HttpRes res| c)
 }
+
diff --git a/src/dom/fan/HttpRes.fan b/src/dom/fan/HttpRes.fan
index 713c1513b..a950de437 100644
--- a/src/dom/fan/HttpRes.fan
+++ b/src/dom/fan/HttpRes.fan
@@ -25,10 +25,11 @@ class HttpRes
   Str:Str headers := Str:Str[:] { it.caseInsensitive = true }
 
   ** The text content of the response when the XMLHttpRequest
-  ** 'responseType' is 'text'.
+  ** `HttpReq.resType` is "text"
   Str content := ""
 
   ** The binary content of the response when the XMLHttpRequest
-  ** 'responseType' is 'arraybuffer'
+  ** `HttpReq.resType` is "arraybuffer"
   Buf contentBuf := Buf(0)
-}
\ No newline at end of file
+}
+