Merge pull request #5 from purescript-contrib/updates

Update strongcheck dependency, fix warning

Author: jdegoes

.travis.yml

@@ -2,13 +2,7 @@ language: node_js
 sudo: false
 node_js:
   - 0.10
-env:
-  - PATH=$HOME/purescript:$PATH
 install:
-  - TAG=$(wget -q -O - https://github.com/purescript/purescript/releases/latest --server-response --max-redirect 0 2>&1 | sed -n -e 's/.*Location:.*tag\///p')
-  - wget -O $HOME/purescript.tar.gz https://github.com/purescript/purescript/releases/download/$TAG/linux64.tar.gz
-  - tar -xvf $HOME/purescript.tar.gz -C $HOME/
-  - chmod a+x $HOME/purescript
   - npm install bower gulp -g
   - npm install
   - bower install --production

bower.json

@@ -23,6 +23,6 @@
     "purescript-maps": "^0.5.0"
   },
   "devDependencies": {
-    "purescript-strongcheck": "^0.12.0"
+    "purescript-strongcheck": "^0.14.0"
   }
 }

package.json

@@ -4,7 +4,8 @@
   "license": "MIT",
   "devDependencies": {
     "gulp": "^3.9.0",
-    "gulp-purescript": "^0.5.0",
-    "gulp-run": "^1.6.8"
+    "gulp-purescript": "^0.7.0",
+    "gulp-run": "^1.6.8",
+    "purescript": "^0.7.4"
   }
 }

src/Data/Argonaut/Core.purs

@@ -1,4 +1,4 @@
-module Data.Argonaut.Core 
+module Data.Argonaut.Core
   ( Json(..)
   , JNull(..)
   , JBoolean(..)
@@ -85,10 +85,10 @@ foldJsonObject :: forall a. a -> (JObject -> a) -> Json -> a
 foldJsonObject d f j = runFn7 _foldJson (const d) (const d) (const d) (const d) (const d) f j
 
 verbJsonType :: forall a b. b -> (a -> b) -> (b -> (a -> b) -> Json -> b) -> Json -> b
-verbJsonType def f fold = fold def f 
+verbJsonType def f fold = fold def f
 
 
--- Tests 
+-- Tests
 isJsonType :: forall a. (Boolean -> (a -> Boolean) -> Json -> Boolean) ->
               Json -> Boolean
 isJsonType = verbJsonType false (const true)
@@ -113,7 +113,7 @@ isObject = isJsonType foldJsonObject
 
 -- Decoding
 
-toJsonType :: forall a b. (Maybe a -> (a -> Maybe a) -> Json -> Maybe a) ->
+toJsonType :: forall a. (Maybe a -> (a -> Maybe a) -> Json -> Maybe a) ->
               Json -> Maybe a
 toJsonType = verbJsonType Nothing Just
 
@@ -189,7 +189,7 @@ instance ordJson :: Ord Json where
   compare a b = runFn5 _compare EQ GT LT a b
 
 instance showJson :: Show Json where
-  show = _stringify 
+  show = _stringify
 
 -- Foreigns