Merge pull request #25 from slamdata/ie-json

Better fix for IE JSON responseType

Author: jdegoes

src/Network/HTTP/Affjax.purs

@@ -12,11 +12,12 @@ module Network.HTTP.Affjax
   , delete, delete_
   ) where
 
+import Control.Bind ((<=<))
 import Control.Monad.Aff (Aff(), makeAff, makeAff', Canceler(..))
 import Control.Monad.Eff (Eff())
 import Control.Monad.Eff.Exception (Error(), error)
 import Data.Either (Either(..))
-import Data.Foreign (Foreign(..), F())
+import Data.Foreign (Foreign(..), F(), parseJSON, readString)
 import Data.Function (Fn5(), runFn5, Fn4(), runFn4)
 import Data.Maybe (Maybe(..), maybe)
 import Data.Nullable (Nullable(), toNullable)
@@ -134,9 +135,13 @@ affjax' req eb cb =
          , password: toNullable req.password
          }
   cb' :: AffjaxResponse ResponseContent -> Eff (ajax :: AJAX | e) Unit
-  cb' res = case res { response = _  } <$> fromResponse res.response of
+  cb' res = case res { response = _  } <$> fromResponse' res.response of
     Left err -> eb $ error (show err)
     Right res' -> cb res'
+  fromResponse' :: ResponseContent -> F b
+  fromResponse' = case (responseType :: ResponseType b) of
+    JSONResponse -> fromResponse <=< parseJSON <=< readString
+    _ -> fromResponse
 
 type AjaxRequest =
   { method :: String

src/Network/HTTP/Affjax/Response.purs

@@ -4,9 +4,8 @@ module Network.HTTP.Affjax.Response
   , Respondable, responseType, fromResponse
   ) where
 
-import Control.Bind ((>=>))
 import Data.Either (Either(..))
-import Data.Foreign (Foreign(), F(), readString, parseJSON, unsafeReadTagged)
+import Data.Foreign (Foreign(), F(), readString, unsafeReadTagged)
 import DOM (Document())
 import DOM.File (Blob())
 import DOM.XHR (FormData())
@@ -64,7 +63,7 @@ instance responsableDocument :: Respondable Document where
 
 instance responsableJSON :: Respondable Foreign where
   responseType = JSONResponse
-  fromResponse = readString >=> parseJSON
+  fromResponse = Right
 
 instance responsableString :: Respondable String where
   responseType = StringResponse