Upgrade argonaut library versions for typed errors (#46)

Author: srghma

bower.json

@@ -11,9 +11,9 @@
   },
   "license": "MIT",
   "dependencies": {
-    "purescript-argonaut-codecs": "^6.0.0",
+    "purescript-argonaut-codecs": "^7.0.0",
     "purescript-argonaut-core": "^5.0.0",
-    "purescript-argonaut-traversals": "^7.0.0"
+    "purescript-argonaut-traversals": "^8.0.0"
   },
   "devDependencies": {
     "purescript-console": "^4.0.0",

examples/Examples/Data/Argonaut/Record.purs

@@ -2,7 +2,7 @@ module Examples.Data.Argonaut.Record where
 
 import Prelude
 
-import Data.Argonaut (class EncodeJson, class DecodeJson, Json, encodeJson, fromArray, decodeJson, jsonEmptyObject, (~>), (~>?), (:=), (:=?), (.:), (.:?), (.!=))
+import Data.Argonaut (class DecodeJson, class EncodeJson, Json, JsonDecodeError, decodeJson, encodeJson, fromArray, jsonEmptyObject, (.!=), (.:), (.:?), (:=), (:=?), (~>), (~>?))
 import Data.Either (Either)
 import Data.Maybe (Maybe)
 import Data.Traversable (traverse)
@@ -36,7 +36,7 @@ instance encodeJsonBlogPost :: EncodeJson BlogPost where
 
 type BlogPostArray = Array BlogPost
 
-decodeBlogPostArray :: Json -> Either String BlogPostArray
+decodeBlogPostArray :: Json -> Either JsonDecodeError BlogPostArray
 decodeBlogPostArray json = decodeJson json >>= traverse decodeJson
 
 encodeBlogPostArray :: BlogPostArray -> Json

src/Data/Argonaut.purs

@@ -10,9 +10,9 @@ module Data.Argonaut
 
 
 import Data.Argonaut.Core (Json, caseJson, caseJsonArray, caseJsonBoolean, caseJsonNull, caseJsonNumber, caseJsonObject, caseJsonString, fromArray, fromBoolean, fromNumber, fromObject, fromString, isArray, isBoolean, isNull, isNumber, isObject, isString, jsonEmptyArray, jsonEmptyObject, jsonEmptyString, jsonFalse, jsonNull, jsonSingletonArray, jsonSingletonObject, jsonTrue, jsonZero, stringify, toArray, toBoolean, toNull, toNumber, toObject, toString)
-import Data.Argonaut.Decode (class DecodeJson, decodeJson, defaultField, defaultFieldDeprecated, getField, getFieldDeprecated, getFieldOptional, getFieldOptional', getFieldOptionalDeprecated, (.!=), (.:), (.:!), (.:?), (.?), (.?=), (.??))
+import Data.Argonaut.Decode (class DecodeJson, JsonDecodeError(..), decodeJson, defaultField, getField, getFieldOptional, getFieldOptional', parseJson, printJsonDecodeError, (.!=), (.:), (.:!), (.:?))
 import Data.Argonaut.Encode (class EncodeJson, assoc, assocOptional, encodeJson, extend, extendOptional, (:=), (:=?), (~>), (~>?))
-import Data.Argonaut.JCursor (JCursor(..), JsonPrim(..), cursorGet, cursorSet, downField, downIndex, fail, fromPrims, inferEmpty, insideOut, primBool, primNull, primNum, primStr, primToJson, print, runJsonPrim, toPrims)
+import Data.Argonaut.JCursor (JCursor(..), JsonPrim(..), cursorGet, cursorSet, downField, downIndex, fromPrims, inferEmpty, insideOut, primBool, primNull, primNum, primStr, primToJson, print, runJsonPrim, toPrims)
 import Data.Argonaut.Parser (jsonParser)
 import Data.Argonaut.Prisms (_Array, _Boolean, _Null, _Number, _Object, _String)
 import Data.Argonaut.Traversals (_JsonArray, _JsonBoolean, _JsonNull, _JsonNumber, _JsonObject, _JsonString)