Rename Responsable to Respondable

Author: garyb

src/Network/HTTP/Affjax.purs

@@ -66,19 +66,19 @@ type AffjaxResponse a =
 type URL = String
 
 -- | Makes an `Affjax` request.
-affjax :: forall e a b. (Requestable a, Responsable b) => AffjaxRequest a -> Affjax e b
+affjax :: forall e a b. (Requestable a, Respondable b) => AffjaxRequest a -> Affjax e b
 affjax = makeAff' <<< affjax'
 
 -- | Makes a `GET` request to the specified URL.
-get :: forall e a. (Responsable a) => URL -> Affjax e a
+get :: forall e a. (Respondable a) => URL -> Affjax e a
 get u = affjax $ defaultRequest { url = u }
 
 -- | Makes a `POST` request to the specified URL, sending data.
-post :: forall e a b. (Requestable a, Responsable b) => URL -> a -> Affjax e b
+post :: forall e a b. (Requestable a, Respondable b) => URL -> a -> Affjax e b
 post u c = affjax $ defaultRequest { method = POST, url = u, content = Just c }
 
 -- | Makes a `POST` request to the specified URL with the option to send data.
-post' :: forall e a b. (Requestable a, Responsable b) => URL -> Maybe a -> Affjax e b
+post' :: forall e a b. (Requestable a, Respondable b) => URL -> Maybe a -> Affjax e b
 post' u c = affjax $ defaultRequest { method = POST, url = u, content = c }
 
 -- | Makes a `POST` request to the specified URL, sending data and ignoring the
@@ -92,11 +92,11 @@ post_' :: forall e a. (Requestable a) => URL -> Maybe a -> Affjax e Unit
 post_' = post'
 
 -- | Makes a `PUT` request to the specified URL, sending data.
-put :: forall e a b. (Requestable a, Responsable b) => URL -> a -> Affjax e b
+put :: forall e a b. (Requestable a, Respondable b) => URL -> a -> Affjax e b
 put u c = affjax $ defaultRequest { method = PUT, url = u, content = Just c }
 
 -- | Makes a `PUT` request to the specified URL with the option to send data.
-put' :: forall e a b. (Requestable a, Responsable b) => URL -> Maybe a -> Affjax e b
+put' :: forall e a b. (Requestable a, Respondable b) => URL -> Maybe a -> Affjax e b
 put' u c = affjax $ defaultRequest { method = PUT, url = u, content = c }
 
 -- | Makes a `PUT` request to the specified URL, sending data and ignoring the
@@ -110,15 +110,15 @@ put_' :: forall e a. (Requestable a) => URL -> Maybe a -> Affjax e Unit
 put_' = put'
 
 -- | Makes a `DELETE` request to the specified URL.
-delete :: forall e a. (Responsable a) => URL -> Affjax e a
+delete :: forall e a. (Respondable a) => URL -> Affjax e a
 delete u = affjax $ defaultRequest { method = DELETE, url = u }
 
 -- | Makes a `DELETE` request to the specified URL and ignores the response.
 delete_ :: forall e. URL -> Affjax e Unit
 delete_ = delete
 
 -- | Run a request directly without using `Aff`.
-affjax' :: forall e a b. (Requestable a, Responsable b) =>
+affjax' :: forall e a b. (Requestable a, Respondable b) =>
                          AffjaxRequest a ->
                          (Error -> Eff (ajax :: AJAX | e) Unit) ->
                          (AffjaxResponse b -> Eff (ajax :: AJAX | e) Unit) ->

src/Network/HTTP/Affjax/Response.purs

@@ -1,6 +1,6 @@
 module Network.HTTP.Affjax.Response
   ( ResponseContent()
-  , Responsable, responseType, fromResponse
+  , Respondable, responseType, fromResponse
   ) where
 
 import Control.Bind ((>=>))
@@ -14,56 +14,29 @@ import Type.Proxy (Proxy())
 import qualified Data.ArrayBuffer.Types as A
 
 -- | Type representing content types that be received from an XHR request
--- | (ArrayBuffer, Blob, Document, JSON, String).
+-- | (Blob, Document, JSON, String).
 type ResponseContent = Foreign
 
-class Responsable a where
+class Respondable a where
   responseType :: Proxy a -> ResponseType
   fromResponse :: ResponseContent -> F a
 
--- rInt8Array :: Responsable A.Int8Array
--- rInt8Array = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
--- rInt16Array :: Responsable A.Int16Array
--- rInt16Array = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
--- rInt32Array :: Responsable A.Int32Array
--- rInt32Array = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
--- rUint8Array :: Responsable A.Uint8Array
--- rUint8Array = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
--- rUint16Array :: Responsable A.Uint16Array
--- rUint16Array = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
--- rUint32Array :: Responsable A.Uint32Array
--- rUint32Array = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
--- rUint8ClampedArray :: Responsable A.Uint8ClampedArray
--- rUint8ClampedArray = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
--- rFloat32Array :: Responsable A.Float32Array
--- rFloat32Array = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
--- rFloat64Array :: Responsable A.Float64Array
--- rFloat64Array = Responsable (unsafeReadTagged "ArrayBuffer") ArrayBufferResponse
-
-instance responsableBlob :: Responsable Blob where
+instance responsableBlob :: Respondable Blob where
   responseType _ = BlobResponse
   fromResponse = unsafeReadTagged "Blob"
 
-instance responsableDocument :: Responsable Document where
+instance responsableDocument :: Respondable Document where
   responseType _ = DocumentResponse
   fromResponse = unsafeReadTagged "Document"
 
-instance responsableJSON :: Responsable Foreign where
+instance responsableJSON :: Respondable Foreign where
   responseType _ = JSONResponse
   fromResponse = Right
 
-instance responsableString :: Responsable String where
+instance responsableString :: Respondable String where
   responseType _ = StringResponse
   fromResponse = readString
 
-instance responsableUnit :: Responsable Unit where
+instance responsableUnit :: Respondable Unit where
   responseType _ = StringResponse
   fromResponse = const (Right unit)