Merge pull request #23 from cryogenian/aggregation

aggregation

Author: jdegoes

bower.json

@@ -7,27 +7,13 @@
   ],
   "license": "MIT",
   "dependencies": {
-    "purescript-either": "^0.2.0",
-    "purescript-tuples": "^0.4.0",
-    "purescript-maps": "^0.4.0",
-    "purescript-sets": "^0.4.0",
-    "purescript-foldable-traversable": "^0.4.0",
-    "purescript-strings": "^0.5.2",
-    "purescript-arrays": "^0.4.0",
-    "purescript-lists": "^0.7.0",
-    "purescript-prelude": "^0.1.0",
-    "purescript-globals": "^0.2.0",
-    "purescript-control": "^0.3.0",
-    "purescript-lens": "^0.8.0",
-    "purescript-integers": "^0.2.0",
-    "purescript-functions": "^0.1.0",
-    "purescript-optics": "https://github.com/paf31/purescript-optic.git#0.7",
-    "purescript-index": "https://github.com/paf31/purescript-index.git#0.7",
-    "purescript-strongcheck": "^0.10.0",
-    "purescript-unfoldable": "^0.4.0"
+    "purescript-argonaut-traversals": "^0.1.0",
+    "purescript-argonaut-core": "^0.1.0",
+    "purescript-argonaut-codecs": "^0.1.0"
   },
   "devDependencies": {
-    "purescript-console": "^0.1.0"
+    "purescript-console": "^0.1.0",
+    "purescript-strongcheck": "^0.10.0"
   },
   "resolutions": {
     "purescript-lens": "^0.8.0"

docs/Data/Argonaut/Core.md

@@ -46,7 +46,7 @@ data JNull :: *
 ``` purescript
 instance eqJNull :: Eq JNull
 instance ordJNull :: Ord JNull
-instance showJsonNull :: Show JNull
+instance showJNull :: Show JNull
 ```
 
 #### `Json`
@@ -57,9 +57,9 @@ data Json :: *
 
 ##### Instances
 ``` purescript
-instance showJson :: Show Json
 instance eqJson :: Eq Json
 instance ordJson :: Ord Json
+instance showJson :: Show Json
 ```
 
 #### `foldJson`
@@ -104,12 +104,6 @@ foldJsonArray :: forall a. a -> (JArray -> a) -> Json -> a
 foldJsonObject :: forall a. a -> (JObject -> a) -> Json -> a
 ```
 
-#### `isJsonType`
-
-``` purescript
-isJsonType :: forall a. (Boolean -> (a -> Boolean) -> Json -> Boolean) -> Json -> Boolean
-```
-
 #### `isNull`
 
 ``` purescript
@@ -218,6 +212,12 @@ fromArray :: JArray -> Json
 fromObject :: JObject -> Json
 ```
 
+#### `jsonNull`
+
+``` purescript
+jsonNull :: Json
+```
+
 #### `jsonTrue`
 
 ``` purescript
@@ -236,18 +236,6 @@ jsonFalse :: Json
 jsonZero :: Json
 ```
 
-#### `jsonNull`
-
-``` purescript
-jsonNull :: Json
-```
-
-#### `jsonEmptyString`
-
-``` purescript
-jsonEmptyString :: Json
-```
-
 #### `jsonEmptyArray`
 
 ``` purescript
@@ -272,76 +260,4 @@ jsonSingletonArray :: Json -> Json
 jsonSingletonObject :: String -> Json -> Json
 ```
 
-#### `nullL`
-
-``` purescript
-nullL :: PrismP Json JNull
-```
-
-#### `booleanL`
-
-``` purescript
-booleanL :: PrismP Json JBoolean
-```
-
-#### `numberL`
-
-``` purescript
-numberL :: PrismP Json JNumber
-```
-
-#### `stringL`
-
-``` purescript
-stringL :: PrismP Json JString
-```
-
-#### `arrayL`
-
-``` purescript
-arrayL :: PrismP Json JArray
-```
-
-#### `objectL`
-
-``` purescript
-objectL :: PrismP Json JObject
-```
-
-#### `jsonNullL`
-
-``` purescript
-jsonNullL :: TraversalP Json Json
-```
-
-#### `jsonBooleanL`
-
-``` purescript
-jsonBooleanL :: TraversalP Json Json
-```
-
-#### `jsonNumberL`
-
-``` purescript
-jsonNumberL :: TraversalP Json Json
-```
-
-#### `jsonStringL`
-
-``` purescript
-jsonStringL :: TraversalP Json Json
-```
-
-#### `jsonArrayL`
-
-``` purescript
-jsonArrayL :: TraversalP Json Json
-```
-
-#### `jsonObjectL`
-
-``` purescript
-jsonObjectL :: TraversalP Json Json
-```
-
 

docs/Data/Argonaut/Decode.md

@@ -31,22 +31,4 @@ instance decodeMap :: (Ord a, DecodeJson a, DecodeJson b) => DecodeJson (Map a b
 decodeMaybe :: forall a. (DecodeJson a) => Json -> Maybe a
 ```
 
-#### `decodeL`
-
-``` purescript
-decodeL :: forall a. (DecodeJson a, EncodeJson a) => PrismP Json a
-```
-
-#### `arrayIndexL`
-
-``` purescript
-arrayIndexL :: forall a. (DecodeJson a, EncodeJson a) => Int -> TraversalP Json a
-```
-
-#### `objectFieldL`
-
-``` purescript
-objectFieldL :: forall a. (DecodeJson a, EncodeJson a) => JString -> TraversalP Json a
-```
-
 

docs/Data/Argonaut/JCursor.md

@@ -38,6 +38,12 @@ instance showJsonPrim :: Show JsonPrim
 runJsonPrim :: JsonPrim -> (forall a. (JNull -> a) -> (JBoolean -> a) -> (JNumber -> a) -> (JString -> a) -> a)
 ```
 
+#### `exactNull`
+
+``` purescript
+exactNull :: JNull
+```
+
 #### `primNull`
 
 ``` purescript
@@ -92,6 +98,12 @@ downIndex :: Int -> JCursor -> JCursor
 cursorGet :: JCursor -> Json -> Maybe Json
 ```
 
+#### `inferEmpty`
+
+``` purescript
+inferEmpty :: JCursor -> Json
+```
+
 #### `cursorSet`
 
 ``` purescript
@@ -110,4 +122,10 @@ toPrims :: Json -> List (Tuple JCursor JsonPrim)
 fromPrims :: List (Tuple JCursor JsonPrim) -> Maybe Json
 ```
 
+#### `fail`
+
+``` purescript
+fail :: forall a b. (Show a) => a -> Either String b
+```
+
 

docs/Data/Argonaut/Prisms.md

@@ -0,0 +1,39 @@
+## Module Data.Argonaut.Prisms
+
+#### `_Null`
+
+``` purescript
+_Null :: PrismP Json JNull
+```
+
+#### `_Boolean`
+
+``` purescript
+_Boolean :: PrismP Json JBoolean
+```
+
+#### `_Number`
+
+``` purescript
+_Number :: PrismP Json JNumber
+```
+
+#### `_String`
+
+``` purescript
+_String :: PrismP Json JString
+```
+
+#### `_Array`
+
+``` purescript
+_Array :: PrismP Json JArray
+```
+
+#### `_Object`
+
+``` purescript
+_Object :: PrismP Json JObject
+```
+
+

docs/Data/Argonaut/Traversals.md

@@ -0,0 +1,39 @@
+## Module Data.Argonaut.Traversals
+
+#### `_JsonNull`
+
+``` purescript
+_JsonNull :: TraversalP Json Json
+```
+
+#### `_JsonBoolean`
+
+``` purescript
+_JsonBoolean :: TraversalP Json Json
+```
+
+#### `_JsonNumber`
+
+``` purescript
+_JsonNumber :: TraversalP Json Json
+```
+
+#### `_JsonString`
+
+``` purescript
+_JsonString :: TraversalP Json Json
+```
+
+#### `_JsonArray`
+
+``` purescript
+_JsonArray :: TraversalP Json Json
+```
+
+#### `_JsonObject`
+
+``` purescript
+_JsonObject :: TraversalP Json Json
+```
+
+

gulpfile.js

@@ -42,7 +42,9 @@ gulp.task('docs', function() {
             "Data.Argonaut.Encode": "docs/Data/Argonaut/Encode.md",
             "Data.Argonaut.JCursor": "docs/Data/Argonaut/JCursor.md",
             "Data.Argonaut.Parser": "docs/Data/Argonaut/Parser.md",
-            "Data.Argonaut.Printer": "docs/Data/Argonaut/Printer.md"
+            "Data.Argonaut.Printer": "docs/Data/Argonaut/Printer.md",
+            "Data.Argonaut.Prisms": "docs/Data/Argonaut/Prisms.md",
+            "Data.Argonaut.Traversals": "docs/Data/Argonaut/Traversals.md"
         }
     });
 });