Merge pull request #86 from garyb/chexxor-update-deps

Update dependencies for PS 0.10

Author: garyb

bower.json

@@ -23,21 +23,21 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-aff": "^1.1.0",
-    "purescript-argonaut-core": "^1.0.0",
+    "purescript-aff": "^2.0.1",
+    "purescript-argonaut-core": "^2.0.1",
     "purescript-arraybuffer-types": "^0.2.0",
-    "purescript-dom": "^2.0.0",
-    "purescript-foreign": "^1.0.0",
-    "purescript-form-urlencoded": "^1.0.0",
-    "purescript-http-methods": "^1.0.0",
-    "purescript-integers": "^1.1.0",
+    "purescript-dom": "^3.1.0",
+    "purescript-foreign": "^3.0.0",
+    "purescript-form-urlencoded": "^2.0.0",
+    "purescript-http-methods": "^2.0.0",
+    "purescript-integers": "^2.0.0",
     "purescript-math": "^2.0.0",
-    "purescript-media-types": "^1.0.0",
-    "purescript-nullable": "^1.0.1",
-    "purescript-refs": "^1.0.0",
-    "purescript-unsafe-coerce": "^1.0.0"
+    "purescript-media-types": "^2.0.0",
+    "purescript-nullable": "^2.0.0",
+    "purescript-refs": "^2.0.0",
+    "purescript-unsafe-coerce": "^2.0.0"
   },
   "devDependencies": {
-    "purescript-console": "^1.0.0"
+    "purescript-console": "^2.0.0"
   }
 }

package.json

@@ -9,9 +9,9 @@
     "body-parser": "^1.15.2",
     "express": "^4.14.0",
     "jscs": "^3.0.7",
-    "jshint": "^2.9.2",
+    "jshint": "^2.9.4",
     "pulp": "^9.0.1",
-    "purescript": "^0.9.2",
+    "purescript": "^0.10.1",
     "purescript-psa": "^0.3.9",
     "rimraf": "^2.5.4",
     "xhr2": "^0.1.3"

src/Network/HTTP/Affjax.purs

@@ -1,55 +1,54 @@
 module Network.HTTP.Affjax
-  ( AJAX()
-  , Affjax()
-  , AffjaxRequest(), defaultRequest
-  , AffjaxResponse()
-  , URL()
+  ( AJAX
+  , Affjax
+  , AffjaxRequest, defaultRequest
+  , AffjaxResponse
+  , URL
   , affjax
   , affjax'
   , get
   , post, post_, post', post_'
   , put, put_, put', put_'
   , delete, delete_
   , patch, patch_, patch', patch_'
-  , RetryDelayCurve()
+  , RetryDelayCurve
   , RetryPolicy(..)
   , defaultRetryPolicy
   , retry
   ) where
 
 import Prelude hiding (max)
 
-import Control.Bind ((<=<))
-import Control.Monad.Aff (Aff(), makeAff, makeAff', Canceler(..), attempt, later', forkAff, cancel)
-import Control.Monad.Aff.AVar (AVAR(), makeVar, takeVar, putVar)
-import Control.Monad.Eff (Eff())
+import Control.Monad.Aff (Aff, makeAff, makeAff', Canceler(..), attempt, later', forkAff, cancel)
+import Control.Monad.Aff.AVar (AVAR, makeVar, takeVar, putVar)
+import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Class (liftEff)
-import Control.Monad.Eff.Exception (Error(), error)
-import Control.Monad.Eff.Ref (REF(), newRef, readRef, writeRef)
-import Control.Monad.Error.Class (throwError)
+import Control.Monad.Eff.Exception (Error, error)
+import Control.Monad.Eff.Ref (REF, newRef, readRef, writeRef)
+import Control.Monad.Except (runExcept, throwError)
 
 import Data.Array as Arr
 import Data.Either (Either(..), either)
 import Data.Foldable (any)
-import Data.Foreign (Foreign(), F(), parseJSON, readString)
+import Data.Foreign (Foreign, F, parseJSON, readString)
 import Data.Function (on)
-import Data.Function.Uncurried (Fn5(), runFn5, Fn4(), runFn4)
-import Data.HTTP.Method (Method(..), CustomMethod())
+import Data.Function.Uncurried (Fn5, runFn5, Fn4, runFn4)
+import Data.HTTP.Method (Method(..), CustomMethod)
 import Data.HTTP.Method as Method
 import Data.Int (toNumber, round)
 import Data.Maybe (Maybe(..))
-import Data.MediaType (MediaType())
-import Data.Nullable (Nullable(), toNullable)
+import Data.MediaType (MediaType)
+import Data.Nullable (Nullable, toNullable)
 import Data.Tuple (Tuple(..), fst, snd)
 
 import Math (max, pow)
 
-import DOM.XHR.Types (XMLHttpRequest())
+import DOM.XHR.Types (XMLHttpRequest)
 
 import Network.HTTP.Affjax.Request (class Requestable, RequestContent, toRequest)
 import Network.HTTP.Affjax.Response (class Respondable, ResponseContent, ResponseType(..), fromResponse, responseType, responseTypeToString)
 import Network.HTTP.RequestHeader (RequestHeader(..), requestHeaderName, requestHeaderValue)
-import Network.HTTP.ResponseHeader (ResponseHeader(), responseHeader)
+import Network.HTTP.ResponseHeader (ResponseHeader, responseHeader)
 import Network.HTTP.StatusCode (StatusCode(..))
 
 -- | The effect type for AJAX requests made with Affjax.
@@ -274,7 +273,7 @@ affjax' req eb cb =
     _ -> hs
 
   cb' :: AffjaxResponse ResponseContent -> Eff (ajax :: AJAX | e) Unit
-  cb' res = case res { response = _  } <$> fromResponse' res.response of
+  cb' res = case res { response = _  } <$> runExcept (fromResponse' res.response) of
     Left err -> eb $ error (show err)
     Right res' -> cb res'
 

src/Network/HTTP/Affjax/Response.purs

@@ -1,22 +1,21 @@
 module Network.HTTP.Affjax.Response
   ( ResponseType(..), responseTypeToString
-  , ResponseContent()
+  , ResponseContent
   , class Respondable, responseType, fromResponse
   ) where
 
 import Prelude
 
-import Data.Argonaut.Core (Json())
+import Data.Argonaut.Core (Json)
 import Data.ArrayBuffer.Types as A
-import Data.Either (Either(..))
-import Data.Foreign (Foreign(), F(), readString, unsafeReadTagged)
+import Data.Foreign (Foreign, F, readString, unsafeReadTagged)
 import Data.Maybe (Maybe(..))
-import Data.MediaType (MediaType())
+import Data.MediaType (MediaType)
 import Data.MediaType.Common (applicationJSON)
 import Data.Tuple (Tuple(..))
 
-import DOM.File.Types (Blob())
-import DOM.Node.Types (Document())
+import DOM.File.Types (Blob)
+import DOM.Node.Types (Document)
 
 import Unsafe.Coerce (unsafeCoerce)
 
@@ -72,20 +71,20 @@ instance responsableDocument :: Respondable Document where
 
 instance responsableForeign :: Respondable Foreign where
   responseType = Tuple Nothing JSONResponse
-  fromResponse = Right <<< unsafeCoerce
+  fromResponse = pure <<< unsafeCoerce
 
 instance responsableString :: Respondable String where
   responseType = Tuple Nothing StringResponse
   fromResponse = readString
 
 instance responsableUnit :: Respondable Unit where
   responseType = Tuple Nothing StringResponse
-  fromResponse = const (Right unit)
+  fromResponse = const (pure unit)
 
 instance responsableArrayBuffer :: Respondable A.ArrayBuffer where
   responseType = Tuple Nothing ArrayBufferResponse
   fromResponse = unsafeReadTagged "ArrayBuffer"
 
 instance responsableJson :: Respondable Json where
   responseType = Tuple (Just applicationJSON) JSONResponse
-  fromResponse = Right <<< unsafeCoerce
+  fromResponse = pure <<< unsafeCoerce

src/Network/HTTP/RequestHeader.purs

@@ -2,7 +2,8 @@ module Network.HTTP.RequestHeader where
 
 import Prelude
 
-import Data.MediaType (MediaType(), unMediaType)
+import Data.MediaType (MediaType())
+import Data.Newtype (unwrap)
 
 data RequestHeader
   = Accept MediaType
@@ -26,6 +27,6 @@ requestHeaderName (ContentType _) = "Content-Type"
 requestHeaderName (RequestHeader h _) = h
 
 requestHeaderValue :: RequestHeader -> String
-requestHeaderValue (Accept m) = unMediaType m
-requestHeaderValue (ContentType m) = unMediaType m
+requestHeaderValue (Accept m) = unwrap m
+requestHeaderValue (ContentType m) = unwrap m
 requestHeaderValue (RequestHeader _ v) = v