diff --git a/src/Hermes/Hermes_Client.re b/src/Hermes/Hermes_Client.re index 1afd4a6..ba9d657 100644 --- a/src/Hermes/Hermes_Client.re +++ b/src/Hermes/Hermes_Client.re @@ -5,6 +5,7 @@ let make = (~url, ~method) => { url, method, queryString: [], + responseType: Hermes_Types_ResponseType.TextResponse(None), onLoad: None, formData: [], headers: [], diff --git a/src/Hermes/Hermes_ResponseType.re b/src/Hermes/Hermes_ResponseType.re index 33147f2..b543a08 100644 --- a/src/Hermes/Hermes_ResponseType.re +++ b/src/Hermes/Hermes_ResponseType.re @@ -3,6 +3,7 @@ open Hermes_Types_Client; let setText = client => { { ...client, + responseType: Hermes_Types_ResponseType.TextResponse(None), onLoad: None, }; }; @@ -10,6 +11,7 @@ let setText = client => { let setDocument = client => { { ...client, + responseType: Hermes_Types_ResponseType.DocumentResponse(None), onLoad: None, }; }; @@ -17,6 +19,7 @@ let setDocument = client => { let setJson = client => { { ...client, + responseType: Hermes_Types_ResponseType.JSONResponse(None), onLoad: None, }; }; @@ -24,6 +27,7 @@ let setJson = client => { let setArrayBuffer = client => { { ...client, + responseType: Hermes_Types_ResponseType.ArrayBufferResponse(None), onLoad: None, }; }; \ No newline at end of file diff --git a/src/Hermes/Types/Hermes_Types_Client.re b/src/Hermes/Types/Hermes_Types_Client.re index 721b99a..823d62a 100644 --- a/src/Hermes/Types/Hermes_Types_Client.re +++ b/src/Hermes/Types/Hermes_Types_Client.re @@ -4,5 +4,6 @@ type t('a) = { queryString: list((string, string)), formData: list((string, string)), headers: list((string, string)), + responseType: 'a, onLoad: option(Hermes_Types_ResponseType.t('a) => unit), }; \ No newline at end of file