diff --git a/src/Network/HTTP/Affjax/Response.purs b/src/Network/HTTP/Affjax/Response.purs index 325e5b2..b7a6db0 100644 --- a/src/Network/HTTP/Affjax/Response.purs +++ b/src/Network/HTTP/Affjax/Response.purs @@ -72,3 +72,7 @@ instance responsableString :: Respondable String where instance responsableUnit :: Respondable Unit where responseType = StringResponse fromResponse = const (Right unit) + +instance responsableArrayBuffer :: Respondable A.ArrayBuffer where + responseType = ArrayBufferResponse + fromResponse = unsafeReadTagged "ArrayBuffer"