Merge pull request #60 from jonsterling/update-build

Update build, fix warnings

Author: jonsterling

docs/Network.HTTP.Affjax.Request.md

@@ -11,7 +11,7 @@ Blob, Document, String, FormData).
 
 ##### Instances
 ``` purescript
-instance requestableRequestContent :: Requestable RequestContent
+Requestable RequestContent
 ```
 
 #### `Requestable`
@@ -27,22 +27,22 @@ XHR requests. An optional mime-type can be specified for a default
 
 ##### Instances
 ``` purescript
-instance requestableRequestContent :: Requestable RequestContent
-instance requestableInt8Array :: Requestable (ArrayView Int8)
-instance requestableInt16Array :: Requestable (ArrayView Int16)
-instance requestableInt32Array :: Requestable (ArrayView Int32)
-instance requestableUint8Array :: Requestable (ArrayView Uint8)
-instance requestableUint16Array :: Requestable (ArrayView Uint16)
-instance requestableUint32Array :: Requestable (ArrayView Uint32)
-instance requestableUint8ClampedArray :: Requestable (ArrayView Uint8Clamped)
-instance requestableFloat32Array :: Requestable (ArrayView Float32)
-instance requestableFloat64Array :: Requestable (ArrayView Float64)
-instance requestableBlob :: Requestable Blob
-instance requestableDocument :: Requestable Document
-instance requestableString :: Requestable String
-instance requestableJson :: Requestable Json
-instance requestableFormData :: Requestable FormData
-instance requestableUnit :: Requestable Unit
+Requestable RequestContent
+Requestable (ArrayView Int8)
+Requestable (ArrayView Int16)
+Requestable (ArrayView Int32)
+Requestable (ArrayView Uint8)
+Requestable (ArrayView Uint16)
+Requestable (ArrayView Uint32)
+Requestable (ArrayView Uint8Clamped)
+Requestable (ArrayView Float32)
+Requestable (ArrayView Float64)
+Requestable Blob
+Requestable Document
+Requestable String
+Requestable Json
+Requestable FormData
+Requestable Unit
 ```
 
 

docs/Network.HTTP.Affjax.Response.md

@@ -18,8 +18,8 @@ type used to associate the `ResponseType` with a particular instance of
 
 ##### Instances
 ``` purescript
-instance eqResponseType :: Eq (ResponseType a)
-instance showResponseType :: Show (ResponseType a)
+Eq (ResponseType a)
+Show (ResponseType a)
 ```
 
 #### `responseTypeToString`
@@ -48,13 +48,13 @@ class Respondable a where
 
 ##### Instances
 ``` purescript
-instance responsableBlob :: Respondable Blob
-instance responsableDocument :: Respondable Document
-instance responsableForeign :: Respondable Foreign
-instance responsableString :: Respondable String
-instance responsableUnit :: Respondable Unit
-instance responsableArrayBuffer :: Respondable ArrayBuffer
-instance responsableJson :: Respondable Json
+Respondable Blob
+Respondable Document
+Respondable Foreign
+Respondable String
+Respondable Unit
+Respondable ArrayBuffer
+Respondable Json
 ```
 
 

docs/Network.HTTP.Method.md

@@ -18,8 +18,8 @@ data Method
 
 ##### Instances
 ``` purescript
-instance eqMethod :: Eq Method
-instance showMethod :: Show Method
+Eq Method
+Show Method
 ```
 
 #### `methodToString`

docs/Network.HTTP.MimeType.md

@@ -9,8 +9,8 @@ newtype MimeType
 
 ##### Instances
 ``` purescript
-instance eqMimeType :: Eq MimeType
-instance showMimeType :: Show MimeType
+Eq MimeType
+Show MimeType
 ```
 
 #### `mimeTypeToString`

docs/Network.HTTP.RequestHeader.md

@@ -11,8 +11,8 @@ data RequestHeader
 
 ##### Instances
 ``` purescript
-instance eqRequestHeader :: Eq RequestHeader
-instance showRequestHeader :: Show RequestHeader
+Eq RequestHeader
+Show RequestHeader
 ```
 
 #### `requestHeaderName`

docs/Network.HTTP.ResponseHeader.md

@@ -8,8 +8,8 @@ data ResponseHeader
 
 ##### Instances
 ``` purescript
-instance eqResponseHeader :: Eq ResponseHeader
-instance showResponseHeader :: Show ResponseHeader
+Eq ResponseHeader
+Show ResponseHeader
 ```
 
 #### `responseHeader`

docs/Network.HTTP.StatusCode.md

@@ -9,8 +9,8 @@ newtype StatusCode
 
 ##### Instances
 ``` purescript
-instance eqStatusCode :: Eq StatusCode
-instance showStatusCode :: Show StatusCode
+Eq StatusCode
+Show StatusCode
 ```
 
 

package.json

@@ -7,8 +7,8 @@
     "gulp-jscs": "^1.6.0",
     "gulp-jshint": "^1.11.2",
     "gulp-plumber": "^1.0.0",
-    "gulp-purescript": "^0.6.0",
-    "purescript": "^0.7.5",
+    "gulp-purescript": "^0.8.0",
+    "purescript": "^0.7.6",
     "xhr2": "^0.1.3"
   }
 }

src/Network/HTTP/Affjax/Response.purs

@@ -6,11 +6,9 @@ module Network.HTTP.Affjax.Response
 
 import Prelude
 
-import Control.Bind ((<=<))
-
 import Data.Argonaut.Core (Json())
 import Data.Either (Either(..))
-import Data.Foreign (Foreign(), F(), parseJSON, readString, unsafeReadTagged)
+import Data.Foreign (Foreign(), F(), readString, unsafeReadTagged)
 import Data.Maybe (Maybe(..))
 import Data.Tuple (Tuple(..))
 import qualified Data.ArrayBuffer.Types as A

test/Main.purs

@@ -3,21 +3,18 @@ module Test.Main where
 import Prelude
 
 import Control.Monad.Aff
+import Control.Monad.Aff.AVar (AVAR())
 import Control.Bind
 import Control.Monad.Eff
 import Control.Monad.Eff.Class
+import Control.Monad.Eff.Ref (REF())
 import Control.Monad.Eff.Console (CONSOLE(), log, print)
 import qualified Control.Monad.Aff.Console as A
 import Control.Monad.Eff.Exception
 import Data.Either
 import Data.Maybe
 import Data.Foreign
 import Network.HTTP.Affjax
-import Network.HTTP.Affjax.Response
-import Network.HTTP.Affjax.Request
-import Network.HTTP.Method
-import Network.HTTP.MimeType.Common
-import Network.HTTP.RequestHeader
 import Network.HTTP.StatusCode
 
 foreign import logAny
@@ -55,6 +52,15 @@ assertEq x y = if x == y
 typeIs :: forall e a. a -> Assert e Unit
 typeIs = const (return unit)
 
+type MainEffects e =
+  ( ref :: REF
+  , avar :: AVAR
+  , err :: EXCEPTION
+  , console :: CONSOLE
+  | e
+  )
+
+main :: Eff (MainEffects (ajax :: AJAX)) Unit
 main = runAff (\e -> print e >>= \_ -> throwException e) (const $ log "affjax: All good!") $ do
   let ok200 = StatusCode 200
   let notFound404 = StatusCode 404
@@ -82,7 +88,7 @@ main = runAff (\e -> print e >>= \_ -> throwException e) (const $ log "affjax: A
     assertEq notFound404 res.status
 
   A.log "GET /not-json: invalid JSON with Foreign response should throw an error"
-  assertLeft =<< attempt (get doesNotExist :: Affjax _ Foreign)
+  assertLeft =<< attempt (get doesNotExist :: Affjax (MainEffects ()) Foreign)
 
   A.log "GET /not-json: invalid JSON with String response should be ok"
   (attempt $ get notJson) >>= assertRight >>= \res -> do