Add Respondable instance for Argonaut's Json

Author: garyb

bower.json

@@ -24,6 +24,7 @@
   ],
   "dependencies": {
     "purescript-aff": "^0.13.0",
+    "purescript-argonaut-core": "^0.2.0",
     "purescript-arraybuffer-types": "^0.2.0",
     "purescript-dom": "^0.2.0",
     "purescript-foreign": "^0.7.0",

docs/Network.HTTP.Affjax.Response.md

@@ -49,9 +49,11 @@ class Respondable a where
 ``` purescript
 instance responsableBlob :: Respondable Blob
 instance responsableDocument :: Respondable Document
-instance responsableJSON :: Respondable Foreign
+instance responsableForeign :: Respondable Foreign
 instance responsableString :: Respondable String
 instance responsableUnit :: Respondable Unit
+instance responsableArrayBuffer :: Respondable ArrayBuffer
+instance responsableJson :: Respondable Json
 ```
 
 

src/Network/HTTP/Affjax/Response.purs

@@ -5,12 +5,17 @@ module Network.HTTP.Affjax.Response
   ) where
 
 import Prelude
+
+import Data.Argonaut.Core (Json())
 import Data.Either (Either(..))
 import Data.Foreign (Foreign(), F(), readString, unsafeReadTagged)
+import qualified Data.ArrayBuffer.Types as A
+
 import DOM.File.Types (Blob())
 import DOM.Node.Types (Document())
 import DOM.XHR.Types (FormData())
-import qualified Data.ArrayBuffer.Types as A
+
+import Unsafe.Coerce (unsafeCoerce)
 
 -- | Valid response types for an AJAX request. This is used to determine the
 -- | `ResponseContent` type for a request. The `a` type variable is a phantom
@@ -61,7 +66,7 @@ instance responsableDocument :: Respondable Document where
   responseType = DocumentResponse
   fromResponse = unsafeReadTagged "Document"
 
-instance responsableJSON :: Respondable Foreign where
+instance responsableForeign :: Respondable Foreign where
   responseType = JSONResponse
   fromResponse = Right
 
@@ -76,3 +81,7 @@ instance responsableUnit :: Respondable Unit where
 instance responsableArrayBuffer :: Respondable A.ArrayBuffer where
   responseType = ArrayBufferResponse
   fromResponse = unsafeReadTagged "ArrayBuffer"
+
+instance responsableJson :: Respondable Json where
+  responseType = JSONResponse
+  fromResponse = Right <<< unsafeCoerce