git.iko.soy/typeable/aeson
on master help sign in
swap
817ad941614 ahead, 0 behind
.gitattributesnew file+1
since splitsnapshots
unifiedsplit
@@ -0,0 +1 @@
1+tests/JSONTestSuite/* linguist-vendored
.gitignorenew file+24
@@ -0,0 +1,24 @@
1+dist
2+dist-newstyle
3+.ghc.environment.*
4+.cabal-sandbox/
5+cabal.sandbox.config
6+.stack-work/
7+.stack-work-bench/
8+*.yaml.lock
9+
10+*.o
11+*.hi
12+*.nix
13+*.swp
14+.\#*
15+\#*
16+
17+# Emacs backup files
18+*~
19+
20+benchmarks/AesonEncode
21+
22+tests/qc
23+
24+cabal.sandbox.config
.hgignore+6−14
@@ -1,19 +1,11 @@
1+.*\.(?:aux|h[ip]|o|orig|out|pdf|prof|ps|rej)$
1−^dist$
2+^(?:dist|\.DS_Store)$
2−benchmarks/Arse
3−benchmarks/med.txt
3+^(?:benchmarks|examples)/dist$
4−benchmarks/tiny
4+^tests/(?:qc)
5
5
6syntax: glob
6syntax: glob
7−*.aux
7+.cabal-sandbox
8−*.hi
8+cabal.sandbox.config
9−*.hp
10−*.o
11−*.orig
12−*.out
13−*.pdf
14−*.prof
15−*.ps
16−*.rej
17*~
9*~
18.*.swp
10.*.swp
19.\#*
11.\#*
.hgtagsnew file+43
@@ -0,0 +1,43 @@
1+05d9437b2280648ae25ac170697ec1c48eda7af0 0.1.0.0
2+f4cf6abd5a81affb08c6563d51e38ac4f8451217 0.2.0.0
3+fe4084e5615941d9822834239e4c32a036291327 0.3.0.0
4+75142422b9b377b552b7763ebbab4fe6d1f033b6 0.3.1.0
5+0defd5d5bd3842e597d785233d36335b320d2483 0.3.1.1
6+7a922d428ac2a654b663c81f8b951092e28d2675 0.3.2.0
7+99ffe7c2132da25a72de2a8cb277a2598d0aed95 0.3.2.1
8+c3a1a4557a290b7ede72b3b20d16c50b27159573 0.3.2.2
9+14f3d533dbbb43866085db8a9f3f3ccdbcb69971 0.3.2.3
10+c50d0f85ca2ae37316a3077d5fbba182b21cadcb 0.3.2.4
11+21e7a84b5762292f7e725b4a969eebc121d80e73 0.3.2.5
12+9311d533b5d0650b43146545a2dbf438981aba83 0.3.2.6
13+bf1fa4553d850660368f10497058e3a100100cb8 0.3.2.7
14+955fe54d335c76b63bf2891b7f188cb0aac48ad0 0.3.2.8
15+0407bf230b151a629c7188b69a3afa51d247afa8 0.3.2.9
16+92f55303433cdc2c2d9c5ed6839d9be01a804e3e 0.3.2.10
17+66af061a8260947fc47f581616574c921b2c74a0 0.3.2.11
18+f248e6c8b064369c57e123906c2a6314290f605b 0.3.2.12
19+7c8ba8b497a1e93309c67e0b95ca55c1fd3b2ff0 0.3.2.13
20+7acbc27a3a3841371d3a6575fc0c88adf6d2dd5e 0.3.2.14
21+64278bc5adde7cbfe731b295143d30ada0d5b264 0.4.0.0
22+eb3e1955a1d3aea5538bcda1c089a5a018ded4d4 0.4.0.1
23+c292fe0c0808c7ecc576a98cd64931bc5e74b546 0.5.0.0
24+00e3f2a4f193395369e0535d732fd78c80aac344 0.6.0.0
25+3041d9f301a908355dfdb28d8cb0c2cba39e2491 0.6.0.2
26+b1770e9401a9ddb5a92543547d4faa3fd8576bd6 0.6.1.0
27+717ddce43a7f0a99b57a4ff832ba7c876243d520 0.6.2.0
28+52038e5c0ea396945bfb0926c5806b9484bb5d34 0.6.2.1
29+fbc623c63b977425ceab1e82b46bf09f8b489c12 0.7.0.0
30+cdeff57d78ec76d81541249d48f6def4958175c3 0.7.0.1
31+0aef582b3bf1e44a81892cb73c1dcccc8ae22b22 0.7.0.2
32+93b496b0ee9a5ed762ae53618c1681e9c605efd8 0.7.0.3
33+ea18d6545a480f824a16c68083ee78d79b9b6e2c 0.7.0.4
34+3bfd2588b31f9cd70c759998422f208ec66b34ef 0.7.0.5
35+743be245cdfa38548dcd1a0017f67b32375a171c 0.7.0.6
36+61bfbaca07c406f0f1d06e33ab3988fa5645a77c 0.8.0.0
37+02a9ada0bfb91ba4832835846ee6f7cc4f149f8c 0.8.0.1
38+da25c578cf0466cecbf073a061692627d95bc224 0.8.0.2
39+94be687558a1861d60f26425b9e5ebcbb933559c 0.8.1.0
40+dec5d42c267b92ee45c0338714814e60807ec1de 0.8.1.1
41+9f84aecacebcbb3d65d761258c675da7e504c9f3 0.9.0.0
42+a6826d161cc5bb2b4b2f5d56e53c6361583671a3 0.9.0.1
43+921050855dc465282954cabb6b13a510fc534786 0.10.0.0
.hlint.yamlnew file+11
@@ -0,0 +1,11 @@
1+# Ignore some builtin hints
2+- ignore:
3+ name: "Reduce duplication"
4+ within:
5+ - Data.Aeson.Types.ToJSON
6+- ignore:
7+ name: "Eta reduce"
8+- ignore:
9+ name: "Use newtype instead of data"
10+ within:
11+ - Data.Aeson.Types.Internal
.travis.ymlnew file+83
@@ -0,0 +1,83 @@
1+# This file has been modified from generated version
2+# see https://github.com/hvr/multi-ghc-travis
3+language: c
4+sudo: false
5+
6+# Bryan threatens to turn off Travis-CI if he gets any email :-)
7+notifications:
8+ email: false
9+
10+cache:
11+ directories:
12+ - $HOME/.stack
13+ - $HOME/.cabsnap
14+ - $HOME/.cabal/packages
15+ - $HOME/.cabal/store
16+
17+before_cache:
18+ - rm -fv $HOME/.cabal/packages/hackage.haskell.org/build-reports.log
19+ - rm -fv $HOME/.cabal/packages/hackage.haskell.org/00-index.*
20+ - rm -fv $HOME/.cabal/packages/hackage.haskell.org/*.json
21+ - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.cache
22+ - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.tar
23+ - rm -fv $HOME/.cabal/packages/hackage.haskell.org/01-index.tar.idx
24+
25+matrix:
26+ include:
27+
28+ - env: BUILD=hlint CABALVER=2.2 GHCVER=8.4.4
29+ compiler: ": #GHC 8.4.4"
30+ addons: {apt: {packages: [cabal-install-2.2,ghc-8.4.4], sources: [hvr-ghc]}}
31+
32+ - env: BUILD=stack CABALVER=2.4 GHCVER=8.6.5 STACK_YAML=stack-bench.yaml
33+ compiler: ": #GHC 8.6.5"
34+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.6.5], sources: [hvr-ghc]}}
35+
36+ - env: BUILD=stack CABALVER=2.2 GHCVER=8.6.5 STACK_YAML=stack-ffi-unescape.yaml
37+ compiler: ": #GHC 8.6.5"
38+ addons: {apt: {packages: [cabal-install-2.2,ghc-8.6.5], sources: [hvr-ghc]}}
39+
40+ - env: BUILD=cabal2 CABALVER=3.0 GHCVER=8.8.1
41+ compiler: ": #GHC 8.8.1"
42+ addons: {apt: {packages: [cabal-install-3.0,ghc-8.8.1], sources: [hvr-ghc]}}
43+
44+ - env: BUILD=cabal CABALVER=2.4 GHCVER=8.6.5
45+ compiler: ": #GHC 8.6.5"
46+ addons: {apt: {packages: [cabal-install-2.4,ghc-8.6.5], sources: [hvr-ghc]}}
47+
48+ - env: BUILD=cabal CABALVER=2.2 GHCVER=8.4.4
49+ compiler: ": #GHC 8.4.4"
50+ addons: {apt: {packages: [cabal-install-2.2,ghc-8.4.4], sources: [hvr-ghc]}}
51+
52+ - env: BUILD=cabal CABALVER=2.0 GHCVER=8.2.2
53+ compiler: ": #GHC 8.2.2"
54+ addons: {apt: {packages: [cabal-install-2.0,ghc-8.2.2], sources: [hvr-ghc]}}
55+
56+ - env: BUILD=cabal CABALVER=2.0 GHCVER=8.0.2
57+ compiler: ": #GHC 8.0.2"
58+ addons: {apt: {packages: [cabal-install-2.0,ghc-8.0.2], sources: [hvr-ghc]}}
59+
60+ - env: BUILD=cabal CABALVER=1.22 GHCVER=7.10.3
61+ compiler: ": #GHC 7.10.3"
62+ addons: {apt: {packages: [cabal-install-1.22,ghc-7.10.3], sources: [hvr-ghc]}}
63+
64+ - env: BUILD=cabal CABALVER=1.18 GHCVER=7.8.4
65+ compiler: ": #GHC 7.8.4"
66+ addons: {apt: {packages: [cabal-install-1.18,ghc-7.8.4], sources: [hvr-ghc]}}
67+
68+before_install:
69+ - unset CC
70+ - export PATH=$HOME/.local/bin:/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$PATH
71+ # Download and unpack the stack executable
72+ - mkdir -p ~/.local/bin
73+ - travis_retry curl -L https://www.stackage.org/stack/linux-x86_64 | tar xz --wildcards --strip-components=1 -C ~/.local/bin '*/stack'
74+
75+install:
76+ - travis/install.sh
77+
78+# Here starts the actual work to be performed for the package under test;
79+# any command which exits with a non-zero exit code causes the build to fail.
80+script:
81+ - travis/script.sh
82+
83+# EOF
CONTRIBUTING.mdnew file+98
@@ -0,0 +1,98 @@
1+# Documenting changes
2+
3+Changes that affect users of aeson should be mentioned in `changelog.md`. It should contain
4+* A description
5+* The level of change, see [PVP](https://wiki.haskell.org/Package_versioning_policy)
6+* Where applicable
7+ * How to migrate existing code
8+ * When it should be used
9+ * What it supersedes
10+
11+Add this entry under an `## Upcoming` header above existing releases.
12+
13+The exact format of entries is not important as we'll go through everything before a release is made.
14+
15+# Style guide
16+
17+* 4 space indentation
18+
19+## Pragmas
20+
21+* One pragma on each line
22+* No alignment
23+* Sort lexicographically
24+
25+```haskell
26+{-# LANGUAGE BangPatterns #-}
27+{-# LANGUAGE CPP #-}
28+{-# LANGUAGE DataKinds #-}
29+```
30+
31+## Module declaration and exports
32+
33+* Opening paren on its own line
34+* Prefix with commas
35+* End with `) where`
36+
37+```haskell
38+module Data.Aeson.Types.ToJSON
39+ (
40+ -- * Core JSON classes
41+ ToJSON(..)
42+ -- * Liftings to unary and binary type constructors
43+ , ToJSON1(..)
44+ , toJSON1
45+ ) where
46+```
47+
48+## Imports
49+
50+* No alignment of import lists or qualifications
51+* Sort lexicographically (qualified imports will be last)
52+* No space between types and constructor lists
53+* Sort identifiers in import lists lexicographically
54+
55+```haskell
56+import BarBar as B ((<>), foo)
57+import Foo as F
58+import Qux (Q(..), q)
59+import qualified A
60+```
61+
62+## Development Workflow (If you plan on using Stack)
63+
64+Here we outline a general workflow new contributors could adopt for a nice incremental development experience.
65+
66+The root folder consists of two stack-*.yaml config files.
67+
68+1. stack-nightly.yaml - Config file defines all the settings to build and test any changes.
69+2. stack-bench.yaml - Used to run benchmark tests.
70+3. stack-ffi-unescape.yaml - This is for replacing certain parts with a C-implementation.
71+
72+Therefore, a ghci development experience would be:
73+
74+1. `stack ghci --stack-yaml stack-nightly.yaml --test`
75+2. :r to recompile
76+3. `main` to run all tests, or `:main --pattern Foo` to run specific tests matched by pattern.
77+
78+Some discussion on this topic can also be found here [here](https://github.com/bos/aeson/issues/733)
79+
80+Of course before submitting a PR, the following steps are recommended:
81+
82+1. 'stack test --stack-yaml stack-nightly.yaml` - Run the entire suite of tests
83+2. `make hlint` - Run hlint on the source folders.
84+3. 'stack test --stack-yaml stack-bench.yaml` - Run the benchmark tests if you believe your changes could affect the benchmarks.
85+
86+## Development Workflow (If you plan on using Cabal)
87+
88+A ghci development experience would be:
89+
90+1. `cabal new-repl test:tests`
91+2. `:r` to recompile
92+3. `Main.main` to run all tests, or `:m Main; :main --pattern Foo` to run specific tests matched by pattern.
93+
94+Of course before submitting a PR, the following steps are recommended:
95+
96+1. `cabal new-test` - Run the entire suite of tests
97+2. `make hlint` - Run hlint on the source folders.
98+3. Uncomment the `benchmarks` line in `cabal.project` - Run the benchmark tests if you believe your changes could affect the benchmarks.
Data/Aeson.hs+517−3
@@ -1,13 +1,527 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+-- |
3+-- Module: Data.Aeson
4+-- Copyright: (c) 2011-2016 Bryan O'Sullivan
5+-- (c) 2011 MailRank, Inc.
6+-- License: BSD3
7+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
8+-- Stability: experimental
9+-- Portability: portable
10+--
11+-- Types and functions for working efficiently with JSON data.
12+--
13+-- (A note on naming: in Greek mythology, Aeson was the father of Jason.)
14+
1module Data.Aeson
15module Data.Aeson
2 (
16 (
3− Array
17+ -- * How to use this library
4− , Object
18+ -- $use
19+
20+ -- ** Writing instances by hand
21+ -- $manual
22+
23+ -- ** Working with the AST
24+ -- $ast
25+
26+ -- ** Decoding to a Haskell value
27+ -- $haskell
28+
29+ -- ** Decoding a mixed-type object
30+ -- $mixed
31+
32+ -- * Encoding and decoding
33+ -- $encoding_and_decoding
34+
35+ -- ** Direct encoding
36+ -- $encoding
37+ decode
38+ , decode'
39+ , eitherDecode
40+ , eitherDecode'
41+ , encode
42+ , encodeFile
43+ -- ** Variants for strict bytestrings
44+ , decodeStrict
45+ , decodeFileStrict
46+ , decodeStrict'
47+ , decodeFileStrict'
48+ , eitherDecodeStrict
49+ , eitherDecodeFileStrict
50+ , eitherDecodeStrict'
51+ , eitherDecodeFileStrict'
52+ -- * Core JSON types
5 , Value(..)
53 , Value(..)
54+ , Encoding
55+ , fromEncoding
56+ , Array
57+ , Object
58+ -- * Convenience types
59+ , DotNetTime(..)
60+ -- * Type conversion
6 , FromJSON(..)
61 , FromJSON(..)
62+ , Result(..)
63+ , fromJSON
7 , ToJSON(..)
64 , ToJSON(..)
8− , (.=)
65+ , KeyValue(..)
66+ , (<?>)
67+ , JSONPath
68+ -- ** Keys for maps
69+ , ToJSONKey(..)
70+ , ToJSONKeyFunction(..)
71+ , FromJSONKey(..)
72+ , FromJSONKeyFunction(..)
73+ -- *** Generic keys
74+ , GToJSONKey()
75+ , genericToJSONKey
76+ , GFromJSONKey()
77+ , genericFromJSONKey
78+ -- ** Liftings to unary and binary type constructors
79+ , FromJSON1(..)
80+ , parseJSON1
81+ , FromJSON2(..)
82+ , parseJSON2
83+ , ToJSON1(..)
84+ , toJSON1
85+ , toEncoding1
86+ , ToJSON2(..)
87+ , toJSON2
88+ , toEncoding2
89+ -- ** Generic JSON classes and options
90+ , GFromJSON(..)
91+ , FromArgs(..)
92+ , GToJSON
93+ , GToEncoding
94+ , ToArgs(..)
95+ , Zero
96+ , One
97+ , genericToJSON
98+ , genericLiftToJSON
99+ , genericToEncoding
100+ , genericLiftToEncoding
101+ , genericParseJSON
102+ , genericLiftParseJSON
103+ -- ** Generic and TH encoding configuration
104+ , Options
105+ , defaultOptions
106+ -- *** Options fields
107+ -- $optionsFields
108+ , fieldLabelModifier
109+ , constructorTagModifier
110+ , allNullaryToStringTag
111+ , omitNothingFields
112+ , sumEncoding
113+ , unwrapUnaryRecords
114+ , tagSingleConstructors
115+ -- *** Options utilities
116+ , SumEncoding(..)
117+ , camelTo2
118+ , defaultTaggedObject
119+ -- ** Options for object keys
120+ , JSONKeyOptions
121+ , keyModifier
122+ , defaultJSONKeyOptions
123+
124+ -- * Inspecting @'Value's@
125+ , withObject
126+ , withText
127+ , withArray
128+ , withScientific
129+ , withBool
130+ , withEmbeddedJSON
131+ -- * Constructors and accessors
132+ , Series
133+ , pairs
134+ , foldable
9 , (.:)
135 , (.:)
136+ , (.:?)
137+ , (.:!)
138+ , (.!=)
10 , object
139 , object
140+ -- * Parsing
141+ , json
142+ , json'
143+ , parseIndexedJSON
11 ) where
144 ) where
12
145
146+import Prelude.Compat
147+
148+import Data.Aeson.Types.FromJSON (ifromJSON, parseIndexedJSON)
149+import Data.Aeson.Encoding (encodingToLazyByteString)
150+import Data.Aeson.Parser.Internal (decodeWith, decodeStrictWith, eitherDecodeWith, eitherDecodeStrictWith, jsonEOF, json, jsonEOF', json')
13import Data.Aeson.Types
151import Data.Aeson.Types
152+import Data.Aeson.Types.Internal (JSONPath, formatError, (<?>))
153+import qualified Data.ByteString as B
154+import qualified Data.ByteString.Lazy as L
155+
156+-- | Efficiently serialize a JSON value as a lazy 'L.ByteString'.
157+--
158+-- This is implemented in terms of the 'ToJSON' class's 'toEncoding' method.
159+encode :: (ToJSON a) => a -> L.ByteString
160+encode = encodingToLazyByteString . toEncoding
161+
162+-- | Efficiently serialize a JSON value as a lazy 'L.ByteString' and write it to a file.
163+encodeFile :: (ToJSON a) => FilePath -> a -> IO ()
164+encodeFile fp = L.writeFile fp . encode
165+
166+-- | Efficiently deserialize a JSON value from a lazy 'L.ByteString'.
167+-- If this fails due to incomplete or invalid input, 'Nothing' is
168+-- returned.
169+--
170+-- The input must consist solely of a JSON document, with no trailing
171+-- data except for whitespace.
172+--
173+-- This function parses immediately, but defers conversion. See
174+-- 'json' for details.
175+decode :: (FromJSON a) => L.ByteString -> Maybe a
176+decode = decodeWith jsonEOF fromJSON
177+{-# INLINE decode #-}
178+
179+-- | Efficiently deserialize a JSON value from a strict 'B.ByteString'.
180+-- If this fails due to incomplete or invalid input, 'Nothing' is
181+-- returned.
182+--
183+-- The input must consist solely of a JSON document, with no trailing
184+-- data except for whitespace.
185+--
186+-- This function parses immediately, but defers conversion. See
187+-- 'json' for details.
188+decodeStrict :: (FromJSON a) => B.ByteString -> Maybe a
189+decodeStrict = decodeStrictWith jsonEOF fromJSON
190+{-# INLINE decodeStrict #-}
191+
192+-- | Efficiently deserialize a JSON value from a file.
193+-- If this fails due to incomplete or invalid input, 'Nothing' is
194+-- returned.
195+--
196+-- The input file's content must consist solely of a JSON document,
197+-- with no trailing data except for whitespace.
198+--
199+-- This function parses immediately, but defers conversion. See
200+-- 'json' for details.
201+decodeFileStrict :: (FromJSON a) => FilePath -> IO (Maybe a)
202+decodeFileStrict = fmap decodeStrict . B.readFile
203+
204+-- | Efficiently deserialize a JSON value from a lazy 'L.ByteString'.
205+-- If this fails due to incomplete or invalid input, 'Nothing' is
206+-- returned.
207+--
208+-- The input must consist solely of a JSON document, with no trailing
209+-- data except for whitespace.
210+--
211+-- This function parses and performs conversion immediately. See
212+-- 'json'' for details.
213+decode' :: (FromJSON a) => L.ByteString -> Maybe a
214+decode' = decodeWith jsonEOF' fromJSON
215+{-# INLINE decode' #-}
216+
217+-- | Efficiently deserialize a JSON value from a strict 'B.ByteString'.
218+-- If this fails due to incomplete or invalid input, 'Nothing' is
219+-- returned.
220+--
221+-- The input must consist solely of a JSON document, with no trailing
222+-- data except for whitespace.
223+--
224+-- This function parses and performs conversion immediately. See
225+-- 'json'' for details.
226+decodeStrict' :: (FromJSON a) => B.ByteString -> Maybe a
227+decodeStrict' = decodeStrictWith jsonEOF' fromJSON
228+{-# INLINE decodeStrict' #-}
229+
230+-- | Efficiently deserialize a JSON value from a file.
231+-- If this fails due to incomplete or invalid input, 'Nothing' is
232+-- returned.
233+--
234+-- The input file's content must consist solely of a JSON document,
235+-- with no trailing data except for whitespace.
236+--
237+-- This function parses and performs conversion immediately. See
238+-- 'json'' for details.
239+decodeFileStrict' :: (FromJSON a) => FilePath -> IO (Maybe a)
240+decodeFileStrict' = fmap decodeStrict' . B.readFile
241+
242+eitherFormatError :: Either (JSONPath, String) a -> Either String a
243+eitherFormatError = either (Left . uncurry formatError) Right
244+{-# INLINE eitherFormatError #-}
245+
246+-- | Like 'decode' but returns an error message when decoding fails.
247+eitherDecode :: (FromJSON a) => L.ByteString -> Either String a
248+eitherDecode = eitherFormatError . eitherDecodeWith jsonEOF ifromJSON
249+{-# INLINE eitherDecode #-}
250+
251+-- | Like 'decodeStrict' but returns an error message when decoding fails.
252+eitherDecodeStrict :: (FromJSON a) => B.ByteString -> Either String a
253+eitherDecodeStrict =
254+ eitherFormatError . eitherDecodeStrictWith jsonEOF ifromJSON
255+{-# INLINE eitherDecodeStrict #-}
256+
257+-- | Like 'decodeFileStrict' but returns an error message when decoding fails.
258+eitherDecodeFileStrict :: (FromJSON a) => FilePath -> IO (Either String a)
259+eitherDecodeFileStrict =
260+ fmap (eitherFormatError . eitherDecodeStrictWith jsonEOF ifromJSON) . B.readFile
261+{-# INLINE eitherDecodeFileStrict #-}
262+
263+-- | Like 'decode'' but returns an error message when decoding fails.
264+eitherDecode' :: (FromJSON a) => L.ByteString -> Either String a
265+eitherDecode' = eitherFormatError . eitherDecodeWith jsonEOF' ifromJSON
266+{-# INLINE eitherDecode' #-}
267+
268+-- | Like 'decodeStrict'' but returns an error message when decoding fails.
269+eitherDecodeStrict' :: (FromJSON a) => B.ByteString -> Either String a
270+eitherDecodeStrict' =
271+ eitherFormatError . eitherDecodeStrictWith jsonEOF' ifromJSON
272+{-# INLINE eitherDecodeStrict' #-}
273+
274+-- | Like 'decodeFileStrict'' but returns an error message when decoding fails.
275+eitherDecodeFileStrict' :: (FromJSON a) => FilePath -> IO (Either String a)
276+eitherDecodeFileStrict' =
277+ fmap (eitherFormatError . eitherDecodeStrictWith jsonEOF' ifromJSON) . B.readFile
278+{-# INLINE eitherDecodeFileStrict' #-}
279+
280+-- $use
281+--
282+-- This section contains basic information on the different ways to
283+-- work with data using this library. These range from simple but
284+-- inflexible, to complex but flexible.
285+--
286+-- The most common way to use the library is to define a data type,
287+-- corresponding to some JSON data you want to work with, and then
288+-- write either a 'FromJSON' instance, a to 'ToJSON' instance, or both
289+-- for that type.
290+--
291+-- For example, given this JSON data:
292+--
293+-- > { "name": "Joe", "age": 12 }
294+--
295+-- we create a matching data type:
296+--
297+-- > {-# LANGUAGE DeriveGeneric #-}
298+-- >
299+-- > import GHC.Generics
300+-- >
301+-- > data Person = Person {
302+-- > name :: Text
303+-- > , age :: Int
304+-- > } deriving (Generic, Show)
305+--
306+-- The @LANGUAGE@ pragma and 'Generic' instance let us write empty
307+-- 'FromJSON' and 'ToJSON' instances for which the compiler will
308+-- generate sensible default implementations.
309+--
310+-- @
311+-- instance 'ToJSON' Person where
312+-- \-- No need to provide a 'toJSON' implementation.
313+--
314+-- \-- For efficiency, we write a simple 'toEncoding' implementation, as
315+-- \-- the default version uses 'toJSON'.
316+-- 'toEncoding' = 'genericToEncoding' 'defaultOptions'
317+--
318+-- instance 'FromJSON' Person
319+-- \-- No need to provide a 'parseJSON' implementation.
320+-- @
321+--
322+-- We can now encode a value like so:
323+--
324+-- > >>> encode (Person {name = "Joe", age = 12})
325+-- > "{\"name\":\"Joe\",\"age\":12}"
326+
327+-- $manual
328+--
329+-- When necessary, we can write 'ToJSON' and 'FromJSON' instances by
330+-- hand. This is valuable when the JSON-on-the-wire and Haskell data
331+-- are different or otherwise need some more carefully managed
332+-- translation. Let's revisit our JSON data:
333+--
334+-- > { "name": "Joe", "age": 12 }
335+--
336+-- We once again create a matching data type, without bothering to add
337+-- a 'Generic' instance this time:
338+--
339+-- > data Person = Person {
340+-- > name :: Text
341+-- > , age :: Int
342+-- > } deriving Show
343+--
344+-- To decode data, we need to define a 'FromJSON' instance:
345+--
346+-- > {-# LANGUAGE OverloadedStrings #-}
347+-- >
348+-- > instance FromJSON Person where
349+-- > parseJSON = withObject "Person" $ \v -> Person
350+-- > <$> v .: "name"
351+-- > <*> v .: "age"
352+--
353+-- We can now parse the JSON data like so:
354+--
355+-- > >>> decode "{\"name\":\"Joe\",\"age\":12}" :: Maybe Person
356+-- > Just (Person {name = "Joe", age = 12})
357+--
358+-- To encode data, we need to define a 'ToJSON' instance. Let's begin
359+-- with an instance written entirely by hand.
360+--
361+-- @
362+-- instance ToJSON Person where
363+-- \-- this generates a 'Value'
364+-- 'toJSON' (Person name age) =
365+-- 'object' [\"name\" '.=' name, \"age\" '.=' age]
366+--
367+-- \-- this encodes directly to a bytestring Builder
368+-- 'toEncoding' (Person name age) =
369+-- 'pairs' (\"name\" '.=' 'name' '<>' \"age\" '.=' age)
370+-- @
371+--
372+-- We can now encode a value like so:
373+--
374+-- > >>> encode (Person {name = "Joe", age = 12})
375+-- > "{\"name\":\"Joe\",\"age\":12}"
376+--
377+-- There are predefined 'FromJSON' and 'ToJSON' instances for many
378+-- types. Here's an example using lists and 'Int's:
379+--
380+-- > >>> decode "[1,2,3]" :: Maybe [Int]
381+-- > Just [1,2,3]
382+--
383+-- And here's an example using the 'Data.Map.Map' type to get a map of
384+-- 'Int's.
385+--
386+-- > >>> decode "{\"foo\":1,\"bar\":2}" :: Maybe (Map String Int)
387+-- > Just (fromList [("bar",2),("foo",1)])
388+
389+-- While the notes below focus on decoding, you can apply almost the
390+-- same techniques to /encoding/ data. (The main difference is that
391+-- encoding always succeeds, but decoding has to handle the
392+-- possibility of failure, where an input doesn't match our
393+-- expectations.)
394+--
395+-- See the documentation of 'FromJSON' and 'ToJSON' for some examples
396+-- of how you can automatically derive instances in many common
397+-- circumstances.
398+
399+-- $ast
400+--
401+-- Sometimes you want to work with JSON data directly, without first
402+-- converting it to a custom data type. This can be useful if you want
403+-- to e.g. convert JSON data to YAML data, without knowing what the
404+-- contents of the original JSON data was. The 'Value' type, which is
405+-- an instance of 'FromJSON', is used to represent an arbitrary JSON
406+-- AST (abstract syntax tree). Example usage:
407+--
408+-- > >>> decode "{\"foo\": 123}" :: Maybe Value
409+-- > Just (Object (fromList [("foo",Number 123)]))
410+--
411+-- > >>> decode "{\"foo\": [\"abc\",\"def\"]}" :: Maybe Value
412+-- > Just (Object (fromList [("foo",Array (fromList [String "abc",String "def"]))]))
413+--
414+-- Once you have a 'Value' you can write functions to traverse it and
415+-- make arbitrary transformations.
416+
417+-- $haskell
418+--
419+-- We can decode to any instance of 'FromJSON':
420+--
421+-- > λ> decode "[1,2,3]" :: Maybe [Int]
422+-- > Just [1,2,3]
423+--
424+-- Alternatively, there are instances for standard data types, so you
425+-- can use them directly. For example, use the 'Data.Map.Map' type to
426+-- get a map of 'Int's.
427+--
428+-- > λ> import Data.Map
429+-- > λ> decode "{\"foo\":1,\"bar\":2}" :: Maybe (Map String Int)
430+-- > Just (fromList [("bar",2),("foo",1)])
431+
432+-- $mixed
433+--
434+-- The above approach with maps of course will not work for mixed-type
435+-- objects that don't follow a strict schema, but there are a couple
436+-- of approaches available for these.
437+--
438+-- The 'Object' type contains JSON objects:
439+--
440+-- > λ> decode "{\"name\":\"Dave\",\"age\":2}" :: Maybe Object
441+-- > Just (fromList [("name",String "Dave"),("age",Number 2)])
442+--
443+-- You can extract values from it with a parser using 'parse',
444+-- 'parseEither' or, in this example, 'parseMaybe':
445+--
446+-- > λ> do result <- decode "{\"name\":\"Dave\",\"age\":2}"
447+-- > flip parseMaybe result $ \obj -> do
448+-- > age <- obj .: "age"
449+-- > name <- obj .: "name"
450+-- > return (name ++ ": " ++ show (age*2))
451+-- >
452+-- > Just "Dave: 4"
453+--
454+-- Considering that any type that implements 'FromJSON' can be used
455+-- here, this is quite a powerful way to parse JSON. See the
456+-- documentation in 'FromJSON' for how to implement this class for
457+-- your own data types.
458+--
459+-- The downside is that you have to write the parser yourself; the
460+-- upside is that you have complete control over the way the JSON is
461+-- parsed.
462+
463+-- $encoding_and_decoding
464+--
465+-- Decoding is a two-step process.
466+--
467+-- * When decoding a value, the process is reversed: the bytes are
468+-- converted to a 'Value', then the 'FromJSON' class is used to
469+-- convert to the desired type.
470+--
471+-- There are two ways to encode a value.
472+--
473+-- * Convert to a 'Value' using 'toJSON', then possibly further
474+-- encode. This was the only method available in aeson 0.9 and
475+-- earlier.
476+--
477+-- * Directly encode (to what will become a 'L.ByteString') using
478+-- 'toEncoding'. This is much more efficient (about 3x faster, and
479+-- less memory intensive besides), but is only available in aeson
480+-- 0.10 and newer.
481+--
482+-- For convenience, the 'encode' and 'decode' functions combine both
483+-- steps.
484+
485+-- $encoding
486+--
487+-- In older versions of this library, encoding a Haskell value
488+-- involved converting to an intermediate 'Value', then encoding that.
489+--
490+-- A \"direct\" encoder converts straight from a source Haskell value
491+-- to a 'BL.ByteString' without constructing an intermediate 'Value'.
492+-- This approach is faster than 'toJSON', and allocates less memory.
493+-- The 'toEncoding' method makes it possible to implement direct
494+-- encoding with low memory overhead.
495+--
496+-- To complicate matters, the default implementation of 'toEncoding'
497+-- uses 'toJSON'. Why? The 'toEncoding' method was added to this
498+-- library much more recently than 'toJSON'. Using 'toJSON' ensures
499+-- that packages written against older versions of this library will
500+-- compile and produce correct output, but they will not see any
501+-- speedup from direct encoding.
502+--
503+-- To write a minimal implementation of direct encoding, your type
504+-- must implement GHC's 'Generic' class, and your code should look
505+-- like this:
506+--
507+-- @
508+-- 'toEncoding' = 'genericToEncoding' 'defaultOptions'
509+-- @
510+--
511+-- What if you have more elaborate encoding needs? For example,
512+-- perhaps you need to change the names of object keys, omit parts of
513+-- a value.
514+--
515+-- To encode to a JSON \"object\", use the 'pairs' function.
516+--
517+-- @
518+-- 'toEncoding' (Person name age) =
519+-- 'pairs' (\"name\" '.=' 'name' '<>' \"age\" '.=' age)
520+-- @
521+--
522+-- Any container type that implements 'Foldable' can be encoded to a
523+-- JSON \"array\" using 'foldable'.
524+--
525+-- > > import Data.Sequence as Seq
526+-- > > encode (Seq.fromList [1,2,3])
527+-- > "[1,2,3]"
Data/Aeson/Encode.hs+24−53
@@ -1,60 +1,31 @@
1−{-# LANGUAGE OverloadedStrings #-}
1+{-# LANGUAGE NoImplicitPrelude #-}
2+-- |
3+-- Module: Data.Aeson.Encode
4+-- Copyright: (c) 2012-2016 Bryan O'Sullivan
5+-- (c) 2011 MailRank, Inc.
6+-- License: BSD3
7+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
8+-- Stability: experimental
9+-- Portability: portable
10+--
11+-- This module is left to supply limited backwards-compatibility.
2
12
3−module Data.Aeson.Encode
13+module Data.Aeson.Encode {-# DEPRECATED "Use Data.Aeson or Data.Aeson.Text instead" #-}
4 (
14 (
5− build
15+ encode
6− , encode
16+ , encodeToTextBuilder
7 ) where
17 ) where
8
18
9−import Blaze.ByteString.Builder
10−import Blaze.ByteString.Builder.Char.Utf8
11−import Data.Aeson.Types (ToJSON(..), Value(..))
12−import Data.Monoid (mappend)
13−import Numeric (showHex)
14−import qualified Data.ByteString.Char8 as B
15−import qualified Data.ByteString.Lazy.Char8 as L
16−import qualified Data.Map as M
17−import qualified Data.Text as T
18−import qualified Data.Vector as V
19
19
20−build :: Value -> Builder
20+import Data.ByteString.Lazy (ByteString)
21−build Null = fromByteString "null"
21+import Data.Text.Lazy.Builder (Builder)
22−build (Bool b) = fromByteString $ if b then "true" else "false"
22+import qualified Data.Aeson as A
23−build (Number n) = fromByteString (B.pack (show n))
23+import qualified Data.Aeson.Text as A
24−build (String s) = string s
25−build (Array v)
26− | V.null v = fromByteString "[]"
27− | otherwise = fromChar '[' `mappend`
28− build (V.unsafeHead v) `mappend`
29− V.foldr f (fromChar ']') (V.unsafeTail v)
30− where f a z = fromChar ',' `mappend` build a `mappend` z
31−build (Object m) =
32− case M.toList m of
33− (x:xs) -> fromChar '{' `mappend`
34− one x `mappend`
35− foldr f (fromChar '}') xs
36− _ -> fromByteString "{}"
37− where f a z = fromChar ',' `mappend` one a `mappend` z
38− one (k,v) = string k `mappend` fromChar ':' `mappend` build v
39
24
40−string :: T.Text -> Builder
25+encode :: A.ToJSON a => a -> ByteString
41−string s = fromChar '"' `mappend` quote s `mappend` fromChar '"'
26+encode = A.encode
42− where
27+{-# DEPRECATED encode "Use encode from Data.Aeson" #-}
43− quote q = case T.uncons t of
44− Just (c,t') -> fromText h `mappend` escape c `mappend` quote t'
45− Nothing -> fromText h
46− where (h,t) = T.break isEscape q
47− isEscape c = c == '\"' || c == '\\' || c < '\x20'
48− escape '\"' = fromByteString "\\\""
49− escape '\\' = fromByteString "\\\\"
50− escape '\n' = fromByteString "\\n"
51− escape '\r' = fromByteString "\\r"
52− escape '\t' = fromByteString "\\t"
53− escape c
54− | c < '\x20' = fromString $ "\\u" ++ replicate (4 - length h) '0' ++ h
55− | otherwise = fromChar c
56− where h = showHex (fromEnum c) ""
57
28
58−encode :: ToJSON a => a -> L.ByteString
29+encodeToTextBuilder :: A.Value -> Builder
59−encode = toLazyByteString . build . toJSON
30+encodeToTextBuilder = A.encodeToTextBuilder
60−{-# INLINE encode #-}
31+{-# DEPRECATED encodeToTextBuilder "Use encodeTotextBuilder from Data.Aeson.Text" #-}
Data/Aeson/Encoding.hsnew file+55
@@ -0,0 +1,55 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+-- |
3+--
4+-- Functions in this module return well-formed 'Encoding''.
5+-- Polymorphic variants, which return @'Encoding' a@, return a textual JSON
6+-- value, so it can be used as both @'Encoding'' 'Text'@ and @'Encoding' = 'Encoding'' 'Value'@.
7+
8+module Data.Aeson.Encoding
9+ (
10+ -- * Encoding
11+ Encoding
12+ , Encoding'
13+ , encodingToLazyByteString
14+ , fromEncoding
15+ , unsafeToEncoding
16+ , Series
17+ , pairs
18+ , pair
19+ , pairStr
20+ , pair'
21+ -- * Predicates
22+ , nullEncoding
23+ -- * Encoding constructors
24+ , emptyArray_
25+ , emptyObject_
26+ , text
27+ , lazyText
28+ , string
29+ , list
30+ , dict
31+ , null_
32+ , bool
33+ -- ** Decimal numbers
34+ , int8, int16, int32, int64, int
35+ , word8, word16, word32, word64, word
36+ , integer, float, double, scientific
37+
38+ -- ** Decimal numbers as Text
39+ , int8Text, int16Text, int32Text, int64Text, intText
40+ , word8Text, word16Text, word32Text, word64Text, wordText
41+ , integerText, floatText, doubleText, scientificText
42+
43+ -- ** Time
44+ , day
45+ , localTime
46+ , utcTime
47+ , timeOfDay
48+ , zonedTime
49+
50+ -- ** value
51+ , value
52+ ) where
53+
54+
55+import Data.Aeson.Encoding.Internal
Data/Aeson/Encoding/Builder.hsnew file+256
@@ -0,0 +1,256 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE TupleSections #-}
4+-- |
5+-- Module: Data.Aeson.Encoding.Builder
6+-- Copyright: (c) 2011 MailRank, Inc.
7+-- (c) 2013 Simon Meier <iridcode@gmail.com>
8+-- License: BSD3
9+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
10+-- Stability: experimental
11+-- Portability: portable
12+--
13+-- Efficiently serialize a JSON value using the UTF-8 encoding.
14+
15+module Data.Aeson.Encoding.Builder
16+ (
17+ encodeToBuilder
18+ , null_
19+ , bool
20+ , array
21+ , emptyArray_
22+ , emptyObject_
23+ , object
24+ , text
25+ , string
26+ , unquoted
27+ , quote
28+ , scientific
29+ , day
30+ , localTime
31+ , utcTime
32+ , timeOfDay
33+ , zonedTime
34+ , ascii2
35+ , ascii4
36+ , ascii5
37+ ) where
38+
39+import Prelude.Compat
40+
41+import Data.Aeson.Internal.Time
42+import Data.Aeson.Types.Internal (Value (..))
43+import Data.ByteString.Builder as B
44+import Data.ByteString.Builder.Prim as BP
45+import Data.ByteString.Builder.Scientific (scientificBuilder)
46+import Data.Char (chr, ord)
47+import Data.Semigroup ((<>))
48+import Data.Scientific (Scientific, base10Exponent, coefficient)
49+import Data.Text.Encoding (encodeUtf8BuilderEscaped)
50+import Data.Time (UTCTime(..))
51+import Data.Time.Calendar (Day(..), toGregorian)
52+import Data.Time.LocalTime
53+import Data.Word (Word8)
54+import qualified Data.HashMap.Strict as HMS
55+import qualified Data.Text as T
56+import qualified Data.Vector as V
57+
58+-- | Encode a JSON value to a "Data.ByteString" 'B.Builder'.
59+--
60+-- Use this function if you are encoding over the wire, or need to
61+-- prepend or append further bytes to the encoded JSON value.
62+encodeToBuilder :: Value -> Builder
63+encodeToBuilder Null = null_
64+encodeToBuilder (Bool b) = bool b
65+encodeToBuilder (Number n) = scientific n
66+encodeToBuilder (String s) = text s
67+encodeToBuilder (Array v) = array v
68+encodeToBuilder (Object m) = object m
69+
70+-- | Encode a JSON null.
71+null_ :: Builder
72+null_ = BP.primBounded (ascii4 ('n',('u',('l','l')))) ()
73+
74+-- | Encode a JSON boolean.
75+bool :: Bool -> Builder
76+bool = BP.primBounded (BP.condB id (ascii4 ('t',('r',('u','e'))))
77+ (ascii5 ('f',('a',('l',('s','e'))))))
78+
79+-- | Encode a JSON array.
80+array :: V.Vector Value -> Builder
81+array v
82+ | V.null v = emptyArray_
83+ | otherwise = B.char8 '[' <>
84+ encodeToBuilder (V.unsafeHead v) <>
85+ V.foldr withComma (B.char8 ']') (V.unsafeTail v)
86+ where
87+ withComma a z = B.char8 ',' <> encodeToBuilder a <> z
88+
89+-- Encode a JSON object.
90+object :: HMS.HashMap T.Text Value -> Builder
91+object m = case HMS.toList m of
92+ (x:xs) -> B.char8 '{' <> one x <> foldr withComma (B.char8 '}') xs
93+ _ -> emptyObject_
94+ where
95+ withComma a z = B.char8 ',' <> one a <> z
96+ one (k,v) = text k <> B.char8 ':' <> encodeToBuilder v
97+
98+-- | Encode a JSON string.
99+text :: T.Text -> Builder
100+text t = B.char8 '"' <> unquoted t <> B.char8 '"'
101+
102+-- | Encode a JSON string, without enclosing quotes.
103+unquoted :: T.Text -> Builder
104+unquoted = encodeUtf8BuilderEscaped escapeAscii
105+
106+-- | Add quotes surrounding a builder
107+quote :: Builder -> Builder
108+quote b = B.char8 '"' <> b <> B.char8 '"'
109+
110+-- | Encode a JSON string.
111+string :: String -> Builder
112+string t = B.char8 '"' <> BP.primMapListBounded go t <> B.char8 '"'
113+ where go = BP.condB (> '\x7f') BP.charUtf8 (c2w >$< escapeAscii)
114+
115+escapeAscii :: BP.BoundedPrim Word8
116+escapeAscii =
117+ BP.condB (== c2w '\\' ) (ascii2 ('\\','\\')) $
118+ BP.condB (== c2w '\"' ) (ascii2 ('\\','"' )) $
119+ BP.condB (>= c2w '\x20') (BP.liftFixedToBounded BP.word8) $
120+ BP.condB (== c2w '\n' ) (ascii2 ('\\','n' )) $
121+ BP.condB (== c2w '\r' ) (ascii2 ('\\','r' )) $
122+ BP.condB (== c2w '\t' ) (ascii2 ('\\','t' )) $
123+ BP.liftFixedToBounded hexEscape -- fallback for chars < 0x20
124+ where
125+ hexEscape :: BP.FixedPrim Word8
126+ hexEscape = (\c -> ('\\', ('u', fromIntegral c))) BP.>$<
127+ BP.char8 >*< BP.char8 >*< BP.word16HexFixed
128+{-# INLINE escapeAscii #-}
129+
130+c2w :: Char -> Word8
131+c2w c = fromIntegral (ord c)
132+
133+-- | Encode a JSON number.
134+scientific :: Scientific -> Builder
135+scientific s
136+ | e < 0 || e > 1024 = scientificBuilder s
137+ | otherwise = B.integerDec (coefficient s * 10 ^ e)
138+ where
139+ e = base10Exponent s
140+
141+emptyArray_ :: Builder
142+emptyArray_ = BP.primBounded (ascii2 ('[',']')) ()
143+
144+emptyObject_ :: Builder
145+emptyObject_ = BP.primBounded (ascii2 ('{','}')) ()
146+
147+ascii2 :: (Char, Char) -> BP.BoundedPrim a
148+ascii2 cs = BP.liftFixedToBounded $ const cs BP.>$< BP.char7 >*< BP.char7
149+{-# INLINE ascii2 #-}
150+
151+ascii4 :: (Char, (Char, (Char, Char))) -> BP.BoundedPrim a
152+ascii4 cs = BP.liftFixedToBounded $ const cs >$<
153+ BP.char7 >*< BP.char7 >*< BP.char7 >*< BP.char7
154+{-# INLINE ascii4 #-}
155+
156+ascii5 :: (Char, (Char, (Char, (Char, Char)))) -> BP.BoundedPrim a
157+ascii5 cs = BP.liftFixedToBounded $ const cs >$<
158+ BP.char7 >*< BP.char7 >*< BP.char7 >*< BP.char7 >*< BP.char7
159+{-# INLINE ascii5 #-}
160+
161+ascii6 :: (Char, (Char, (Char, (Char, (Char, Char))))) -> BP.BoundedPrim a
162+ascii6 cs = BP.liftFixedToBounded $ const cs >$<
163+ BP.char7 >*< BP.char7 >*< BP.char7 >*< BP.char7 >*< BP.char7 >*< BP.char7
164+{-# INLINE ascii6 #-}
165+
166+ascii8 :: (Char, (Char, (Char, (Char, (Char, (Char, (Char, Char)))))))
167+ -> BP.BoundedPrim a
168+ascii8 cs = BP.liftFixedToBounded $ const cs >$<
169+ BP.char7 >*< BP.char7 >*< BP.char7 >*< BP.char7 >*<
170+ BP.char7 >*< BP.char7 >*< BP.char7 >*< BP.char7
171+{-# INLINE ascii8 #-}
172+
173+day :: Day -> Builder
174+day dd = encodeYear yr <>
175+ BP.primBounded (ascii6 ('-',(mh,(ml,('-',(dh,dl)))))) ()
176+ where (yr,m,d) = toGregorian dd
177+ !(T mh ml) = twoDigits m
178+ !(T dh dl) = twoDigits d
179+ encodeYear y
180+ | y >= 1000 = B.integerDec y
181+ | y >= 0 = BP.primBounded (ascii4 (padYear y)) ()
182+ | y >= -999 = BP.primBounded (ascii5 ('-',padYear (- y))) ()
183+ | otherwise = B.integerDec y
184+ padYear y =
185+ let (ab,c) = fromIntegral y `quotRem` 10
186+ (a,b) = ab `quotRem` 10
187+ in ('0',(digit a,(digit b,digit c)))
188+{-# INLINE day #-}
189+
190+timeOfDay :: TimeOfDay -> Builder
191+timeOfDay t = timeOfDay64 (toTimeOfDay64 t)
192+{-# INLINE timeOfDay #-}
193+
194+timeOfDay64 :: TimeOfDay64 -> Builder
195+timeOfDay64 (TOD h m s)
196+ | frac == 0 = hhmmss -- omit subseconds if 0
197+ | otherwise = hhmmss <> BP.primBounded showFrac frac
198+ where
199+ hhmmss = BP.primBounded (ascii8 (hh,(hl,(':',(mh,(ml,(':',(sh,sl)))))))) ()
200+ !(T hh hl) = twoDigits h
201+ !(T mh ml) = twoDigits m
202+ !(T sh sl) = twoDigits (fromIntegral real)
203+ (real,frac) = s `quotRem` pico
204+ showFrac = ('.',) >$< (BP.liftFixedToBounded BP.char7 >*< trunc12)
205+ trunc12 = (`quotRem` micro) >$<
206+ BP.condB (\(_,y) -> y == 0) (fst >$< trunc6) (digits6 >*< trunc6)
207+ digits6 = ((`quotRem` milli) . fromIntegral) >$< (digits3 >*< digits3)
208+ trunc6 = ((`quotRem` milli) . fromIntegral) >$<
209+ BP.condB (\(_,y) -> y == 0) (fst >$< trunc3) (digits3 >*< trunc3)
210+ digits3 = (`quotRem` 10) >$< (digits2 >*< digits1)
211+ digits2 = (`quotRem` 10) >$< (digits1 >*< digits1)
212+ digits1 = BP.liftFixedToBounded (digit >$< BP.char7)
213+ trunc3 = BP.condB (== 0) BP.emptyB $
214+ (`quotRem` 100) >$< (digits1 >*< trunc2)
215+ trunc2 = BP.condB (== 0) BP.emptyB $
216+ (`quotRem` 10) >$< (digits1 >*< trunc1)
217+ trunc1 = BP.condB (== 0) BP.emptyB digits1
218+
219+ pico = 1000000000000 -- number of picoseconds in 1 second
220+ micro = 1000000 -- number of microseconds in 1 second
221+ milli = 1000 -- number of milliseconds in 1 second
222+
223+timeZone :: TimeZone -> Builder
224+timeZone (TimeZone off _ _)
225+ | off == 0 = B.char7 'Z'
226+ | otherwise = BP.primBounded (ascii6 (s,(hh,(hl,(':',(mh,ml)))))) ()
227+ where !s = if off < 0 then '-' else '+'
228+ !(T hh hl) = twoDigits h
229+ !(T mh ml) = twoDigits m
230+ (h,m) = abs off `quotRem` 60
231+{-# INLINE timeZone #-}
232+
233+dayTime :: Day -> TimeOfDay64 -> Builder
234+dayTime d t = day d <> B.char7 'T' <> timeOfDay64 t
235+{-# INLINE dayTime #-}
236+
237+utcTime :: UTCTime -> B.Builder
238+utcTime (UTCTime d s) = dayTime d (diffTimeOfDay64 s) <> B.char7 'Z'
239+{-# INLINE utcTime #-}
240+
241+localTime :: LocalTime -> Builder
242+localTime (LocalTime d t) = dayTime d (toTimeOfDay64 t)
243+{-# INLINE localTime #-}
244+
245+zonedTime :: ZonedTime -> Builder
246+zonedTime (ZonedTime t z) = localTime t <> timeZone z
247+{-# INLINE zonedTime #-}
248+
249+data T = T {-# UNPACK #-} !Char {-# UNPACK #-} !Char
250+
251+twoDigits :: Int -> T
252+twoDigits a = T (digit hi) (digit lo)
253+ where (hi,lo) = a `quotRem` 10
254+
255+digit :: Int -> Char
256+digit x = chr (x + 48)
Data/Aeson/Encoding/Internal.hsnew file+371
@@ -0,0 +1,371 @@
1+{-# LANGUAGE DeriveDataTypeable #-}
2+{-# LANGUAGE EmptyDataDecls #-}
3+{-# LANGUAGE NoImplicitPrelude #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RankNTypes #-}
6+
7+module Data.Aeson.Encoding.Internal
8+ (
9+ -- * Encoding
10+ Encoding' (..)
11+ , Encoding
12+ , encodingToLazyByteString
13+ , unsafeToEncoding
14+ , retagEncoding
15+ , Series (..)
16+ , pairs
17+ , pair
18+ , pairStr
19+ , pair'
20+ -- * Predicates
21+ , nullEncoding
22+ -- * Encoding constructors
23+ , emptyArray_
24+ , emptyObject_
25+ , wrapObject
26+ , wrapArray
27+ , null_
28+ , bool
29+ , text
30+ , lazyText
31+ , string
32+ , list
33+ , dict
34+ , tuple
35+ , (>*<)
36+ , InArray
37+ , empty
38+ , (><)
39+ , econcat
40+ -- ** Decimal numbers
41+ , int8, int16, int32, int64, int
42+ , word8, word16, word32, word64, word
43+ , integer, float, double, scientific
44+ -- ** Decimal numbers as Text
45+ , int8Text, int16Text, int32Text, int64Text, intText
46+ , word8Text, word16Text, word32Text, word64Text, wordText
47+ , integerText, floatText, doubleText, scientificText
48+ -- ** Time
49+ , day
50+ , localTime
51+ , utcTime
52+ , timeOfDay
53+ , zonedTime
54+ -- ** value
55+ , value
56+ -- ** JSON tokens
57+ , comma, colon, openBracket, closeBracket, openCurly, closeCurly
58+ ) where
59+
60+import Prelude.Compat
61+
62+import Data.Aeson.Types.Internal (Value)
63+import Data.ByteString.Builder (Builder, char7, toLazyByteString)
64+import Data.Int
65+import Data.Scientific (Scientific)
66+import Data.Semigroup (Semigroup ((<>)))
67+import Data.Text (Text)
68+import Data.Time (Day, LocalTime, TimeOfDay, UTCTime, ZonedTime)
69+import Data.Typeable (Typeable)
70+import Data.Word
71+import qualified Data.Aeson.Encoding.Builder as EB
72+import qualified Data.ByteString.Builder as B
73+import qualified Data.ByteString.Lazy as BSL
74+import qualified Data.Text.Lazy as LT
75+
76+-- | An encoding of a JSON value.
77+--
78+-- @tag@ represents which kind of JSON the Encoding is encoding to,
79+-- we reuse 'Text' and 'Value' as tags here.
80+newtype Encoding' tag = Encoding {
81+ fromEncoding :: Builder
82+ -- ^ Acquire the underlying bytestring builder.
83+ } deriving (Typeable)
84+
85+-- | Often used synonym for 'Encoding''.
86+type Encoding = Encoding' Value
87+
88+-- | Make Encoding from Builder.
89+--
90+-- Use with care! You have to make sure that the passed Builder
91+-- is a valid JSON Encoding!
92+unsafeToEncoding :: Builder -> Encoding' a
93+unsafeToEncoding = Encoding
94+
95+encodingToLazyByteString :: Encoding' a -> BSL.ByteString
96+encodingToLazyByteString = toLazyByteString . fromEncoding
97+{-# INLINE encodingToLazyByteString #-}
98+
99+retagEncoding :: Encoding' a -> Encoding' b
100+retagEncoding = Encoding . fromEncoding
101+
102+-------------------------------------------------------------------------------
103+-- Encoding instances
104+-------------------------------------------------------------------------------
105+
106+instance Show (Encoding' a) where
107+ show (Encoding e) = show (toLazyByteString e)
108+
109+instance Eq (Encoding' a) where
110+ Encoding a == Encoding b = toLazyByteString a == toLazyByteString b
111+
112+instance Ord (Encoding' a) where
113+ compare (Encoding a) (Encoding b) =
114+ compare (toLazyByteString a) (toLazyByteString b)
115+
116+-- | A series of values that, when encoded, should be separated by
117+-- commas. Since 0.11.0.0, the '.=' operator is overloaded to create
118+-- either @(Text, Value)@ or 'Series'. You can use Series when
119+-- encoding directly to a bytestring builder as in the following
120+-- example:
121+--
122+-- > toEncoding (Person name age) = pairs ("name" .= name <> "age" .= age)
123+data Series = Empty
124+ | Value (Encoding' Series)
125+ deriving (Typeable)
126+
127+pair :: Text -> Encoding -> Series
128+pair name val = pair' (text name) val
129+{-# INLINE pair #-}
130+
131+pairStr :: String -> Encoding -> Series
132+pairStr name val = pair' (string name) val
133+{-# INLINE pairStr #-}
134+
135+pair' :: Encoding' Text -> Encoding -> Series
136+pair' name val = Value $ retagEncoding $ retagEncoding name >< colon >< val
137+
138+instance Semigroup Series where
139+ Empty <> a = a
140+ a <> Empty = a
141+ Value a <> Value b = Value (a >< comma >< b)
142+
143+instance Monoid Series where
144+ mempty = Empty
145+ mappend = (<>)
146+
147+nullEncoding :: Encoding' a -> Bool
148+nullEncoding = BSL.null . toLazyByteString . fromEncoding
149+
150+emptyArray_ :: Encoding
151+emptyArray_ = Encoding EB.emptyArray_
152+
153+emptyObject_ :: Encoding
154+emptyObject_ = Encoding EB.emptyObject_
155+
156+wrapArray :: Encoding' a -> Encoding
157+wrapArray e = retagEncoding $ openBracket >< e >< closeBracket
158+
159+wrapObject :: Encoding' a -> Encoding
160+wrapObject e = retagEncoding $ openCurly >< e >< closeCurly
161+
162+null_ :: Encoding
163+null_ = Encoding EB.null_
164+
165+bool :: Bool -> Encoding
166+bool True = Encoding "true"
167+bool False = Encoding "false"
168+
169+-- | Encode a series of key/value pairs, separated by commas.
170+pairs :: Series -> Encoding
171+pairs (Value v) = openCurly >< retagEncoding v >< closeCurly
172+pairs Empty = emptyObject_
173+{-# INLINE pairs #-}
174+
175+list :: (a -> Encoding) -> [a] -> Encoding
176+list _ [] = emptyArray_
177+list to' (x:xs) = openBracket >< to' x >< commas xs >< closeBracket
178+ where
179+ commas = foldr (\v vs -> comma >< to' v >< vs) empty
180+{-# INLINE list #-}
181+
182+-- | Encode as JSON object
183+dict
184+ :: (k -> Encoding' Text) -- ^ key encoding
185+ -> (v -> Encoding) -- ^ value encoding
186+ -> (forall a. (k -> v -> a -> a) -> a -> m -> a) -- ^ @foldrWithKey@ - indexed fold
187+ -> m -- ^ container
188+ -> Encoding
189+dict encodeKey encodeVal foldrWithKey = pairs . foldrWithKey go mempty
190+ where
191+ go k v c = Value (encodeKV k v) <> c
192+ encodeKV k v = retagEncoding (encodeKey k) >< colon >< retagEncoding (encodeVal v)
193+{-# INLINE dict #-}
194+
195+-- | Type tag for tuples contents, see 'tuple'.
196+data InArray
197+
198+infixr 6 >*<
199+-- | See 'tuple'.
200+(>*<) :: Encoding' a -> Encoding' b -> Encoding' InArray
201+a >*< b = retagEncoding a >< comma >< retagEncoding b
202+{-# INLINE (>*<) #-}
203+
204+empty :: Encoding' a
205+empty = Encoding mempty
206+
207+econcat :: [Encoding' a] -> Encoding' a
208+econcat = foldr (><) empty
209+
210+infixr 6 ><
211+(><) :: Encoding' a -> Encoding' a -> Encoding' a
212+Encoding a >< Encoding b = Encoding (a <> b)
213+{-# INLINE (><) #-}
214+
215+-- | Encode as a tuple.
216+--
217+-- @
218+-- toEncoding (X a b c) = tuple $
219+-- toEncoding a >*<
220+-- toEncoding b >*<
221+-- toEncoding c
222+tuple :: Encoding' InArray -> Encoding
223+tuple b = retagEncoding $ openBracket >< b >< closeBracket
224+{-# INLINE tuple #-}
225+
226+text :: Text -> Encoding' a
227+text = Encoding . EB.text
228+
229+lazyText :: LT.Text -> Encoding' a
230+lazyText t = Encoding $
231+ B.char7 '"' <>
232+ LT.foldrChunks (\x xs -> EB.unquoted x <> xs) (B.char7 '"') t
233+
234+string :: String -> Encoding' a
235+string = Encoding . EB.string
236+
237+-------------------------------------------------------------------------------
238+-- chars
239+-------------------------------------------------------------------------------
240+
241+comma, colon, openBracket, closeBracket, openCurly, closeCurly :: Encoding' a
242+comma = Encoding $ char7 ','
243+colon = Encoding $ char7 ':'
244+openBracket = Encoding $ char7 '['
245+closeBracket = Encoding $ char7 ']'
246+openCurly = Encoding $ char7 '{'
247+closeCurly = Encoding $ char7 '}'
248+
249+-------------------------------------------------------------------------------
250+-- Decimal numbers
251+-------------------------------------------------------------------------------
252+
253+int8 :: Int8 -> Encoding
254+int8 = Encoding . B.int8Dec
255+
256+int16 :: Int16 -> Encoding
257+int16 = Encoding . B.int16Dec
258+
259+int32 :: Int32 -> Encoding
260+int32 = Encoding . B.int32Dec
261+
262+int64 :: Int64 -> Encoding
263+int64 = Encoding . B.int64Dec
264+
265+int :: Int -> Encoding
266+int = Encoding . B.intDec
267+
268+word8 :: Word8 -> Encoding
269+word8 = Encoding . B.word8Dec
270+
271+word16 :: Word16 -> Encoding
272+word16 = Encoding . B.word16Dec
273+
274+word32 :: Word32 -> Encoding
275+word32 = Encoding . B.word32Dec
276+
277+word64 :: Word64 -> Encoding
278+word64 = Encoding . B.word64Dec
279+
280+word :: Word -> Encoding
281+word = Encoding . B.wordDec
282+
283+integer :: Integer -> Encoding
284+integer = Encoding . B.integerDec
285+
286+float :: Float -> Encoding
287+float = realFloatToEncoding $ Encoding . B.floatDec
288+
289+double :: Double -> Encoding
290+double = realFloatToEncoding $ Encoding . B.doubleDec
291+
292+scientific :: Scientific -> Encoding
293+scientific = Encoding . EB.scientific
294+
295+realFloatToEncoding :: RealFloat a => (a -> Encoding) -> a -> Encoding
296+realFloatToEncoding e d
297+ | isNaN d || isInfinite d = null_
298+ | otherwise = e d
299+{-# INLINE realFloatToEncoding #-}
300+
301+-------------------------------------------------------------------------------
302+-- Decimal numbers as Text
303+-------------------------------------------------------------------------------
304+
305+int8Text :: Int8 -> Encoding' a
306+int8Text = Encoding . EB.quote . B.int8Dec
307+
308+int16Text :: Int16 -> Encoding' a
309+int16Text = Encoding . EB.quote . B.int16Dec
310+
311+int32Text :: Int32 -> Encoding' a
312+int32Text = Encoding . EB.quote . B.int32Dec
313+
314+int64Text :: Int64 -> Encoding' a
315+int64Text = Encoding . EB.quote . B.int64Dec
316+
317+intText :: Int -> Encoding' a
318+intText = Encoding . EB.quote . B.intDec
319+
320+word8Text :: Word8 -> Encoding' a
321+word8Text = Encoding . EB.quote . B.word8Dec
322+
323+word16Text :: Word16 -> Encoding' a
324+word16Text = Encoding . EB.quote . B.word16Dec
325+
326+word32Text :: Word32 -> Encoding' a
327+word32Text = Encoding . EB.quote . B.word32Dec
328+
329+word64Text :: Word64 -> Encoding' a
330+word64Text = Encoding . EB.quote . B.word64Dec
331+
332+wordText :: Word -> Encoding' a
333+wordText = Encoding . EB.quote . B.wordDec
334+
335+integerText :: Integer -> Encoding' a
336+integerText = Encoding . EB.quote . B.integerDec
337+
338+floatText :: Float -> Encoding' a
339+floatText = Encoding . EB.quote . B.floatDec
340+
341+doubleText :: Double -> Encoding' a
342+doubleText = Encoding . EB.quote . B.doubleDec
343+
344+scientificText :: Scientific -> Encoding' a
345+scientificText = Encoding . EB.quote . EB.scientific
346+
347+-------------------------------------------------------------------------------
348+-- time
349+-------------------------------------------------------------------------------
350+
351+day :: Day -> Encoding' a
352+day = Encoding . EB.quote . EB.day
353+
354+localTime :: LocalTime -> Encoding' a
355+localTime = Encoding . EB.quote . EB.localTime
356+
357+utcTime :: UTCTime -> Encoding' a
358+utcTime = Encoding . EB.quote . EB.utcTime
359+
360+timeOfDay :: TimeOfDay -> Encoding' a
361+timeOfDay = Encoding . EB.quote . EB.timeOfDay
362+
363+zonedTime :: ZonedTime -> Encoding' a
364+zonedTime = Encoding . EB.quote . EB.zonedTime
365+
366+-------------------------------------------------------------------------------
367+-- Value
368+-------------------------------------------------------------------------------
369+
370+value :: Value -> Encoding
371+value = Encoding . EB.encodeToBuilder
Data/Aeson/Internal.hsnew file+28
@@ -0,0 +1,28 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+-- |
3+-- Module: Data.Aeson.Internal
4+-- Copyright: (c) 2015-2016 Bryan O'Sullivan
5+-- License: BSD3
6+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
7+-- Stability: experimental
8+-- Portability: portable
9+--
10+-- Internal types and functions.
11+--
12+-- __Note__: all declarations in this module are unstable, and prone
13+-- to being changed at any time.
14+
15+module Data.Aeson.Internal
16+ (
17+ IResult(..)
18+ , JSONPathElement(..)
19+ , JSONPath
20+ , (<?>)
21+ , formatError
22+ , ifromJSON
23+ , iparse
24+ ) where
25+
26+
27+import Data.Aeson.Types.Internal
28+import Data.Aeson.Types.FromJSON (ifromJSON)
Data/Aeson/Internal/Functions.hsnew file+39
@@ -0,0 +1,39 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+-- |
3+-- Module: Data.Aeson.Functions
4+-- Copyright: (c) 2011-2016 Bryan O'Sullivan
5+-- (c) 2011 MailRank, Inc.
6+-- License: BSD3
7+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
8+-- Stability: experimental
9+-- Portability: portable
10+
11+module Data.Aeson.Internal.Functions
12+ (
13+ mapHashKeyVal
14+ , mapKeyVal
15+ , mapKey
16+ ) where
17+
18+import Prelude.Compat
19+
20+import Data.Hashable (Hashable)
21+import qualified Data.HashMap.Strict as H
22+import qualified Data.Map as M
23+
24+-- | Transform a 'M.Map' into a 'H.HashMap' while transforming the keys.
25+mapHashKeyVal :: (Eq k2, Hashable k2) => (k1 -> k2) -> (v1 -> v2)
26+ -> M.Map k1 v1 -> H.HashMap k2 v2
27+mapHashKeyVal fk kv = M.foldrWithKey (\k v -> H.insert (fk k) (kv v)) H.empty
28+{-# INLINE mapHashKeyVal #-}
29+
30+-- | Transform the keys and values of a 'H.HashMap'.
31+mapKeyVal :: (Eq k2, Hashable k2) => (k1 -> k2) -> (v1 -> v2)
32+ -> H.HashMap k1 v1 -> H.HashMap k2 v2
33+mapKeyVal fk kv = H.foldrWithKey (\k v -> H.insert (fk k) (kv v)) H.empty
34+{-# INLINE mapKeyVal #-}
35+
36+-- | Transform the keys of a 'H.HashMap'.
37+mapKey :: (Eq k2, Hashable k2) => (k1 -> k2) -> H.HashMap k1 v -> H.HashMap k2 v
38+mapKey fk = mapKeyVal fk id
39+{-# INLINE mapKey #-}
Data/Aeson/Internal/Time.hsnew file+20
@@ -0,0 +1,20 @@
1+{-# LANGUAGE CPP #-}
2+
3+-- |
4+-- Module: Data.Aeson.Internal.Time
5+-- Copyright: (c) 2015-2016 Bryan O'Sullivan
6+-- License: BSD3
7+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
8+-- Stability: experimental
9+-- Portability: portable
10+
11+module Data.Aeson.Internal.Time
12+ (
13+ TimeOfDay64(..)
14+ , fromPico
15+ , toPico
16+ , diffTimeOfDay64
17+ , toTimeOfDay64
18+ ) where
19+
20+import Data.Attoparsec.Time.Internal
Data/Aeson/Parser.hs+69−88
@@ -1,98 +1,79 @@
1−{-# LANGUAGE OverloadedStrings #-}
1+{-# LANGUAGE NoImplicitPrelude #-}
2+-- |
3+-- Module: Data.Aeson.Parser
4+-- Copyright: (c) 2012-2016 Bryan O'Sullivan
5+-- (c) 2011 MailRank, Inc.
6+-- License: BSD3
7+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
8+-- Stability: experimental
9+-- Portability: portable
10+--
11+-- Efficiently and correctly parse a JSON string. The string must be
12+-- encoded as UTF-8.
13+--
14+-- It can be useful to think of parsing as occurring in two phases:
15+--
16+-- * Identification of the textual boundaries of a JSON value. This
17+-- is always strict, so that an invalid JSON document can be
18+-- rejected as soon as possible.
19+--
20+-- * Conversion of a JSON value to a Haskell value. This may be
21+-- either immediate (strict) or deferred (lazy); see below for
22+-- details.
23+--
24+-- The question of whether to choose a lazy or strict parser is
25+-- subtle, but it can have significant performance implications,
26+-- resulting in changes in CPU use and memory footprint of 30% to 50%,
27+-- or occasionally more. Measure the performance of your application
28+-- with each!
2
29
3module Data.Aeson.Parser
30module Data.Aeson.Parser
4 (
31 (
32+ -- * Lazy parsers
33+ -- $lazy
5 json
34 json
6 , value
35 , value
36+ , jstring
37+ , scientific
38+ -- ** Handling objects with duplicate keys
39+ , jsonWith
40+ , jsonLast
41+ , jsonAccum
42+ , jsonNoDup
43+ -- * Strict parsers
44+ -- $strict
45+ , json'
46+ , value'
47+ -- ** Handling objects with duplicate keys
48+ , jsonWith'
49+ , jsonLast'
50+ , jsonAccum'
51+ , jsonNoDup'
52+ -- * Decoding without FromJSON instances
53+ , decodeWith
54+ , decodeStrictWith
55+ , eitherDecodeWith
56+ , eitherDecodeStrictWith
7 ) where
57 ) where
8
58
9−import Control.Applicative as A
10−import Data.Aeson.Types (Value(..))
11−import Data.Attoparsec.Char8
12−import Data.Bits (shiftL)
13−import Data.ByteString as B
14−import Data.Char (chr)
15−import Data.Map as Map
16−import Data.Text as T
17−import Data.Text.Encoding (decodeUtf8, encodeUtf8)
18−import Data.Vector as Vector hiding ((++))
19−import Data.Word (Word8)
20−import qualified Data.Attoparsec as A
21
59
22−json :: Parser Value
60+import Data.Aeson.Parser.Internal
23−json = do
24− c <- skipSpace *> anyChar
25− case c of
26− '{' -> skipSpace *> object_
27− '[' -> skipSpace *> array_
28− _ -> fail "root value is not an object or array"
29
61
30−object_ :: Parser Value
62+-- $lazy
31−object_ = do
63+--
32− let pair = liftA2 (,) (jstring <* skipSpace) (char8 ':' *> skipSpace *> value)
64+-- The 'json' and 'value' parsers decouple identification from
33− vals <- ((pair <* skipSpace) `sepBy` (char8 ',' *> skipSpace)) <* char8 '}'
65+-- conversion. Identification occurs immediately (so that an invalid
34− return . Object $ Map.fromList vals
66+-- JSON document can be rejected as early as possible), but conversion
67+-- to a Haskell value is deferred until that value is needed.
68+--
69+-- This decoupling can be time-efficient if only a smallish subset of
70+-- elements in a JSON value need to be inspected, since the cost of
71+-- conversion is zero for uninspected elements. The trade off is an
72+-- increase in memory usage, due to allocation of thunks for values
73+-- that have not yet been converted.
35
74
36−array_ :: Parser Value
75+-- $strict
37−array_ = do
76+--
38− vals <- ((value <* skipSpace) `sepBy` (char8 ',' *> skipSpace)) <* char8 ']'
77+-- The 'json'' and 'value'' parsers combine identification with
39− return . Array $ Vector.fromList vals
78+-- conversion. They consume more CPU cycles up front, but have a
40−
79+-- smaller memory footprint.
41−value :: Parser Value
42−value = most <|> (Number <$> double)
43− where
44− most = do
45− c <- anyChar
46− case c of
47− '{' -> skipSpace *> object_
48− '[' -> skipSpace *> array_
49− '"' -> String <$> jstring_
50− 'f' -> string "alse" *> pure (Bool False)
51− 't' -> string "rue" *> pure (Bool True)
52− 'n' -> string "ull" *> pure Null
53− _ -> A.empty
54−
55−doubleQuote :: Word8
56−doubleQuote = 34
57−
58−jstring :: Parser Text
59−jstring = A.word8 doubleQuote *> jstring_
60−
61−-- | Parse a string without a leading quote.
62−jstring_ :: Parser Text
63−jstring_ = do
64− let backslash = 92
65− s <- A.scan False $ \s c -> if s then Just False
66− else if c == doubleQuote
67− then Nothing
68− else Just (c == backslash)
69− _ <- A.word8 doubleQuote
70− (decodeUtf8 . B.concat) <$> reparse unescape s
71−
72−reparse :: Parser a -> ByteString -> Parser a
73−reparse p s = case (case parse p s of {Partial k -> k ""; r -> r}) of
74− Done "" r -> return r
75− Fail _ _ msg -> fail msg
76− _ -> fail "unexpected failure"
77−
78−unescape :: Parser [ByteString]
79−unescape = Prelude.reverse <$> go [] where
80− go acc = do
81− let backslash = 92
82− h <- A.takeWhile (/=backslash)
83− let rest = do
84− w <- A.word8 backslash *> A.satisfy (`B.elem` "\"\\/ntbrfu")
85− case B.findIndex (==w) "\"\\/ntbrf" of
86− Just i -> go (B.singleton (B.index "\"\\/\n\t\b\r\f" i):h:acc)
87− Nothing -> do
88− a <- reparse hexadecimal =<< A.take 4
89− if a < 0xd800 || a > 0xdfff
90− then go (encodeUtf8 (T.singleton . chr $ a):h:acc)
91− else do
92− b <- string "\\u" *> (reparse hexadecimal =<< A.take 4)
93− if a <= 0xdbff && b >= 0xdc00 && b <= 0xdfff
94− then let c = ((a - 0xd800) `shiftL` 10) + (b - 0xdc00) +
95− 0x10000
96− in go (encodeUtf8 (T.singleton . chr $ c):h:acc)
97− else fail "invalid UTF-16 surrogates"
98− rest <|> return (h:acc)
Data/Aeson/Parser/Internal.hsnew file+537
@@ -0,0 +1,537 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE CPP #-}
3+{-# LANGUAGE NoImplicitPrelude #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+#if MIN_VERSION_ghc_prim(0,3,1)
6+{-# LANGUAGE MagicHash #-}
7+#endif
8+#if __GLASGOW_HASKELL__ <= 710 && __GLASGOW_HASKELL__ >= 706
9+-- Work around a compiler bug
10+{-# OPTIONS_GHC -fsimpl-tick-factor=200 #-}
11+#endif
12+-- |
13+-- Module: Data.Aeson.Parser.Internal
14+-- Copyright: (c) 2011-2016 Bryan O'Sullivan
15+-- (c) 2011 MailRank, Inc.
16+-- License: BSD3
17+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
18+-- Stability: experimental
19+-- Portability: portable
20+--
21+-- Efficiently and correctly parse a JSON string. The string must be
22+-- encoded as UTF-8.
23+
24+module Data.Aeson.Parser.Internal
25+ (
26+ -- * Lazy parsers
27+ json, jsonEOF
28+ , jsonWith
29+ , jsonLast
30+ , jsonAccum
31+ , jsonNoDup
32+ , value
33+ , jstring
34+ , jstring_
35+ , scientific
36+ -- * Strict parsers
37+ , json', jsonEOF'
38+ , jsonWith'
39+ , jsonLast'
40+ , jsonAccum'
41+ , jsonNoDup'
42+ , value'
43+ -- * Helpers
44+ , decodeWith
45+ , decodeStrictWith
46+ , eitherDecodeWith
47+ , eitherDecodeStrictWith
48+ -- ** Handling objects with duplicate keys
49+ , fromListAccum
50+ , parseListNoDup
51+ ) where
52+
53+import Prelude.Compat
54+
55+import Control.Applicative ((<|>))
56+import Control.Monad (void, when)
57+import Data.Aeson.Types.Internal (IResult(..), JSONPath, Object, Result(..), Value(..))
58+import Data.Attoparsec.ByteString.Char8 (Parser, char, decimal, endOfInput, isDigit_w8, signed, string)
59+import Data.Function (fix)
60+import Data.Functor.Compat (($>))
61+import Data.Scientific (Scientific)
62+import Data.Text (Text)
63+import Data.Vector (Vector)
64+import qualified Data.Vector as Vector (empty, fromList, fromListN, reverse)
65+import qualified Data.Attoparsec.ByteString as A
66+import qualified Data.Attoparsec.Lazy as L
67+import qualified Data.ByteString as B
68+import qualified Data.ByteString.Unsafe as B
69+import qualified Data.ByteString.Lazy as L
70+import qualified Data.HashMap.Strict as H
71+import qualified Data.Scientific as Sci
72+import Data.Aeson.Parser.Unescape (unescapeText)
73+
74+#if MIN_VERSION_ghc_prim(0,3,1)
75+import GHC.Base (Int#, (==#), isTrue#, word2Int#, orI#, andI#)
76+import GHC.Word (Word8(W8#))
77+import qualified Data.Text.Encoding as TE
78+#endif
79+
80+#define BACKSLASH 92
81+#define CLOSE_CURLY 125
82+#define CLOSE_SQUARE 93
83+#define COMMA 44
84+#define DOUBLE_QUOTE 34
85+#define OPEN_CURLY 123
86+#define OPEN_SQUARE 91
87+#define C_0 48
88+#define C_9 57
89+#define C_A 65
90+#define C_F 70
91+#define C_a 97
92+#define C_f 102
93+#define C_n 110
94+#define C_t 116
95+
96+-- | Parse any JSON value.
97+--
98+-- The conversion of a parsed value to a Haskell value is deferred
99+-- until the Haskell value is needed. This may improve performance if
100+-- only a subset of the results of conversions are needed, but at a
101+-- cost in thunk allocation.
102+--
103+-- This function is an alias for 'value'. In aeson 0.8 and earlier, it
104+-- parsed only object or array types, in conformance with the
105+-- now-obsolete RFC 4627.
106+--
107+-- ==== Warning
108+--
109+-- If an object contains duplicate keys, only the first one will be kept.
110+-- For a more flexible alternative, see 'jsonWith'.
111+json :: Parser Value
112+json = value
113+
114+-- | Parse any JSON value.
115+--
116+-- This is a strict version of 'json' which avoids building up thunks
117+-- during parsing; it performs all conversions immediately. Prefer
118+-- this version if most of the JSON data needs to be accessed.
119+--
120+-- This function is an alias for 'value''. In aeson 0.8 and earlier, it
121+-- parsed only object or array types, in conformance with the
122+-- now-obsolete RFC 4627.
123+--
124+-- ==== Warning
125+--
126+-- If an object contains duplicate keys, only the first one will be kept.
127+-- For a more flexible alternative, see 'jsonWith''.
128+json' :: Parser Value
129+json' = value'
130+
131+-- Open recursion: object_, object_', array_, array_' are parameterized by the
132+-- toplevel Value parser to be called recursively, to keep the parameter
133+-- mkObject outside of the recursive loop for proper inlining.
134+
135+object_ :: ([(Text, Value)] -> Either String Object) -> Parser Value -> Parser Value
136+object_ mkObject val = {-# SCC "object_" #-} Object <$> objectValues mkObject jstring val
137+{-# INLINE object_ #-}
138+
139+object_' :: ([(Text, Value)] -> Either String Object) -> Parser Value -> Parser Value
140+object_' mkObject val' = {-# SCC "object_'" #-} do
141+ !vals <- objectValues mkObject jstring' val'
142+ return (Object vals)
143+ where
144+ jstring' = do
145+ !s <- jstring
146+ return s
147+{-# INLINE object_' #-}
148+
149+objectValues :: ([(Text, Value)] -> Either String Object)
150+ -> Parser Text -> Parser Value -> Parser (H.HashMap Text Value)
151+objectValues mkObject str val = do
152+ skipSpace
153+ w <- A.peekWord8'
154+ if w == CLOSE_CURLY
155+ then A.anyWord8 >> return H.empty
156+ else loop []
157+ where
158+ -- Why use acc pattern here, you may ask? because 'H.fromList' use 'unsafeInsert'
159+ -- and it's much faster because it's doing in place update to the 'HashMap'!
160+ loop acc = do
161+ k <- (str A.<?> "object key") <* skipSpace <* (char ':' A.<?> "':'")
162+ v <- (val A.<?> "object value") <* skipSpace
163+ ch <- A.satisfy (\w -> w == COMMA || w == CLOSE_CURLY) A.<?> "',' or '}'"
164+ let acc' = (k, v) : acc
165+ if ch == COMMA
166+ then skipSpace >> loop acc'
167+ else case mkObject acc' of
168+ Left err -> fail err
169+ Right obj -> pure obj
170+{-# INLINE objectValues #-}
171+
172+array_ :: Parser Value -> Parser Value
173+array_ val = {-# SCC "array_" #-} Array <$> arrayValues val
174+{-# INLINE array_ #-}
175+
176+array_' :: Parser Value -> Parser Value
177+array_' val = {-# SCC "array_'" #-} do
178+ !vals <- arrayValues val
179+ return (Array vals)
180+{-# INLINE array_' #-}
181+
182+arrayValues :: Parser Value -> Parser (Vector Value)
183+arrayValues val = do
184+ skipSpace
185+ w <- A.peekWord8'
186+ if w == CLOSE_SQUARE
187+ then A.anyWord8 >> return Vector.empty
188+ else loop [] 1
189+ where
190+ loop acc !len = do
191+ v <- (val A.<?> "json list value") <* skipSpace
192+ ch <- A.satisfy (\w -> w == COMMA || w == CLOSE_SQUARE) A.<?> "',' or ']'"
193+ if ch == COMMA
194+ then skipSpace >> loop (v:acc) (len+1)
195+ else return (Vector.reverse (Vector.fromListN len (v:acc)))
196+{-# INLINE arrayValues #-}
197+
198+-- | Parse any JSON value. Synonym of 'json'.
199+value :: Parser Value
200+value = jsonWith (pure . H.fromList)
201+
202+-- | Parse any JSON value.
203+--
204+-- This parser is parameterized by a function to construct an 'Object'
205+-- from a raw list of key-value pairs, where duplicates are preserved.
206+-- The pairs appear in __reverse order__ from the source.
207+--
208+-- ==== __Examples__
209+--
210+-- 'json' keeps only the first occurence of each key, using 'HashMap.Lazy.fromList'.
211+--
212+-- @
213+-- 'json' = 'jsonWith' ('Right' '.' 'H.fromList')
214+-- @
215+--
216+-- 'jsonLast' keeps the last occurence of each key, using
217+-- @'HashMap.Lazy.fromListWith' ('const' 'id')@.
218+--
219+-- @
220+-- 'jsonLast' = 'jsonWith' ('Right' '.' 'HashMap.Lazy.fromListWith' ('const' 'id'))
221+-- @
222+--
223+-- 'jsonAccum' keeps wraps all values in arrays to keep duplicates, using
224+-- 'fromListAccum'.
225+--
226+-- @
227+-- 'jsonAccum' = 'jsonWith' ('Right' . 'fromListAccum')
228+-- @
229+--
230+-- 'jsonNoDup' fails if any object contains duplicate keys, using 'parseListNoDup'.
231+--
232+-- @
233+-- 'jsonNoDup' = 'jsonWith' 'parseListNoDup'
234+-- @
235+jsonWith :: ([(Text, Value)] -> Either String Object) -> Parser Value
236+jsonWith mkObject = fix $ \value_ -> do
237+ skipSpace
238+ w <- A.peekWord8'
239+ case w of
240+ DOUBLE_QUOTE -> A.anyWord8 *> (String <$> jstring_)
241+ OPEN_CURLY -> A.anyWord8 *> object_ mkObject value_
242+ OPEN_SQUARE -> A.anyWord8 *> array_ value_
243+ C_f -> string "false" $> Bool False
244+ C_t -> string "true" $> Bool True
245+ C_n -> string "null" $> Null
246+ _ | w >= 48 && w <= 57 || w == 45
247+ -> Number <$> scientific
248+ | otherwise -> fail "not a valid json value"
249+{-# INLINE jsonWith #-}
250+
251+-- | Variant of 'json' which keeps only the last occurence of every key.
252+jsonLast :: Parser Value
253+jsonLast = jsonWith (Right . H.fromListWith (const id))
254+
255+-- | Variant of 'json' wrapping all object mappings in 'Array' to preserve
256+-- key-value pairs with the same keys.
257+jsonAccum :: Parser Value
258+jsonAccum = jsonWith (Right . fromListAccum)
259+
260+-- | Variant of 'json' which fails if any object contains duplicate keys.
261+jsonNoDup :: Parser Value
262+jsonNoDup = jsonWith parseListNoDup
263+
264+-- | @'fromListAccum' kvs@ is an object mapping keys to arrays containing all
265+-- associated values from the original list @kvs@.
266+--
267+-- >>> fromListAccum [("apple", Bool True), ("apple", Bool False), ("orange", Bool False)]
268+-- fromList [("apple", [Bool False, Bool True]), ("orange", [Bool False])]
269+fromListAccum :: [(Text, Value)] -> Object
270+fromListAccum =
271+ fmap (Array . Vector.fromList . ($ [])) . H.fromListWith (.) . (fmap . fmap) (:)
272+
273+-- | @'fromListNoDup' kvs@ fails if @kvs@ contains duplicate keys.
274+parseListNoDup :: [(Text, Value)] -> Either String Object
275+parseListNoDup =
276+ H.traverseWithKey unwrap . H.fromListWith (\_ _ -> Nothing) . (fmap . fmap) Just
277+ where
278+ unwrap k Nothing = Left $ "found duplicate key: " ++ show k
279+ unwrap _ (Just v) = Right v
280+
281+-- | Strict version of 'value'. Synonym of 'json''.
282+value' :: Parser Value
283+value' = jsonWith' (pure . H.fromList)
284+
285+-- | Strict version of 'jsonWith'.
286+jsonWith' :: ([(Text, Value)] -> Either String Object) -> Parser Value
287+jsonWith' mkObject = fix $ \value_ -> do
288+ skipSpace
289+ w <- A.peekWord8'
290+ case w of
291+ DOUBLE_QUOTE -> do
292+ !s <- A.anyWord8 *> jstring_
293+ return (String s)
294+ OPEN_CURLY -> A.anyWord8 *> object_' mkObject value_
295+ OPEN_SQUARE -> A.anyWord8 *> array_' value_
296+ C_f -> string "false" $> Bool False
297+ C_t -> string "true" $> Bool True
298+ C_n -> string "null" $> Null
299+ _ | w >= 48 && w <= 57 || w == 45
300+ -> do
301+ !n <- scientific
302+ return (Number n)
303+ | otherwise -> fail "not a valid json value"
304+{-# INLINE jsonWith' #-}
305+
306+-- | Variant of 'json'' which keeps only the last occurence of every key.
307+jsonLast' :: Parser Value
308+jsonLast' = jsonWith' (pure . H.fromListWith (const id))
309+
310+-- | Variant of 'json'' wrapping all object mappings in 'Array' to preserve
311+-- key-value pairs with the same keys.
312+jsonAccum' :: Parser Value
313+jsonAccum' = jsonWith' (pure . fromListAccum)
314+
315+-- | Variant of 'json'' which fails if any object contains duplicate keys.
316+jsonNoDup' :: Parser Value
317+jsonNoDup' = jsonWith' parseListNoDup
318+
319+-- | Parse a quoted JSON string.
320+jstring :: Parser Text
321+jstring = A.word8 DOUBLE_QUOTE *> jstring_
322+
323+-- | Parse a string without a leading quote.
324+jstring_ :: Parser Text
325+{-# INLINE jstring_ #-}
326+jstring_ = {-# SCC "jstring_" #-} do
327+#if MIN_VERSION_ghc_prim(0,3,1)
328+ (s, S _ escaped) <- A.runScanner startState go <* A.anyWord8
329+ -- We escape only if there are
330+ -- non-ascii (over 7bit) characters or backslash present.
331+ --
332+ -- Note: if/when text will have fast ascii -> text conversion
333+ -- (e.g. uses utf8 encoding) we can have further speedup.
334+ if isTrue# escaped
335+ then case unescapeText s of
336+ Right r -> return r
337+ Left err -> fail $ show err
338+ else return (TE.decodeUtf8 s)
339+ where
340+ startState = S 0# 0#
341+ go (S skip escaped) (W8# c)
342+ | isTrue# skip = Just (S 0# escaped')
343+ | isTrue# (w ==# 34#) = Nothing -- double quote
344+ | otherwise = Just (S skip' escaped')
345+ where
346+ w = word2Int# c
347+ skip' = w ==# 92# -- backslash
348+ escaped' = escaped
349+ `orI#` (w `andI#` 0x80# ==# 0x80#) -- c >= 0x80
350+ `orI#` skip'
351+ `orI#` (w `andI#` 0x1f# ==# w) -- c < 0x20
352+
353+data S = S Int# Int#
354+#else
355+ s <- A.scan startState go <* A.anyWord8
356+ case unescapeText s of
357+ Right r -> return r
358+ Left err -> fail $ show err
359+ where
360+ startState = False
361+ go a c
362+ | a = Just False
363+ | c == DOUBLE_QUOTE = Nothing
364+ | otherwise = let a' = c == backslash
365+ in Just a'
366+ where backslash = BACKSLASH
367+#endif
368+
369+decodeWith :: Parser Value -> (Value -> Result a) -> L.ByteString -> Maybe a
370+decodeWith p to s =
371+ case L.parse p s of
372+ L.Done _ v -> case to v of
373+ Success a -> Just a
374+ _ -> Nothing
375+ _ -> Nothing
376+{-# INLINE decodeWith #-}
377+
378+decodeStrictWith :: Parser Value -> (Value -> Result a) -> B.ByteString
379+ -> Maybe a
380+decodeStrictWith p to s =
381+ case either Error to (A.parseOnly p s) of
382+ Success a -> Just a
383+ _ -> Nothing
384+{-# INLINE decodeStrictWith #-}
385+
386+eitherDecodeWith :: Parser Value -> (Value -> IResult a) -> L.ByteString
387+ -> Either (JSONPath, String) a
388+eitherDecodeWith p to s =
389+ case L.parse p s of
390+ L.Done _ v -> case to v of
391+ ISuccess a -> Right a
392+ IError path msg -> Left (path, msg)
393+ L.Fail _ ctx msg -> Left ([], buildMsg ctx msg)
394+ where
395+ buildMsg :: [String] -> String -> String
396+ buildMsg [] msg = msg
397+ buildMsg (expectation:_) msg =
398+ msg ++ ". Expecting " ++ expectation
399+{-# INLINE eitherDecodeWith #-}
400+
401+eitherDecodeStrictWith :: Parser Value -> (Value -> IResult a) -> B.ByteString
402+ -> Either (JSONPath, String) a
403+eitherDecodeStrictWith p to s =
404+ case either (IError []) to (A.parseOnly p s) of
405+ ISuccess a -> Right a
406+ IError path msg -> Left (path, msg)
407+{-# INLINE eitherDecodeStrictWith #-}
408+
409+-- $lazy
410+--
411+-- The 'json' and 'value' parsers decouple identification from
412+-- conversion. Identification occurs immediately (so that an invalid
413+-- JSON document can be rejected as early as possible), but conversion
414+-- to a Haskell value is deferred until that value is needed.
415+--
416+-- This decoupling can be time-efficient if only a smallish subset of
417+-- elements in a JSON value need to be inspected, since the cost of
418+-- conversion is zero for uninspected elements. The trade off is an
419+-- increase in memory usage, due to allocation of thunks for values
420+-- that have not yet been converted.
421+
422+-- $strict
423+--
424+-- The 'json'' and 'value'' parsers combine identification with
425+-- conversion. They consume more CPU cycles up front, but have a
426+-- smaller memory footprint.
427+
428+-- | Parse a top-level JSON value followed by optional whitespace and
429+-- end-of-input. See also: 'json'.
430+jsonEOF :: Parser Value
431+jsonEOF = json <* skipSpace <* endOfInput
432+
433+-- | Parse a top-level JSON value followed by optional whitespace and
434+-- end-of-input. See also: 'json''.
435+jsonEOF' :: Parser Value
436+jsonEOF' = json' <* skipSpace <* endOfInput
437+
438+-- | The only valid whitespace in a JSON document is space, newline,
439+-- carriage return, and tab.
440+skipSpace :: Parser ()
441+skipSpace = A.skipWhile $ \w -> w == 0x20 || w == 0x0a || w == 0x0d || w == 0x09
442+{-# INLINE skipSpace #-}
443+
444+------------------ Copy-pasted and adapted from attoparsec ------------------
445+
446+-- A strict pair
447+data SP = SP !Integer {-# UNPACK #-}!Int
448+
449+decimal0 :: Parser Integer
450+decimal0 = do
451+ let zero = 48
452+ digits <- A.takeWhile1 isDigit_w8
453+ if B.length digits > 1 && B.unsafeHead digits == zero
454+ then fail "leading zero"
455+ else return (bsToInteger digits)
456+
457+-- | Parse a JSON number.
458+scientific :: Parser Scientific
459+scientific = do
460+ let minus = 45
461+ plus = 43
462+ sign <- A.peekWord8'
463+ let !positive = sign == plus || sign /= minus
464+ when (sign == plus || sign == minus) $
465+ void A.anyWord8
466+
467+ n <- decimal0
468+
469+ let f fracDigits = SP (B.foldl' step n fracDigits)
470+ (negate $ B.length fracDigits)
471+ step a w = a * 10 + fromIntegral (w - 48)
472+
473+ dotty <- A.peekWord8
474+ -- '.' -> ascii 46
475+ SP c e <- case dotty of
476+ Just 46 -> A.anyWord8 *> (f <$> A.takeWhile1 isDigit_w8)
477+ _ -> pure (SP n 0)
478+
479+ let !signedCoeff | positive = c
480+ | otherwise = -c
481+
482+ let littleE = 101
483+ bigE = 69
484+ (A.satisfy (\ex -> ex == littleE || ex == bigE) *>
485+ fmap (Sci.scientific signedCoeff . (e +)) (signed decimal)) <|>
486+ return (Sci.scientific signedCoeff e)
487+{-# INLINE scientific #-}
488+
489+------------------ Copy-pasted and adapted from base ------------------------
490+
491+bsToInteger :: B.ByteString -> Integer
492+bsToInteger bs
493+ | l > 40 = valInteger 10 l [ fromIntegral (w - 48) | w <- B.unpack bs ]
494+ | otherwise = bsToIntegerSimple bs
495+ where
496+ l = B.length bs
497+
498+bsToIntegerSimple :: B.ByteString -> Integer
499+bsToIntegerSimple = B.foldl' step 0 where
500+ step a b = a * 10 + fromIntegral (b - 48) -- 48 = '0'
501+
502+-- A sub-quadratic algorithm for Integer. Pairs of adjacent radix b
503+-- digits are combined into a single radix b^2 digit. This process is
504+-- repeated until we are left with a single digit. This algorithm
505+-- performs well only on large inputs, so we use the simple algorithm
506+-- for smaller inputs.
507+valInteger :: Integer -> Int -> [Integer] -> Integer
508+valInteger = go
509+ where
510+ go :: Integer -> Int -> [Integer] -> Integer
511+ go _ _ [] = 0
512+ go _ _ [d] = d
513+ go b l ds
514+ | l > 40 = b' `seq` go b' l' (combine b ds')
515+ | otherwise = valSimple b ds
516+ where
517+ -- ensure that we have an even number of digits
518+ -- before we call combine:
519+ ds' = if even l then ds else 0 : ds
520+ b' = b * b
521+ l' = (l + 1) `quot` 2
522+
523+ combine b (d1 : d2 : ds) = d `seq` (d : combine b ds)
524+ where
525+ d = d1 * b + d2
526+ combine _ [] = []
527+ combine _ [_] = errorWithoutStackTrace "this should not happen"
528+
529+-- The following algorithm is only linear for types whose Num operations
530+-- are in constant time.
531+valSimple :: Integer -> [Integer] -> Integer
532+valSimple base = go 0
533+ where
534+ go r [] = r
535+ go r (d : ds) = r' `seq` go r' ds
536+ where
537+ r' = r * base + fromIntegral d
Data/Aeson/Parser/Time.hsnew file+73
@@ -0,0 +1,73 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+module Data.Aeson.Parser.Time
4+ (
5+ run
6+ , day
7+ , localTime
8+ , timeOfDay
9+ , timeZone
10+ , utcTime
11+ , zonedTime
12+ ) where
13+
14+import Prelude.Compat
15+
16+import Data.Attoparsec.Text (Parser)
17+import Data.Text (Text)
18+import Data.Time.Calendar (Day)
19+import Data.Time.Clock (UTCTime(..))
20+import qualified Data.Aeson.Types.Internal as Aeson
21+import qualified Data.Attoparsec.Text as A
22+import qualified Data.Attoparsec.Time as T
23+import qualified Data.Time.LocalTime as Local
24+
25+-- | Run an attoparsec parser as an aeson parser.
26+run :: Parser a -> Text -> Aeson.Parser a
27+run p t = case A.parseOnly (p <* A.endOfInput) t of
28+ Left err -> fail $ "could not parse date: " ++ err
29+ Right r -> return r
30+
31+-- | Parse a date of the form @[+,-]YYYY-MM-DD@.
32+day :: Parser Day
33+day = T.day
34+{-# INLINE day #-}
35+
36+-- | Parse a time of the form @HH:MM[:SS[.SSS]]@.
37+timeOfDay :: Parser Local.TimeOfDay
38+timeOfDay = T.timeOfDay
39+{-# INLINE timeOfDay #-}
40+
41+-- | Parse a time zone, and return 'Nothing' if the offset from UTC is
42+-- zero. (This makes some speedups possible.)
43+timeZone :: Parser (Maybe Local.TimeZone)
44+timeZone = T.timeZone
45+{-# INLINE timeZone #-}
46+
47+-- | Parse a date and time, of the form @YYYY-MM-DD HH:MM[:SS[.SSS]]@.
48+-- The space may be replaced with a @T@. The number of seconds is optional
49+-- and may be followed by a fractional component.
50+localTime :: Parser Local.LocalTime
51+localTime = T.localTime
52+{-# INLINE localTime #-}
53+
54+-- | Behaves as 'zonedTime', but converts any time zone offset into a
55+-- UTC time.
56+utcTime :: Parser UTCTime
57+utcTime = T.utcTime
58+{-# INLINE utcTime #-}
59+
60+-- | Parse a date with time zone info. Acceptable formats:
61+--
62+-- @YYYY-MM-DD HH:MM Z@
63+-- @YYYY-MM-DD HH:MM:SS Z@
64+-- @YYYY-MM-DD HH:MM:SS.SSS Z@
65+--
66+-- The first space may instead be a @T@, and the second space is
67+-- optional. The @Z@ represents UTC. The @Z@ may be replaced with a
68+-- time zone offset of the form @+0000@ or @-08:00@, where the first
69+-- two digits are hours, the @:@ is optional and the second two digits
70+-- (also optional) are minutes.
71+zonedTime :: Parser Local.ZonedTime
72+zonedTime = T.zonedTime
73+{-# INLINE zonedTime #-}
Data/Aeson/Parser/Unescape.hsnew file+11
@@ -0,0 +1,11 @@
1+{-# LANGUAGE CPP #-}
2+module Data.Aeson.Parser.Unescape
3+ (
4+ unescapeText
5+ ) where
6+
7+#ifdef CFFI
8+import Data.Aeson.Parser.UnescapeFFI (unescapeText)
9+#else
10+import Data.Aeson.Parser.UnescapePure (unescapeText)
11+#endif
Data/Aeson/QQ/Simple.hsnew file+25
@@ -0,0 +1,25 @@
1+-- | Like "Data.Aeson.QQ" but without interpolation.
2+module Data.Aeson.QQ.Simple (aesonQQ) where
3+
4+import Data.Aeson
5+import qualified Data.Text as T
6+import qualified Data.Text.Encoding as TE
7+import Language.Haskell.TH
8+import Language.Haskell.TH.Quote
9+import Language.Haskell.TH.Syntax (Lift (..))
10+import Prelude ()
11+import Prelude.Compat
12+
13+aesonQQ :: QuasiQuoter
14+aesonQQ = QuasiQuoter
15+ { quoteExp = aesonExp
16+ , quotePat = const $ error "No quotePat defined for jsonQQ"
17+ , quoteType = const $ error "No quoteType defined for jsonQQ"
18+ , quoteDec = const $ error "No quoteDec defined for jsonQQ"
19+ }
20+
21+aesonExp :: String -> ExpQ
22+aesonExp txt =
23+ case eitherDecodeStrict $ TE.encodeUtf8 $ T.pack txt of
24+ Left err -> error $ "Error in aesonExp: " ++ show err
25+ Right val -> lift (val :: Value)
Data/Aeson/TH.hsnew file+1991
@@ -0,0 +1,1991 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE CPP #-}
3+{-# LANGUAGE FlexibleInstances #-}
4+{-# LANGUAGE NamedFieldPuns #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE UndecidableInstances #-}
7+#if __GLASGOW_HASKELL__ >= 800
8+-- a) THQ works on cross-compilers and unregisterised GHCs
9+-- b) may make compilation faster as no dynamic loading is ever needed (not sure about this)
10+-- c) removes one hindrance to have code inferred as SafeHaskell safe
11+{-# LANGUAGE TemplateHaskellQuotes #-}
12+#else
13+{-# LANGUAGE TemplateHaskell #-}
14+#endif
15+
16+#include "incoherent-compat.h"
17+#include "overlapping-compat.h"
18+
19+{-|
20+Module: Data.Aeson.TH
21+Copyright: (c) 2011-2016 Bryan O'Sullivan
22+ (c) 2011 MailRank, Inc.
23+License: BSD3
24+Stability: experimental
25+Portability: portable
26+
27+Functions to mechanically derive 'ToJSON' and 'FromJSON' instances. Note that
28+you need to enable the @TemplateHaskell@ language extension in order to use this
29+module.
30+
31+An example shows how instances are generated for arbitrary data types. First we
32+define a data type:
33+
34+@
35+data D a = Nullary
36+ | Unary Int
37+ | Product String Char a
38+ | Record { testOne :: Double
39+ , testTwo :: Bool
40+ , testThree :: D a
41+ } deriving Eq
42+@
43+
44+Next we derive the necessary instances. Note that we make use of the
45+feature to change record field names. In this case we drop the first 4
46+characters of every field name. We also modify constructor names by
47+lower-casing them:
48+
49+@
50+$('deriveJSON' 'defaultOptions'{'fieldLabelModifier' = 'drop' 4, 'constructorTagModifier' = map toLower} ''D)
51+@
52+
53+Now we can use the newly created instances.
54+
55+@
56+d :: D 'Int'
57+d = Record { testOne = 3.14159
58+ , testTwo = 'True'
59+ , testThree = Product \"test\" \'A\' 123
60+ }
61+@
62+
63+>>> fromJSON (toJSON d) == Success d
64+> True
65+
66+This also works for data family instances, but instead of passing in the data
67+family name (with double quotes), we pass in a data family instance
68+constructor (with a single quote):
69+
70+@
71+data family DF a
72+data instance DF Int = DF1 Int
73+ | DF2 Int Int
74+ deriving Eq
75+
76+$('deriveJSON' 'defaultOptions' 'DF1)
77+-- Alternatively, one could pass 'DF2 instead
78+@
79+
80+Please note that you can derive instances for tuples using the following syntax:
81+
82+@
83+-- FromJSON and ToJSON instances for 4-tuples.
84+$('deriveJSON' 'defaultOptions' ''(,,,))
85+@
86+
87+-}
88+module Data.Aeson.TH
89+ (
90+ -- * Encoding configuration
91+ Options(..)
92+ , SumEncoding(..)
93+ , defaultOptions
94+ , defaultTaggedObject
95+
96+ -- * FromJSON and ToJSON derivation
97+ , deriveJSON
98+ , deriveJSON1
99+ , deriveJSON2
100+
101+ , deriveToJSON
102+ , deriveToJSON1
103+ , deriveToJSON2
104+ , deriveFromJSON
105+ , deriveFromJSON1
106+ , deriveFromJSON2
107+
108+ , mkToJSON
109+ , mkLiftToJSON
110+ , mkLiftToJSON2
111+ , mkToEncoding
112+ , mkLiftToEncoding
113+ , mkLiftToEncoding2
114+ , mkParseJSON
115+ , mkLiftParseJSON
116+ , mkLiftParseJSON2
117+ ) where
118+
119+import Prelude.Compat
120+
121+import Control.Applicative ((<|>))
122+import Data.Aeson (Object, (.:), FromJSON(..), FromJSON1(..), FromJSON2(..), ToJSON(..), ToJSON1(..), ToJSON2(..))
123+import Data.Aeson.Types (Options(..), Parser, SumEncoding(..), Value(..), defaultOptions, defaultTaggedObject)
124+import Data.Aeson.Types.Internal ((<?>), JSONPathElement(Key))
125+import Data.Aeson.Types.FromJSON (parseOptionalFieldWith)
126+import Data.Aeson.Types.ToJSON (fromPairs, pair)
127+import Control.Monad (liftM2, unless, when)
128+import Data.Foldable (foldr')
129+#if MIN_VERSION_template_haskell(2,8,0) && !MIN_VERSION_template_haskell(2,10,0)
130+import Data.List (nub)
131+#endif
132+import Data.List (foldl', genericLength, intercalate, partition, union)
133+import Data.List.NonEmpty ((<|), NonEmpty((:|)))
134+import Data.Map (Map)
135+import Data.Maybe (catMaybes, fromMaybe, mapMaybe)
136+import qualified Data.Monoid as Monoid
137+import Data.Set (Set)
138+import Language.Haskell.TH hiding (Arity)
139+import Language.Haskell.TH.Datatype
140+#if MIN_VERSION_template_haskell(2,8,0) && !(MIN_VERSION_template_haskell(2,10,0))
141+import Language.Haskell.TH.Syntax (mkNameG_tc)
142+#endif
143+import Text.Printf (printf)
144+import qualified Data.Aeson.Encoding.Internal as E
145+import qualified Data.Foldable as F (all)
146+import qualified Data.HashMap.Strict as H (difference, fromList, keys, lookup, toList)
147+import qualified Data.List.NonEmpty as NE (length, reverse)
148+import qualified Data.Map as M (fromList, keys, lookup , singleton, size)
149+import qualified Data.Semigroup as Semigroup (Option(..))
150+import qualified Data.Set as Set (empty, insert, member)
151+import qualified Data.Text as T (Text, pack, unpack)
152+import qualified Data.Vector as V (unsafeIndex, null, length, create, empty)
153+import qualified Data.Vector.Mutable as VM (unsafeNew, unsafeWrite)
154+
155+--------------------------------------------------------------------------------
156+-- Convenience
157+--------------------------------------------------------------------------------
158+
159+-- | Generates both 'ToJSON' and 'FromJSON' instance declarations for the given
160+-- data type or data family instance constructor.
161+--
162+-- This is a convienience function which is equivalent to calling both
163+-- 'deriveToJSON' and 'deriveFromJSON'.
164+deriveJSON :: Options
165+ -- ^ Encoding options.
166+ -> Name
167+ -- ^ Name of the type for which to generate 'ToJSON' and 'FromJSON'
168+ -- instances.
169+ -> Q [Dec]
170+deriveJSON = deriveJSONBoth deriveToJSON deriveFromJSON
171+
172+-- | Generates both 'ToJSON1' and 'FromJSON1' instance declarations for the given
173+-- data type or data family instance constructor.
174+--
175+-- This is a convienience function which is equivalent to calling both
176+-- 'deriveToJSON1' and 'deriveFromJSON1'.
177+deriveJSON1 :: Options
178+ -- ^ Encoding options.
179+ -> Name
180+ -- ^ Name of the type for which to generate 'ToJSON1' and 'FromJSON1'
181+ -- instances.
182+ -> Q [Dec]
183+deriveJSON1 = deriveJSONBoth deriveToJSON1 deriveFromJSON1
184+
185+-- | Generates both 'ToJSON2' and 'FromJSON2' instance declarations for the given
186+-- data type or data family instance constructor.
187+--
188+-- This is a convienience function which is equivalent to calling both
189+-- 'deriveToJSON2' and 'deriveFromJSON2'.
190+deriveJSON2 :: Options
191+ -- ^ Encoding options.
192+ -> Name
193+ -- ^ Name of the type for which to generate 'ToJSON2' and 'FromJSON2'
194+ -- instances.
195+ -> Q [Dec]
196+deriveJSON2 = deriveJSONBoth deriveToJSON2 deriveFromJSON2
197+
198+--------------------------------------------------------------------------------
199+-- ToJSON
200+--------------------------------------------------------------------------------
201+
202+{-
203+TODO: Don't constrain phantom type variables.
204+
205+data Foo a = Foo Int
206+instance (ToJSON a) ⇒ ToJSON Foo where ...
207+
208+The above (ToJSON a) constraint is not necessary and perhaps undesirable.
209+-}
210+
211+-- | Generates a 'ToJSON' instance declaration for the given data type or
212+-- data family instance constructor.
213+deriveToJSON :: Options
214+ -- ^ Encoding options.
215+ -> Name
216+ -- ^ Name of the type for which to generate a 'ToJSON' instance
217+ -- declaration.
218+ -> Q [Dec]
219+deriveToJSON = deriveToJSONCommon toJSONClass
220+
221+-- | Generates a 'ToJSON1' instance declaration for the given data type or
222+-- data family instance constructor.
223+deriveToJSON1 :: Options
224+ -- ^ Encoding options.
225+ -> Name
226+ -- ^ Name of the type for which to generate a 'ToJSON1' instance
227+ -- declaration.
228+ -> Q [Dec]
229+deriveToJSON1 = deriveToJSONCommon toJSON1Class
230+
231+-- | Generates a 'ToJSON2' instance declaration for the given data type or
232+-- data family instance constructor.
233+deriveToJSON2 :: Options
234+ -- ^ Encoding options.
235+ -> Name
236+ -- ^ Name of the type for which to generate a 'ToJSON2' instance
237+ -- declaration.
238+ -> Q [Dec]
239+deriveToJSON2 = deriveToJSONCommon toJSON2Class
240+
241+deriveToJSONCommon :: JSONClass
242+ -- ^ The ToJSON variant being derived.
243+ -> Options
244+ -- ^ Encoding options.
245+ -> Name
246+ -- ^ Name of the type for which to generate an instance.
247+ -> Q [Dec]
248+deriveToJSONCommon = deriveJSONClass [ (ToJSON, \jc _ -> consToValue Value jc)
249+ , (ToEncoding, \jc _ -> consToValue Encoding jc)
250+ ]
251+
252+-- | Generates a lambda expression which encodes the given data type or
253+-- data family instance constructor as a 'Value'.
254+mkToJSON :: Options -- ^ Encoding options.
255+ -> Name -- ^ Name of the type to encode.
256+ -> Q Exp
257+mkToJSON = mkToJSONCommon toJSONClass
258+
259+-- | Generates a lambda expression which encodes the given data type or
260+-- data family instance constructor as a 'Value' by using the given encoding
261+-- function on occurrences of the last type parameter.
262+mkLiftToJSON :: Options -- ^ Encoding options.
263+ -> Name -- ^ Name of the type to encode.
264+ -> Q Exp
265+mkLiftToJSON = mkToJSONCommon toJSON1Class
266+
267+-- | Generates a lambda expression which encodes the given data type or
268+-- data family instance constructor as a 'Value' by using the given encoding
269+-- functions on occurrences of the last two type parameters.
270+mkLiftToJSON2 :: Options -- ^ Encoding options.
271+ -> Name -- ^ Name of the type to encode.
272+ -> Q Exp
273+mkLiftToJSON2 = mkToJSONCommon toJSON2Class
274+
275+mkToJSONCommon :: JSONClass -- ^ Which class's method is being derived.
276+ -> Options -- ^ Encoding options.
277+ -> Name -- ^ Name of the encoded type.
278+ -> Q Exp
279+mkToJSONCommon = mkFunCommon (\jc _ -> consToValue Value jc)
280+
281+-- | Generates a lambda expression which encodes the given data type or
282+-- data family instance constructor as a JSON string.
283+mkToEncoding :: Options -- ^ Encoding options.
284+ -> Name -- ^ Name of the type to encode.
285+ -> Q Exp
286+mkToEncoding = mkToEncodingCommon toJSONClass
287+
288+-- | Generates a lambda expression which encodes the given data type or
289+-- data family instance constructor as a JSON string by using the given encoding
290+-- function on occurrences of the last type parameter.
291+mkLiftToEncoding :: Options -- ^ Encoding options.
292+ -> Name -- ^ Name of the type to encode.
293+ -> Q Exp
294+mkLiftToEncoding = mkToEncodingCommon toJSON1Class
295+
296+-- | Generates a lambda expression which encodes the given data type or
297+-- data family instance constructor as a JSON string by using the given encoding
298+-- functions on occurrences of the last two type parameters.
299+mkLiftToEncoding2 :: Options -- ^ Encoding options.
300+ -> Name -- ^ Name of the type to encode.
301+ -> Q Exp
302+mkLiftToEncoding2 = mkToEncodingCommon toJSON2Class
303+
304+mkToEncodingCommon :: JSONClass -- ^ Which class's method is being derived.
305+ -> Options -- ^ Encoding options.
306+ -> Name -- ^ Name of the encoded type.
307+ -> Q Exp
308+mkToEncodingCommon = mkFunCommon (\jc _ -> consToValue Encoding jc)
309+
310+-- | Helper function used by both 'deriveToJSON' and 'mkToJSON'. Generates
311+-- code to generate a 'Value' or 'Encoding' of a number of constructors. All
312+-- constructors must be from the same type.
313+consToValue :: ToJSONFun
314+ -- ^ The method ('toJSON' or 'toEncoding') being derived.
315+ -> JSONClass
316+ -- ^ The ToJSON variant being derived.
317+ -> Options
318+ -- ^ Encoding options.
319+ -> [Type]
320+ -- ^ The types from the data type/data family instance declaration
321+ -> [ConstructorInfo]
322+ -- ^ Constructors for which to generate JSON generating code.
323+ -> Q Exp
324+
325+consToValue _ _ _ _ [] = error $ "Data.Aeson.TH.consToValue: "
326+ ++ "Not a single constructor given!"
327+
328+consToValue target jc opts instTys cons = do
329+ value <- newName "value"
330+ tjs <- newNameList "_tj" $ arityInt jc
331+ tjls <- newNameList "_tjl" $ arityInt jc
332+ let zippedTJs = zip tjs tjls
333+ interleavedTJs = interleave tjs tjls
334+ lastTyVars = map varTToName $ drop (length instTys - arityInt jc) instTys
335+ tvMap = M.fromList $ zip lastTyVars zippedTJs
336+ lamE (map varP $ interleavedTJs ++ [value]) $
337+ caseE (varE value) (matches tvMap)
338+ where
339+ matches tvMap = case cons of
340+ -- A single constructor is directly encoded. The constructor itself may be
341+ -- forgotten.
342+ [con] | not (tagSingleConstructors opts) -> [argsToValue target jc tvMap opts False con]
343+ _ | allNullaryToStringTag opts && all isNullary cons ->
344+ [ match (conP conName []) (normalB $ conStr target opts conName) []
345+ | con <- cons
346+ , let conName = constructorName con
347+ ]
348+ | otherwise -> [argsToValue target jc tvMap opts True con | con <- cons]
349+
350+-- | Name of the constructor as a quoted 'Value' or 'Encoding'.
351+conStr :: ToJSONFun -> Options -> Name -> Q Exp
352+conStr Value opts = appE [|String|] . conTxt opts
353+conStr Encoding opts = appE [|E.text|] . conTxt opts
354+
355+-- | Name of the constructor as a quoted 'Text'.
356+conTxt :: Options -> Name -> Q Exp
357+conTxt opts = appE [|T.pack|] . stringE . conString opts
358+
359+-- | Name of the constructor.
360+conString :: Options -> Name -> String
361+conString opts = constructorTagModifier opts . nameBase
362+
363+-- | If constructor is nullary.
364+isNullary :: ConstructorInfo -> Bool
365+isNullary ConstructorInfo { constructorVariant = NormalConstructor
366+ , constructorFields = tys } = null tys
367+isNullary _ = False
368+
369+-- | Wrap fields of a non-record constructor. See 'sumToValue'.
370+opaqueSumToValue :: ToJSONFun -> Options -> Bool -> Bool -> Name -> ExpQ -> ExpQ
371+opaqueSumToValue target opts multiCons nullary conName value =
372+ sumToValue target opts multiCons nullary conName
373+ value
374+ pairs
375+ where
376+ pairs contentsFieldName = pairE contentsFieldName value
377+
378+-- | Wrap fields of a record constructor. See 'sumToValue'.
379+recordSumToValue :: ToJSONFun -> Options -> Bool -> Bool -> Name -> ExpQ -> ExpQ
380+recordSumToValue target opts multiCons nullary conName pairs =
381+ sumToValue target opts multiCons nullary conName
382+ (fromPairsE pairs)
383+ (const pairs)
384+
385+-- | Wrap fields of a constructor.
386+sumToValue
387+ :: ToJSONFun
388+ -- ^ The method being derived.
389+ -> Options
390+ -- ^ Deriving options.
391+ -> Bool
392+ -- ^ Does this type have multiple constructors.
393+ -> Bool
394+ -- ^ Is this constructor nullary.
395+ -> Name
396+ -- ^ Constructor name.
397+ -> ExpQ
398+ -- ^ Fields of the constructor as a 'Value' or 'Encoding'.
399+ -> (String -> ExpQ)
400+ -- ^ Representation of an 'Object' fragment used for the 'TaggedObject'
401+ -- variant; of type @[(Text,Value)]@ or @[Encoding]@, depending on the method
402+ -- being derived.
403+ --
404+ -- - For non-records, produces a pair @"contentsFieldName":value@,
405+ -- given a @contentsFieldName@ as an argument. See 'opaqueSumToValue'.
406+ -- - For records, produces the list of pairs corresponding to fields of the
407+ -- encoded value (ignores the argument). See 'recordSumToValue'.
408+ -> ExpQ
409+sumToValue target opts multiCons nullary conName value pairs
410+ | multiCons =
411+ case sumEncoding opts of
412+ TwoElemArray ->
413+ array target [conStr target opts conName, value]
414+ TaggedObject{tagFieldName, contentsFieldName} ->
415+ -- TODO: Maybe throw an error in case
416+ -- tagFieldName overwrites a field in pairs.
417+ let tag = pairE tagFieldName (conStr target opts conName)
418+ content = pairs contentsFieldName
419+ in fromPairsE $
420+ if nullary then tag else infixApp tag [|(Monoid.<>)|] content
421+ ObjectWithSingleField ->
422+ objectE [(conString opts conName, value)]
423+ UntaggedValue | nullary -> conStr target opts conName
424+ UntaggedValue -> value
425+ | otherwise = value
426+
427+-- | Generates code to generate the JSON encoding of a single constructor.
428+argsToValue :: ToJSONFun -> JSONClass -> TyVarMap -> Options -> Bool -> ConstructorInfo -> Q Match
429+
430+-- Polyadic constructors with special case for unary constructors.
431+argsToValue target jc tvMap opts multiCons
432+ ConstructorInfo { constructorName = conName
433+ , constructorVariant = NormalConstructor
434+ , constructorFields = argTys } = do
435+ argTys' <- mapM resolveTypeSynonyms argTys
436+ let len = length argTys'
437+ args <- newNameList "arg" len
438+ let js = case [ dispatchToJSON target jc conName tvMap argTy
439+ `appE` varE arg
440+ | (arg, argTy) <- zip args argTys'
441+ ] of
442+ -- Single argument is directly converted.
443+ [e] -> e
444+ -- Zero and multiple arguments are converted to a JSON array.
445+ es -> array target es
446+
447+ match (conP conName $ map varP args)
448+ (normalB $ opaqueSumToValue target opts multiCons (null argTys') conName js)
449+ []
450+
451+-- Records.
452+argsToValue target jc tvMap opts multiCons
453+ info@ConstructorInfo { constructorName = conName
454+ , constructorVariant = RecordConstructor fields
455+ , constructorFields = argTys } =
456+ case (unwrapUnaryRecords opts, not multiCons, argTys) of
457+ (True,True,[_]) -> argsToValue target jc tvMap opts multiCons
458+ (info{constructorVariant = NormalConstructor})
459+ _ -> do
460+ argTys' <- mapM resolveTypeSynonyms argTys
461+ args <- newNameList "arg" $ length argTys'
462+ let pairs | omitNothingFields opts = infixApp maybeFields
463+ [|(Monoid.<>)|]
464+ restFields
465+ | otherwise = mconcatE (map pureToPair argCons)
466+
467+ argCons = zip3 (map varE args) argTys' fields
468+
469+ maybeFields = mconcatE (map maybeToPair maybes)
470+
471+ restFields = mconcatE (map pureToPair rest)
472+
473+ (maybes0, rest0) = partition isMaybe argCons
474+ (options, rest) = partition isOption rest0
475+ maybes = maybes0 ++ map optionToMaybe options
476+
477+ maybeToPair = toPairLifted True
478+ pureToPair = toPairLifted False
479+
480+ toPairLifted lifted (arg, argTy, field) =
481+ let toValue = dispatchToJSON target jc conName tvMap argTy
482+ fieldName = fieldLabel opts field
483+ e arg' = pairE fieldName (toValue `appE` arg')
484+ in if lifted
485+ then do
486+ x <- newName "x"
487+ [|maybe mempty|] `appE` lam1E (varP x) (e (varE x)) `appE` arg
488+ else e arg
489+
490+ match (conP conName $ map varP args)
491+ (normalB $ recordSumToValue target opts multiCons (null argTys) conName pairs)
492+ []
493+
494+-- Infix constructors.
495+argsToValue target jc tvMap opts multiCons
496+ ConstructorInfo { constructorName = conName
497+ , constructorVariant = InfixConstructor
498+ , constructorFields = argTys } = do
499+ [alTy, arTy] <- mapM resolveTypeSynonyms argTys
500+ al <- newName "argL"
501+ ar <- newName "argR"
502+ match (infixP (varP al) conName (varP ar))
503+ ( normalB
504+ $ opaqueSumToValue target opts multiCons False conName
505+ $ array target
506+ [ dispatchToJSON target jc conName tvMap aTy
507+ `appE` varE a
508+ | (a, aTy) <- [(al,alTy), (ar,arTy)]
509+ ]
510+ )
511+ []
512+
513+isMaybe :: (a, Type, b) -> Bool
514+isMaybe (_, AppT (ConT t) _, _) = t == ''Maybe
515+isMaybe _ = False
516+
517+isOption :: (a, Type, b) -> Bool
518+isOption (_, AppT (ConT t) _, _) = t == ''Semigroup.Option
519+isOption _ = False
520+
521+optionToMaybe :: (ExpQ, b, c) -> (ExpQ, b, c)
522+optionToMaybe (a, b, c) = ([|Semigroup.getOption|] `appE` a, b, c)
523+
524+(<^>) :: ExpQ -> ExpQ -> ExpQ
525+(<^>) a b = infixApp a [|(E.><)|] b
526+infixr 6 <^>
527+
528+(<%>) :: ExpQ -> ExpQ -> ExpQ
529+(<%>) a b = a <^> [|E.comma|] <^> b
530+infixr 4 <%>
531+
532+-- | Wrap a list of quoted 'Value's in a quoted 'Array' (of type 'Value').
533+array :: ToJSONFun -> [ExpQ] -> ExpQ
534+array Encoding [] = [|E.emptyArray_|]
535+array Value [] = [|Array V.empty|]
536+array Encoding es = [|E.wrapArray|] `appE` foldr1 (<%>) es
537+array Value es = do
538+ mv <- newName "mv"
539+ let newMV = bindS (varP mv)
540+ ([|VM.unsafeNew|] `appE`
541+ litE (integerL $ fromIntegral (length es)))
542+ stmts = [ noBindS $
543+ [|VM.unsafeWrite|] `appE`
544+ varE mv `appE`
545+ litE (integerL ix) `appE`
546+ e
547+ | (ix, e) <- zip [(0::Integer)..] es
548+ ]
549+ ret = noBindS $ [|return|] `appE` varE mv
550+ [|Array|] `appE`
551+ (varE 'V.create `appE`
552+ doE (newMV:stmts++[ret]))
553+
554+-- | Wrap an associative list of keys and quoted values in a quoted 'Object'.
555+objectE :: [(String, ExpQ)] -> ExpQ
556+objectE = fromPairsE . mconcatE . fmap (uncurry pairE)
557+
558+-- | 'mconcat' a list of fixed length.
559+--
560+-- > mconcatE [ [|x|], [|y|], [|z|] ] = [| x <> (y <> z) |]
561+mconcatE :: [ExpQ] -> ExpQ
562+mconcatE [] = [|Monoid.mempty|]
563+mconcatE [x] = x
564+mconcatE (x : xs) = infixApp x [|(Monoid.<>)|] (mconcatE xs)
565+
566+fromPairsE :: ExpQ -> ExpQ
567+fromPairsE = ([|fromPairs|] `appE`)
568+
569+-- | Create (an encoding of) a key-value pair.
570+--
571+-- > pairE "k" [|v|] = [|pair "k" v|]
572+pairE :: String -> ExpQ -> ExpQ
573+pairE k v = [|pair k|] `appE` v
574+
575+--------------------------------------------------------------------------------
576+-- FromJSON
577+--------------------------------------------------------------------------------
578+
579+-- | Generates a 'FromJSON' instance declaration for the given data type or
580+-- data family instance constructor.
581+deriveFromJSON :: Options
582+ -- ^ Encoding options.
583+ -> Name
584+ -- ^ Name of the type for which to generate a 'FromJSON' instance
585+ -- declaration.
586+ -> Q [Dec]
587+deriveFromJSON = deriveFromJSONCommon fromJSONClass
588+
589+-- | Generates a 'FromJSON1' instance declaration for the given data type or
590+-- data family instance constructor.
591+deriveFromJSON1 :: Options
592+ -- ^ Encoding options.
593+ -> Name
594+ -- ^ Name of the type for which to generate a 'FromJSON1' instance
595+ -- declaration.
596+ -> Q [Dec]
597+deriveFromJSON1 = deriveFromJSONCommon fromJSON1Class
598+
599+-- | Generates a 'FromJSON2' instance declaration for the given data type or
600+-- data family instance constructor.
601+deriveFromJSON2 :: Options
602+ -- ^ Encoding options.
603+ -> Name
604+ -- ^ Name of the type for which to generate a 'FromJSON3' instance
605+ -- declaration.
606+ -> Q [Dec]
607+deriveFromJSON2 = deriveFromJSONCommon fromJSON2Class
608+
609+deriveFromJSONCommon :: JSONClass
610+ -- ^ The FromJSON variant being derived.
611+ -> Options
612+ -- ^ Encoding options.
613+ -> Name
614+ -- ^ Name of the type for which to generate an instance.
615+ -- declaration.
616+ -> Q [Dec]
617+deriveFromJSONCommon = deriveJSONClass [(ParseJSON, consFromJSON)]
618+
619+-- | Generates a lambda expression which parses the JSON encoding of the given
620+-- data type or data family instance constructor.
621+mkParseJSON :: Options -- ^ Encoding options.
622+ -> Name -- ^ Name of the encoded type.
623+ -> Q Exp
624+mkParseJSON = mkParseJSONCommon fromJSONClass
625+
626+-- | Generates a lambda expression which parses the JSON encoding of the given
627+-- data type or data family instance constructor by using the given parsing
628+-- function on occurrences of the last type parameter.
629+mkLiftParseJSON :: Options -- ^ Encoding options.
630+ -> Name -- ^ Name of the encoded type.
631+ -> Q Exp
632+mkLiftParseJSON = mkParseJSONCommon fromJSON1Class
633+
634+-- | Generates a lambda expression which parses the JSON encoding of the given
635+-- data type or data family instance constructor by using the given parsing
636+-- functions on occurrences of the last two type parameters.
637+mkLiftParseJSON2 :: Options -- ^ Encoding options.
638+ -> Name -- ^ Name of the encoded type.
639+ -> Q Exp
640+mkLiftParseJSON2 = mkParseJSONCommon fromJSON2Class
641+
642+mkParseJSONCommon :: JSONClass -- ^ Which class's method is being derived.
643+ -> Options -- ^ Encoding options.
644+ -> Name -- ^ Name of the encoded type.
645+ -> Q Exp
646+mkParseJSONCommon = mkFunCommon consFromJSON
647+
648+-- | Helper function used by both 'deriveFromJSON' and 'mkParseJSON'. Generates
649+-- code to parse the JSON encoding of a number of constructors. All constructors
650+-- must be from the same type.
651+consFromJSON :: JSONClass
652+ -- ^ The FromJSON variant being derived.
653+ -> Name
654+ -- ^ Name of the type to which the constructors belong.
655+ -> Options
656+ -- ^ Encoding options
657+ -> [Type]
658+ -- ^ The types from the data type/data family instance declaration
659+ -> [ConstructorInfo]
660+ -- ^ Constructors for which to generate JSON parsing code.
661+ -> Q Exp
662+
663+consFromJSON _ _ _ _ [] = error $ "Data.Aeson.TH.consFromJSON: "
664+ ++ "Not a single constructor given!"
665+
666+consFromJSON jc tName opts instTys cons = do
667+ value <- newName "value"
668+ pjs <- newNameList "_pj" $ arityInt jc
669+ pjls <- newNameList "_pjl" $ arityInt jc
670+ let zippedPJs = zip pjs pjls
671+ interleavedPJs = interleave pjs pjls
672+ lastTyVars = map varTToName $ drop (length instTys - arityInt jc) instTys
673+ tvMap = M.fromList $ zip lastTyVars zippedPJs
674+ lamE (map varP $ interleavedPJs ++ [value]) $ lamExpr value tvMap
675+
676+ where
677+ checkExi tvMap con = checkExistentialContext jc tvMap
678+ (constructorContext con)
679+ (constructorName con)
680+
681+ lamExpr value tvMap = case cons of
682+ [con]
683+ | not (tagSingleConstructors opts)
684+ -> checkExi tvMap con $ parseArgs jc tvMap tName opts con (Right value)
685+ _ | sumEncoding opts == UntaggedValue
686+ -> parseUntaggedValue tvMap cons value
687+ | otherwise
688+ -> caseE (varE value) $
689+ if allNullaryToStringTag opts && all isNullary cons
690+ then allNullaryMatches
691+ else mixedMatches tvMap
692+
693+ allNullaryMatches =
694+ [ do txt <- newName "txt"
695+ match (conP 'String [varP txt])
696+ (guardedB $
697+ [ liftM2 (,) (normalG $
698+ infixApp (varE txt)
699+ [|(==)|]
700+ (conTxt opts conName)
701+ )
702+ ([|pure|] `appE` conE conName)
703+ | con <- cons
704+ , let conName = constructorName con
705+ ]
706+ ++
707+ [ liftM2 (,)
708+ (normalG [|otherwise|])
709+ ( [|noMatchFail|]
710+ `appE` litE (stringL $ show tName)
711+ `appE` ([|T.unpack|] `appE` varE txt)
712+ )
713+ ]
714+ )
715+ []
716+ , do other <- newName "other"
717+ match (varP other)
718+ (normalB $ [|noStringFail|]
719+ `appE` litE (stringL $ show tName)
720+ `appE` ([|valueConName|] `appE` varE other)
721+ )
722+ []
723+ ]
724+
725+ mixedMatches tvMap =
726+ case sumEncoding opts of
727+ TaggedObject {tagFieldName, contentsFieldName} ->
728+ parseObject $ parseTaggedObject tvMap tagFieldName contentsFieldName
729+ UntaggedValue -> error "UntaggedValue: Should be handled already"
730+ ObjectWithSingleField ->
731+ parseObject $ parseObjectWithSingleField tvMap
732+ TwoElemArray ->
733+ [ do arr <- newName "array"
734+ match (conP 'Array [varP arr])
735+ (guardedB
736+ [ liftM2 (,) (normalG $ infixApp ([|V.length|] `appE` varE arr)
737+ [|(==)|]
738+ (litE $ integerL 2))
739+ (parse2ElemArray tvMap arr)
740+ , liftM2 (,) (normalG [|otherwise|])
741+ ([|not2ElemArray|]
742+ `appE` litE (stringL $ show tName)
743+ `appE` ([|V.length|] `appE` varE arr))
744+ ]
745+ )
746+ []
747+ , do other <- newName "other"
748+ match (varP other)
749+ ( normalB
750+ $ [|noArrayFail|]
751+ `appE` litE (stringL $ show tName)
752+ `appE` ([|valueConName|] `appE` varE other)
753+ )
754+ []
755+ ]
756+
757+ parseObject f =
758+ [ do obj <- newName "obj"
759+ match (conP 'Object [varP obj]) (normalB $ f obj) []
760+ , do other <- newName "other"
761+ match (varP other)
762+ ( normalB
763+ $ [|noObjectFail|]
764+ `appE` litE (stringL $ show tName)
765+ `appE` ([|valueConName|] `appE` varE other)
766+ )
767+ []
768+ ]
769+
770+ parseTaggedObject tvMap typFieldName valFieldName obj = do
771+ conKey <- newName "conKey"
772+ doE [ bindS (varP conKey)
773+ (infixApp (varE obj)
774+ [|(.:)|]
775+ ([|T.pack|] `appE` stringE typFieldName))
776+ , noBindS $ parseContents tvMap conKey (Left (valFieldName, obj)) 'conNotFoundFailTaggedObject
777+ ]
778+
779+ parseUntaggedValue tvMap cons' conVal =
780+ foldr1 (\e e' -> infixApp e [|(<|>)|] e')
781+ (map (\x -> parseValue tvMap x conVal) cons')
782+
783+ parseValue _tvMap
784+ ConstructorInfo { constructorName = conName
785+ , constructorVariant = NormalConstructor
786+ , constructorFields = [] }
787+ conVal = do
788+ str <- newName "str"
789+ caseE (varE conVal)
790+ [ match (conP 'String [varP str])
791+ (guardedB
792+ [ liftM2 (,) (normalG $ infixApp (varE str) [|(==)|] (conTxt opts conName)
793+ )
794+ ([|pure|] `appE` conE conName)
795+ ]
796+ )
797+ []
798+ , matchFailed tName conName "String"
799+ ]
800+ parseValue tvMap con conVal =
801+ checkExi tvMap con $ parseArgs jc tvMap tName opts con (Right conVal)
802+
803+
804+ parse2ElemArray tvMap arr = do
805+ conKey <- newName "conKey"
806+ conVal <- newName "conVal"
807+ let letIx n ix =
808+ valD (varP n)
809+ (normalB ([|V.unsafeIndex|] `appE`
810+ varE arr `appE`
811+ litE (integerL ix)))
812+ []
813+ letE [ letIx conKey 0
814+ , letIx conVal 1
815+ ]
816+ (caseE (varE conKey)
817+ [ do txt <- newName "txt"
818+ match (conP 'String [varP txt])
819+ (normalB $ parseContents tvMap
820+ txt
821+ (Right conVal)
822+ 'conNotFoundFail2ElemArray
823+ )
824+ []
825+ , do other <- newName "other"
826+ match (varP other)
827+ ( normalB
828+ $ [|firstElemNoStringFail|]
829+ `appE` litE (stringL $ show tName)
830+ `appE` ([|valueConName|] `appE` varE other)
831+ )
832+ []
833+ ]
834+ )
835+
836+ parseObjectWithSingleField tvMap obj = do
837+ conKey <- newName "conKey"
838+ conVal <- newName "conVal"
839+ caseE ([e|H.toList|] `appE` varE obj)
840+ [ match (listP [tupP [varP conKey, varP conVal]])
841+ (normalB $ parseContents tvMap conKey (Right conVal) 'conNotFoundFailObjectSingleField)
842+ []
843+ , do other <- newName "other"
844+ match (varP other)
845+ (normalB $ [|wrongPairCountFail|]
846+ `appE` litE (stringL $ show tName)
847+ `appE` ([|show . length|] `appE` varE other)
848+ )
849+ []
850+ ]
851+
852+ parseContents tvMap conKey contents errorFun =
853+ caseE (varE conKey)
854+ [ match wildP
855+ ( guardedB $
856+ [ do g <- normalG $ infixApp (varE conKey)
857+ [|(==)|]
858+ ([|T.pack|] `appE`
859+ conNameExp opts con)
860+ e <- checkExi tvMap con $
861+ parseArgs jc tvMap tName opts con contents
862+ return (g, e)
863+ | con <- cons
864+ ]
865+ ++
866+ [ liftM2 (,)
867+ (normalG [e|otherwise|])
868+ ( varE errorFun
869+ `appE` litE (stringL $ show tName)
870+ `appE` listE (map ( litE
871+ . stringL
872+ . constructorTagModifier opts
873+ . nameBase
874+ . constructorName
875+ ) cons
876+ )
877+ `appE` ([|T.unpack|] `appE` varE conKey)
878+ )
879+ ]
880+ )
881+ []
882+ ]
883+
884+parseNullaryMatches :: Name -> Name -> [Q Match]
885+parseNullaryMatches tName conName =
886+ [ do arr <- newName "arr"
887+ match (conP 'Array [varP arr])
888+ (guardedB
889+ [ liftM2 (,) (normalG $ [|V.null|] `appE` varE arr)
890+ ([|pure|] `appE` conE conName)
891+ , liftM2 (,) (normalG [|otherwise|])
892+ (parseTypeMismatch tName conName
893+ (litE $ stringL "an empty Array")
894+ (infixApp (litE $ stringL "Array of length ")
895+ [|(++)|]
896+ ([|show . V.length|] `appE` varE arr)
897+ )
898+ )
899+ ]
900+ )
901+ []
902+ , matchFailed tName conName "Array"
903+ ]
904+
905+parseUnaryMatches :: JSONClass -> TyVarMap -> Type -> Name -> [Q Match]
906+parseUnaryMatches jc tvMap argTy conName =
907+ [ do arg <- newName "arg"
908+ match (varP arg)
909+ ( normalB $ infixApp (conE conName)
910+ [|(<$>)|]
911+ (dispatchParseJSON jc conName tvMap argTy
912+ `appE` varE arg)
913+ )
914+ []
915+ ]
916+
917+parseRecord :: JSONClass
918+ -> TyVarMap
919+ -> [Type]
920+ -> Options
921+ -> Name
922+ -> Name
923+ -> [Name]
924+ -> Name
925+ -> Bool
926+ -> ExpQ
927+parseRecord jc tvMap argTys opts tName conName fields obj inTaggedObject =
928+ (if rejectUnknownFields opts
929+ then infixApp checkUnknownRecords [|(>>)|]
930+ else id) $
931+ foldl' (\a b -> infixApp a [|(<*>)|] b)
932+ (infixApp (conE conName) [|(<$>)|] x)
933+ xs
934+ where
935+ tagFieldNameAppender =
936+ if inTaggedObject then (tagFieldName (sumEncoding opts) :) else id
937+ knownFields = appE [|H.fromList|] $ listE $
938+ map (\knownName -> tupE [appE [|T.pack|] $ litE $ stringL knownName, [|()|]]) $
939+ tagFieldNameAppender $ map nameBase fields
940+ checkUnknownRecords =
941+ caseE (appE [|H.keys|] $ infixApp (varE obj) [|H.difference|] knownFields)
942+ [ match (listP []) (normalB [|return ()|]) []
943+ , newName "unknownFields" >>=
944+ \unknownFields -> match (varP unknownFields)
945+ (normalB $ appE [|fail|] $ infixApp
946+ (litE (stringL "Unknown fields: "))
947+ [|(++)|]
948+ (appE [|show|] (varE unknownFields)))
949+ []
950+ ]
951+ x:xs = [ [|lookupField|]
952+ `appE` dispatchParseJSON jc conName tvMap argTy
953+ `appE` litE (stringL $ show tName)
954+ `appE` litE (stringL $ constructorTagModifier opts $ nameBase conName)
955+ `appE` varE obj
956+ `appE` ( [|T.pack|] `appE` stringE (fieldLabel opts field)
957+ )
958+ | (field, argTy) <- zip fields argTys
959+ ]
960+
961+getValField :: Name -> String -> [MatchQ] -> Q Exp
962+getValField obj valFieldName matches = do
963+ val <- newName "val"
964+ doE [ bindS (varP val) $ infixApp (varE obj)
965+ [|(.:)|]
966+ ([|T.pack|] `appE`
967+ litE (stringL valFieldName))
968+ , noBindS $ caseE (varE val) matches
969+ ]
970+
971+matchCases :: Either (String, Name) Name -> [MatchQ] -> Q Exp
972+matchCases (Left (valFieldName, obj)) = getValField obj valFieldName
973+matchCases (Right valName) = caseE (varE valName)
974+
975+-- | Generates code to parse the JSON encoding of a single constructor.
976+parseArgs :: JSONClass -- ^ The FromJSON variant being derived.
977+ -> TyVarMap -- ^ Maps the last type variables to their decoding
978+ -- function arguments.
979+ -> Name -- ^ Name of the type to which the constructor belongs.
980+ -> Options -- ^ Encoding options.
981+ -> ConstructorInfo -- ^ Constructor for which to generate JSON parsing code.
982+ -> Either (String, Name) Name -- ^ Left (valFieldName, objName) or
983+ -- Right valName
984+ -> Q Exp
985+-- Nullary constructors.
986+parseArgs _ _ _ _
987+ ConstructorInfo { constructorName = conName
988+ , constructorVariant = NormalConstructor
989+ , constructorFields = [] }
990+ (Left _) =
991+ [|pure|] `appE` conE conName
992+parseArgs _ _ tName _
993+ ConstructorInfo { constructorName = conName
994+ , constructorVariant = NormalConstructor
995+ , constructorFields = [] }
996+ (Right valName) =
997+ caseE (varE valName) $ parseNullaryMatches tName conName
998+
999+-- Unary constructors.
1000+parseArgs jc tvMap _ _
1001+ ConstructorInfo { constructorName = conName
1002+ , constructorVariant = NormalConstructor
1003+ , constructorFields = [argTy] }
1004+ contents = do
1005+ argTy' <- resolveTypeSynonyms argTy
1006+ matchCases contents $ parseUnaryMatches jc tvMap argTy' conName
1007+
1008+-- Polyadic constructors.
1009+parseArgs jc tvMap tName _
1010+ ConstructorInfo { constructorName = conName
1011+ , constructorVariant = NormalConstructor
1012+ , constructorFields = argTys }
1013+ contents = do
1014+ argTys' <- mapM resolveTypeSynonyms argTys
1015+ let len = genericLength argTys'
1016+ matchCases contents $ parseProduct jc tvMap argTys' tName conName len
1017+
1018+-- Records.
1019+parseArgs jc tvMap tName opts
1020+ ConstructorInfo { constructorName = conName
1021+ , constructorVariant = RecordConstructor fields
1022+ , constructorFields = argTys }
1023+ (Left (_, obj)) = do
1024+ argTys' <- mapM resolveTypeSynonyms argTys
1025+ parseRecord jc tvMap argTys' opts tName conName fields obj True
1026+parseArgs jc tvMap tName opts
1027+ info@ConstructorInfo { constructorName = conName
1028+ , constructorVariant = RecordConstructor fields
1029+ , constructorFields = argTys }
1030+ (Right valName) =
1031+ case (unwrapUnaryRecords opts,argTys) of
1032+ (True,[_])-> parseArgs jc tvMap tName opts
1033+ (info{constructorVariant = NormalConstructor})
1034+ (Right valName)
1035+ _ -> do
1036+ obj <- newName "recObj"
1037+ argTys' <- mapM resolveTypeSynonyms argTys
1038+ caseE (varE valName)
1039+ [ match (conP 'Object [varP obj]) (normalB $
1040+ parseRecord jc tvMap argTys' opts tName conName fields obj False) []
1041+ , matchFailed tName conName "Object"
1042+ ]
1043+
1044+-- Infix constructors. Apart from syntax these are the same as
1045+-- polyadic constructors.
1046+parseArgs jc tvMap tName _
1047+ ConstructorInfo { constructorName = conName
1048+ , constructorVariant = InfixConstructor
1049+ , constructorFields = argTys }
1050+ contents = do
1051+ argTys' <- mapM resolveTypeSynonyms argTys
1052+ matchCases contents $ parseProduct jc tvMap argTys' tName conName 2
1053+
1054+-- | Generates code to parse the JSON encoding of an n-ary
1055+-- constructor.
1056+parseProduct :: JSONClass -- ^ The FromJSON variant being derived.
1057+ -> TyVarMap -- ^ Maps the last type variables to their decoding
1058+ -- function arguments.
1059+ -> [Type] -- ^ The argument types of the constructor.
1060+ -> Name -- ^ Name of the type to which the constructor belongs.
1061+ -> Name -- ^ 'Con'structor name.
1062+ -> Integer -- ^ 'Con'structor arity.
1063+ -> [Q Match]
1064+parseProduct jc tvMap argTys tName conName numArgs =
1065+ [ do arr <- newName "arr"
1066+ -- List of: "parseJSON (arr `V.unsafeIndex` <IX>)"
1067+ let x:xs = [ dispatchParseJSON jc conName tvMap argTy
1068+ `appE`
1069+ infixApp (varE arr)
1070+ [|V.unsafeIndex|]
1071+ (litE $ integerL ix)
1072+ | (argTy, ix) <- zip argTys [0 .. numArgs - 1]
1073+ ]
1074+ match (conP 'Array [varP arr])
1075+ (normalB $ condE ( infixApp ([|V.length|] `appE` varE arr)
1076+ [|(==)|]
1077+ (litE $ integerL numArgs)
1078+ )
1079+ ( foldl' (\a b -> infixApp a [|(<*>)|] b)
1080+ (infixApp (conE conName) [|(<$>)|] x)
1081+ xs
1082+ )
1083+ ( parseTypeMismatch tName conName
1084+ (litE $ stringL $ "Array of length " ++ show numArgs)
1085+ ( infixApp (litE $ stringL "Array of length ")
1086+ [|(++)|]
1087+ ([|show . V.length|] `appE` varE arr)
1088+ )
1089+ )
1090+ )
1091+ []
1092+ , matchFailed tName conName "Array"
1093+ ]
1094+
1095+--------------------------------------------------------------------------------
1096+-- Parsing errors
1097+--------------------------------------------------------------------------------
1098+
1099+matchFailed :: Name -> Name -> String -> MatchQ
1100+matchFailed tName conName expected = do
1101+ other <- newName "other"
1102+ match (varP other)
1103+ ( normalB $ parseTypeMismatch tName conName
1104+ (litE $ stringL expected)
1105+ ([|valueConName|] `appE` varE other)
1106+ )
1107+ []
1108+
1109+parseTypeMismatch :: Name -> Name -> ExpQ -> ExpQ -> ExpQ
1110+parseTypeMismatch tName conName expected actual =
1111+ foldl appE
1112+ [|parseTypeMismatch'|]
1113+ [ litE $ stringL $ nameBase conName
1114+ , litE $ stringL $ show tName
1115+ , expected
1116+ , actual
1117+ ]
1118+
1119+class LookupField a where
1120+ lookupField :: (Value -> Parser a) -> String -> String
1121+ -> Object -> T.Text -> Parser a
1122+
1123+instance OVERLAPPABLE_ LookupField a where
1124+ lookupField = lookupFieldWith
1125+
1126+instance INCOHERENT_ LookupField (Maybe a) where
1127+ lookupField pj _ _ = parseOptionalFieldWith pj
1128+
1129+instance INCOHERENT_ LookupField (Semigroup.Option a) where
1130+ lookupField pj tName rec obj key =
1131+ fmap Semigroup.Option
1132+ (lookupField (fmap Semigroup.getOption . pj) tName rec obj key)
1133+
1134+lookupFieldWith :: (Value -> Parser a) -> String -> String
1135+ -> Object -> T.Text -> Parser a
1136+lookupFieldWith pj tName rec obj key =
1137+ case H.lookup key obj of
1138+ Nothing -> unknownFieldFail tName rec (T.unpack key)
1139+ Just v -> pj v <?> Key key
1140+
1141+unknownFieldFail :: String -> String -> String -> Parser fail
1142+unknownFieldFail tName rec key =
1143+ fail $ printf "When parsing the record %s of type %s the key %s was not present."
1144+ rec tName key
1145+
1146+noArrayFail :: String -> String -> Parser fail
1147+noArrayFail t o = fail $ printf "When parsing %s expected Array but got %s." t o
1148+
1149+noObjectFail :: String -> String -> Parser fail
1150+noObjectFail t o = fail $ printf "When parsing %s expected Object but got %s." t o
1151+
1152+firstElemNoStringFail :: String -> String -> Parser fail
1153+firstElemNoStringFail t o = fail $ printf "When parsing %s expected an Array of 2 elements where the first element is a String but got %s at the first element." t o
1154+
1155+wrongPairCountFail :: String -> String -> Parser fail
1156+wrongPairCountFail t n =
1157+ fail $ printf "When parsing %s expected an Object with a single tag/contents pair but got %s pairs."
1158+ t n
1159+
1160+noStringFail :: String -> String -> Parser fail
1161+noStringFail t o = fail $ printf "When parsing %s expected String but got %s." t o
1162+
1163+noMatchFail :: String -> String -> Parser fail
1164+noMatchFail t o =
1165+ fail $ printf "When parsing %s expected a String with the tag of a constructor but got %s." t o
1166+
1167+not2ElemArray :: String -> Int -> Parser fail
1168+not2ElemArray t i = fail $ printf "When parsing %s expected an Array of 2 elements but got %i elements" t i
1169+
1170+conNotFoundFail2ElemArray :: String -> [String] -> String -> Parser fail
1171+conNotFoundFail2ElemArray t cs o =
1172+ fail $ printf "When parsing %s expected a 2-element Array with a tag and contents element where the tag is one of [%s], but got %s."
1173+ t (intercalate ", " cs) o
1174+
1175+conNotFoundFailObjectSingleField :: String -> [String] -> String -> Parser fail
1176+conNotFoundFailObjectSingleField t cs o =
1177+ fail $ printf "When parsing %s expected an Object with a single tag/contents pair where the tag is one of [%s], but got %s."
1178+ t (intercalate ", " cs) o
1179+
1180+conNotFoundFailTaggedObject :: String -> [String] -> String -> Parser fail
1181+conNotFoundFailTaggedObject t cs o =
1182+ fail $ printf "When parsing %s expected an Object with a tag field where the value is one of [%s], but got %s."
1183+ t (intercalate ", " cs) o
1184+
1185+parseTypeMismatch' :: String -> String -> String -> String -> Parser fail
1186+parseTypeMismatch' conName tName expected actual =
1187+ fail $ printf "When parsing the constructor %s of type %s expected %s but got %s."
1188+ conName tName expected actual
1189+
1190+--------------------------------------------------------------------------------
1191+-- Shared ToJSON and FromJSON code
1192+--------------------------------------------------------------------------------
1193+
1194+-- | Functionality common to 'deriveJSON', 'deriveJSON1', and 'deriveJSON2'.
1195+deriveJSONBoth :: (Options -> Name -> Q [Dec])
1196+ -- ^ Function which derives a flavor of 'ToJSON'.
1197+ -> (Options -> Name -> Q [Dec])
1198+ -- ^ Function which derives a flavor of 'FromJSON'.
1199+ -> Options
1200+ -- ^ Encoding options.
1201+ -> Name
1202+ -- ^ Name of the type for which to generate 'ToJSON' and 'FromJSON'
1203+ -- instances.
1204+ -> Q [Dec]
1205+deriveJSONBoth dtj dfj opts name =
1206+ liftM2 (++) (dtj opts name) (dfj opts name)
1207+
1208+-- | Functionality common to @deriveToJSON(1)(2)@ and @deriveFromJSON(1)(2)@.
1209+deriveJSONClass :: [(JSONFun, JSONClass -> Name -> Options -> [Type]
1210+ -> [ConstructorInfo] -> Q Exp)]
1211+ -- ^ The class methods and the functions which derive them.
1212+ -> JSONClass
1213+ -- ^ The class for which to generate an instance.
1214+ -> Options
1215+ -- ^ Encoding options.
1216+ -> Name
1217+ -- ^ Name of the type for which to generate a class instance
1218+ -- declaration.
1219+ -> Q [Dec]
1220+deriveJSONClass consFuns jc opts name = do
1221+ info <- reifyDatatype name
1222+ case info of
1223+ DatatypeInfo { datatypeContext = ctxt
1224+ , datatypeName = parentName
1225+#if MIN_VERSION_th_abstraction(0,3,0)
1226+ , datatypeInstTypes = instTys
1227+#else
1228+ , datatypeVars = instTys
1229+#endif
1230+ , datatypeVariant = variant
1231+ , datatypeCons = cons
1232+ } -> do
1233+ (instanceCxt, instanceType)
1234+ <- buildTypeInstance parentName jc ctxt instTys variant
1235+ (:[]) <$> instanceD (return instanceCxt)
1236+ (return instanceType)
1237+ (methodDecs parentName instTys cons)
1238+ where
1239+ methodDecs :: Name -> [Type] -> [ConstructorInfo] -> [Q Dec]
1240+ methodDecs parentName instTys cons = flip map consFuns $ \(jf, jfMaker) ->
1241+ funD (jsonFunValName jf (arity jc))
1242+ [ clause []
1243+ (normalB $ jfMaker jc parentName opts instTys cons)
1244+ []
1245+ ]
1246+
1247+mkFunCommon :: (JSONClass -> Name -> Options -> [Type] -> [ConstructorInfo] -> Q Exp)
1248+ -- ^ The function which derives the expression.
1249+ -> JSONClass
1250+ -- ^ Which class's method is being derived.
1251+ -> Options
1252+ -- ^ Encoding options.
1253+ -> Name
1254+ -- ^ Name of the encoded type.
1255+ -> Q Exp
1256+mkFunCommon consFun jc opts name = do
1257+ info <- reifyDatatype name
1258+ case info of
1259+ DatatypeInfo { datatypeContext = ctxt
1260+ , datatypeName = parentName
1261+#if MIN_VERSION_th_abstraction(0,3,0)
1262+ , datatypeInstTypes = instTys
1263+#else
1264+ , datatypeVars = instTys
1265+#endif
1266+ , datatypeVariant = variant
1267+ , datatypeCons = cons
1268+ } -> do
1269+ -- We force buildTypeInstance here since it performs some checks for whether
1270+ -- or not the provided datatype's kind matches the derived method's
1271+ -- typeclass, and produces errors if it can't.
1272+ !_ <- buildTypeInstance parentName jc ctxt instTys variant
1273+ consFun jc parentName opts instTys cons
1274+
1275+dispatchFunByType :: JSONClass
1276+ -> JSONFun
1277+ -> Name
1278+ -> TyVarMap
1279+ -> Bool -- True if we are using the function argument that works
1280+ -- on lists (e.g., [a] -> Value). False is we are using
1281+ -- the function argument that works on single values
1282+ -- (e.g., a -> Value).
1283+ -> Type
1284+ -> Q Exp
1285+dispatchFunByType _ jf _ tvMap list (VarT tyName) =
1286+ varE $ case M.lookup tyName tvMap of
1287+ Just (tfjExp, tfjlExp) -> if list then tfjlExp else tfjExp
1288+ Nothing -> jsonFunValOrListName list jf Arity0
1289+dispatchFunByType jc jf conName tvMap list (SigT ty _) =
1290+ dispatchFunByType jc jf conName tvMap list ty
1291+dispatchFunByType jc jf conName tvMap list (ForallT _ _ ty) =
1292+ dispatchFunByType jc jf conName tvMap list ty
1293+dispatchFunByType jc jf conName tvMap list ty = do
1294+ let tyCon :: Type
1295+ tyArgs :: [Type]
1296+ tyCon :| tyArgs = unapplyTy ty
1297+
1298+ numLastArgs :: Int
1299+ numLastArgs = min (arityInt jc) (length tyArgs)
1300+
1301+ lhsArgs, rhsArgs :: [Type]
1302+ (lhsArgs, rhsArgs) = splitAt (length tyArgs - numLastArgs) tyArgs
1303+
1304+ tyVarNames :: [Name]
1305+ tyVarNames = M.keys tvMap
1306+
1307+ itf <- isTyFamily tyCon
1308+ if any (`mentionsName` tyVarNames) lhsArgs
1309+ || itf && any (`mentionsName` tyVarNames) tyArgs
1310+ then outOfPlaceTyVarError jc conName
1311+ else if any (`mentionsName` tyVarNames) rhsArgs
1312+ then appsE $ varE (jsonFunValOrListName list jf $ toEnum numLastArgs)
1313+ : zipWith (dispatchFunByType jc jf conName tvMap)
1314+ (cycle [False,True])
1315+ (interleave rhsArgs rhsArgs)
1316+ else varE $ jsonFunValOrListName list jf Arity0
1317+
1318+dispatchToJSON
1319+ :: ToJSONFun -> JSONClass -> Name -> TyVarMap -> Type -> Q Exp
1320+dispatchToJSON target jc n tvMap =
1321+ dispatchFunByType jc (targetToJSONFun target) n tvMap False
1322+
1323+dispatchParseJSON
1324+ :: JSONClass -> Name -> TyVarMap -> Type -> Q Exp
1325+dispatchParseJSON jc n tvMap = dispatchFunByType jc ParseJSON n tvMap False
1326+
1327+--------------------------------------------------------------------------------
1328+-- Utility functions
1329+--------------------------------------------------------------------------------
1330+
1331+-- For the given Types, generate an instance context and head.
1332+buildTypeInstance :: Name
1333+ -- ^ The type constructor or data family name
1334+ -> JSONClass
1335+ -- ^ The typeclass to derive
1336+ -> Cxt
1337+ -- ^ The datatype context
1338+ -> [Type]
1339+ -- ^ The types to instantiate the instance with
1340+ -> DatatypeVariant
1341+ -- ^ Are we dealing with a data family instance or not
1342+ -> Q (Cxt, Type)
1343+buildTypeInstance tyConName jc dataCxt varTysOrig variant = do
1344+ -- Make sure to expand through type/kind synonyms! Otherwise, the
1345+ -- eta-reduction check might get tripped up over type variables in a
1346+ -- synonym that are actually dropped.
1347+ -- (See GHC Trac #11416 for a scenario where this actually happened.)
1348+ varTysExp <- mapM resolveTypeSynonyms varTysOrig
1349+
1350+ let remainingLength :: Int
1351+ remainingLength = length varTysOrig - arityInt jc
1352+
1353+ droppedTysExp :: [Type]
1354+ droppedTysExp = drop remainingLength varTysExp
1355+
1356+ droppedStarKindStati :: [StarKindStatus]
1357+ droppedStarKindStati = map canRealizeKindStar droppedTysExp
1358+
1359+ -- Check there are enough types to drop and that all of them are either of
1360+ -- kind * or kind k (for some kind variable k). If not, throw an error.
1361+ when (remainingLength < 0 || elem NotKindStar droppedStarKindStati) $
1362+ derivingKindError jc tyConName
1363+
1364+ let droppedKindVarNames :: [Name]
1365+ droppedKindVarNames = catKindVarNames droppedStarKindStati
1366+
1367+ -- Substitute kind * for any dropped kind variables
1368+ varTysExpSubst :: [Type]
1369+ varTysExpSubst = map (substNamesWithKindStar droppedKindVarNames) varTysExp
1370+
1371+ remainingTysExpSubst, droppedTysExpSubst :: [Type]
1372+ (remainingTysExpSubst, droppedTysExpSubst) =
1373+ splitAt remainingLength varTysExpSubst
1374+
1375+ -- All of the type variables mentioned in the dropped types
1376+ -- (post-synonym expansion)
1377+ droppedTyVarNames :: [Name]
1378+ droppedTyVarNames = freeVariables droppedTysExpSubst
1379+
1380+ -- If any of the dropped types were polykinded, ensure that they are of kind *
1381+ -- after substituting * for the dropped kind variables. If not, throw an error.
1382+ unless (all hasKindStar droppedTysExpSubst) $
1383+ derivingKindError jc tyConName
1384+
1385+ let preds :: [Maybe Pred]
1386+ kvNames :: [[Name]]
1387+ kvNames' :: [Name]
1388+ -- Derive instance constraints (and any kind variables which are specialized
1389+ -- to * in those constraints)
1390+ (preds, kvNames) = unzip $ map (deriveConstraint jc) remainingTysExpSubst
1391+ kvNames' = concat kvNames
1392+
1393+ -- Substitute the kind variables specialized in the constraints with *
1394+ remainingTysExpSubst' :: [Type]
1395+ remainingTysExpSubst' =
1396+ map (substNamesWithKindStar kvNames') remainingTysExpSubst
1397+
1398+ -- We now substitute all of the specialized-to-* kind variable names with
1399+ -- *, but in the original types, not the synonym-expanded types. The reason
1400+ -- we do this is a superficial one: we want the derived instance to resemble
1401+ -- the datatype written in source code as closely as possible. For example,
1402+ -- for the following data family instance:
1403+ --
1404+ -- data family Fam a
1405+ -- newtype instance Fam String = Fam String
1406+ --
1407+ -- We'd want to generate the instance:
1408+ --
1409+ -- instance C (Fam String)
1410+ --
1411+ -- Not:
1412+ --
1413+ -- instance C (Fam [Char])
1414+ remainingTysOrigSubst :: [Type]
1415+ remainingTysOrigSubst =
1416+ map (substNamesWithKindStar (droppedKindVarNames `union` kvNames'))
1417+ $ take remainingLength varTysOrig
1418+
1419+ isDataFamily :: Bool
1420+ isDataFamily = case variant of
1421+ Datatype -> False
1422+ Newtype -> False
1423+ DataInstance -> True
1424+ NewtypeInstance -> True
1425+
1426+ remainingTysOrigSubst' :: [Type]
1427+ -- See Note [Kind signatures in derived instances] for an explanation
1428+ -- of the isDataFamily check.
1429+ remainingTysOrigSubst' =
1430+ if isDataFamily
1431+ then remainingTysOrigSubst
1432+ else map unSigT remainingTysOrigSubst
1433+
1434+ instanceCxt :: Cxt
1435+ instanceCxt = catMaybes preds
1436+
1437+ instanceType :: Type
1438+ instanceType = AppT (ConT $ jsonClassName jc)
1439+ $ applyTyCon tyConName remainingTysOrigSubst'
1440+
1441+ -- If the datatype context mentions any of the dropped type variables,
1442+ -- we can't derive an instance, so throw an error.
1443+ when (any (`predMentionsName` droppedTyVarNames) dataCxt) $
1444+ datatypeContextError tyConName instanceType
1445+ -- Also ensure the dropped types can be safely eta-reduced. Otherwise,
1446+ -- throw an error.
1447+ unless (canEtaReduce remainingTysExpSubst' droppedTysExpSubst) $
1448+ etaReductionError instanceType
1449+ return (instanceCxt, instanceType)
1450+
1451+-- | Attempt to derive a constraint on a Type. If successful, return
1452+-- Just the constraint and any kind variable names constrained to *.
1453+-- Otherwise, return Nothing and the empty list.
1454+--
1455+-- See Note [Type inference in derived instances] for the heuristics used to
1456+-- come up with constraints.
1457+deriveConstraint :: JSONClass -> Type -> (Maybe Pred, [Name])
1458+deriveConstraint jc t
1459+ | not (isTyVar t) = (Nothing, [])
1460+ | hasKindStar t = (Just (applyCon (jcConstraint Arity0) tName), [])
1461+ | otherwise = case hasKindVarChain 1 t of
1462+ Just ns | jcArity >= Arity1
1463+ -> (Just (applyCon (jcConstraint Arity1) tName), ns)
1464+ _ -> case hasKindVarChain 2 t of
1465+ Just ns | jcArity == Arity2
1466+ -> (Just (applyCon (jcConstraint Arity2) tName), ns)
1467+ _ -> (Nothing, [])
1468+ where
1469+ tName :: Name
1470+ tName = varTToName t
1471+
1472+ jcArity :: Arity
1473+ jcArity = arity jc
1474+
1475+ jcConstraint :: Arity -> Name
1476+ jcConstraint = jsonClassName . JSONClass (direction jc)
1477+
1478+{-
1479+Note [Kind signatures in derived instances]
1480+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1481+
1482+It is possible to put explicit kind signatures into the derived instances, e.g.,
1483+
1484+ instance C a => C (Data (f :: * -> *)) where ...
1485+
1486+But it is preferable to avoid this if possible. If we come up with an incorrect
1487+kind signature (which is entirely possible, since Template Haskell doesn't always
1488+have the best track record with reifying kind signatures), then GHC will flat-out
1489+reject the instance, which is quite unfortunate.
1490+
1491+Plain old datatypes have the advantage that you can avoid using any kind signatures
1492+at all in their instances. This is because a datatype declaration uses all type
1493+variables, so the types that we use in a derived instance uniquely determine their
1494+kinds. As long as we plug in the right types, the kind inferencer can do the rest
1495+of the work. For this reason, we use unSigT to remove all kind signatures before
1496+splicing in the instance context and head.
1497+
1498+Data family instances are trickier, since a data family can have two instances that
1499+are distinguished by kind alone, e.g.,
1500+
1501+ data family Fam (a :: k)
1502+ data instance Fam (a :: * -> *)
1503+ data instance Fam (a :: *)
1504+
1505+If we dropped the kind signatures for C (Fam a), then GHC will have no way of
1506+knowing which instance we are talking about. To avoid this scenario, we always
1507+include explicit kind signatures in data family instances. There is a chance that
1508+the inferred kind signatures will be incorrect, but if so, we can always fall back
1509+on the mk- functions.
1510+
1511+Note [Type inference in derived instances]
1512+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1513+
1514+Type inference is can be tricky to get right, and we want to avoid recreating the
1515+entirety of GHC's type inferencer in Template Haskell. For this reason, we will
1516+probably never come up with derived instance contexts that are as accurate as
1517+GHC's. But that doesn't mean we can't do anything! There are a couple of simple
1518+things we can do to make instance contexts that work for 80% of use cases:
1519+
1520+1. If one of the last type parameters is polykinded, then its kind will be
1521+ specialized to * in the derived instance. We note what kind variable the type
1522+ parameter had and substitute it with * in the other types as well. For example,
1523+ imagine you had
1524+
1525+ data Data (a :: k) (b :: k)
1526+
1527+ Then you'd want to derived instance to be:
1528+
1529+ instance C (Data (a :: *))
1530+
1531+ Not:
1532+
1533+ instance C (Data (a :: k))
1534+
1535+2. We naïvely come up with instance constraints using the following criteria:
1536+
1537+ (i) If there's a type parameter n of kind *, generate a ToJSON n/FromJSON n
1538+ constraint.
1539+ (ii) If there's a type parameter n of kind k1 -> k2 (where k1/k2 are * or kind
1540+ variables), then generate a ToJSON1 n/FromJSON1 n constraint, and if
1541+ k1/k2 are kind variables, then substitute k1/k2 with * elsewhere in the
1542+ types. We must consider the case where they are kind variables because
1543+ you might have a scenario like this:
1544+
1545+ newtype Compose (f :: k2 -> *) (g :: k1 -> k2) (a :: k1)
1546+ = Compose (f (g a))
1547+
1548+ Which would have a derived ToJSON1 instance of:
1549+
1550+ instance (ToJSON1 f, ToJSON1 g) => ToJSON1 (Compose f g) where ...
1551+ (iii) If there's a type parameter n of kind k1 -> k2 -> k3 (where k1/k2/k3 are
1552+ * or kind variables), then generate a ToJSON2 n/FromJSON2 n constraint
1553+ and perform kind substitution as in the other cases.
1554+-}
1555+
1556+checkExistentialContext :: JSONClass -> TyVarMap -> Cxt -> Name
1557+ -> Q a -> Q a
1558+checkExistentialContext jc tvMap ctxt conName q =
1559+ if (any (`predMentionsName` M.keys tvMap) ctxt
1560+ || M.size tvMap < arityInt jc)
1561+ && not (allowExQuant jc)
1562+ then existentialContextError conName
1563+ else q
1564+
1565+{-
1566+Note [Matching functions with GADT type variables]
1567+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1568+
1569+When deriving ToJSON2, there is a tricky corner case to consider:
1570+
1571+ data Both a b where
1572+ BothCon :: x -> x -> Both x x
1573+
1574+Which encoding functions should be applied to which arguments of BothCon?
1575+We have a choice, since both the function of type (a -> Value) and of type
1576+(b -> Value) can be applied to either argument. In such a scenario, the
1577+second encoding function takes precedence over the first encoding function, so the
1578+derived ToJSON2 instance would be something like:
1579+
1580+ instance ToJSON2 Both where
1581+ liftToJSON2 tj1 tj2 p (BothCon x1 x2) = Array $ create $ do
1582+ mv <- unsafeNew 2
1583+ unsafeWrite mv 0 (tj1 x1)
1584+ unsafeWrite mv 1 (tj2 x2)
1585+ return mv
1586+
1587+This is not an arbitrary choice, as this definition ensures that
1588+liftToJSON2 toJSON = liftToJSON for a derived ToJSON1 instance for
1589+Both.
1590+-}
1591+
1592+-- A mapping of type variable Names to their encoding/decoding function Names.
1593+-- For example, in a ToJSON2 declaration, a TyVarMap might look like
1594+--
1595+-- { a ~> (tj1, tjl1)
1596+-- , b ~> (tj2, tjl2) }
1597+--
1598+-- where a and b are the last two type variables of the datatype, tj1 and tjl1 are
1599+-- the function arguments of types (a -> Value) and ([a] -> Value), and tj2 and tjl2
1600+-- are the function arguments of types (b -> Value) and ([b] -> Value).
1601+type TyVarMap = Map Name (Name, Name)
1602+
1603+-- | Returns True if a Type has kind *.
1604+hasKindStar :: Type -> Bool
1605+hasKindStar VarT{} = True
1606+hasKindStar (SigT _ StarT) = True
1607+hasKindStar _ = False
1608+
1609+-- Returns True is a kind is equal to *, or if it is a kind variable.
1610+isStarOrVar :: Kind -> Bool
1611+isStarOrVar StarT = True
1612+isStarOrVar VarT{} = True
1613+isStarOrVar _ = False
1614+
1615+-- Generate a list of fresh names with a common prefix, and numbered suffixes.
1616+newNameList :: String -> Int -> Q [Name]
1617+newNameList prefix len = mapM newName [prefix ++ show n | n <- [1..len]]
1618+
1619+-- | @hasKindVarChain n kind@ Checks if @kind@ is of the form
1620+-- k_0 -> k_1 -> ... -> k_(n-1), where k0, k1, ..., and k_(n-1) can be * or
1621+-- kind variables.
1622+hasKindVarChain :: Int -> Type -> Maybe [Name]
1623+hasKindVarChain kindArrows t =
1624+ let uk = uncurryKind (tyKind t)
1625+ in if (NE.length uk - 1 == kindArrows) && F.all isStarOrVar uk
1626+ then Just (concatMap freeVariables uk)
1627+ else Nothing
1628+
1629+-- | If a Type is a SigT, returns its kind signature. Otherwise, return *.
1630+tyKind :: Type -> Kind
1631+tyKind (SigT _ k) = k
1632+tyKind _ = starK
1633+
1634+-- | Extract Just the Name from a type variable. If the argument Type is not a
1635+-- type variable, return Nothing.
1636+varTToNameMaybe :: Type -> Maybe Name
1637+varTToNameMaybe (VarT n) = Just n
1638+varTToNameMaybe (SigT t _) = varTToNameMaybe t
1639+varTToNameMaybe _ = Nothing
1640+
1641+-- | Extract the Name from a type variable. If the argument Type is not a
1642+-- type variable, throw an error.
1643+varTToName :: Type -> Name
1644+varTToName = fromMaybe (error "Not a type variable!") . varTToNameMaybe
1645+
1646+interleave :: [a] -> [a] -> [a]
1647+interleave (a1:a1s) (a2:a2s) = a1:a2:interleave a1s a2s
1648+interleave _ _ = []
1649+
1650+-- | Fully applies a type constructor to its type variables.
1651+applyTyCon :: Name -> [Type] -> Type
1652+applyTyCon = foldl' AppT . ConT
1653+
1654+-- | Is the given type a variable?
1655+isTyVar :: Type -> Bool
1656+isTyVar (VarT _) = True
1657+isTyVar (SigT t _) = isTyVar t
1658+isTyVar _ = False
1659+
1660+-- | Is the given type a type family constructor (and not a data family constructor)?
1661+isTyFamily :: Type -> Q Bool
1662+isTyFamily (ConT n) = do
1663+ info <- reify n
1664+ return $ case info of
1665+#if MIN_VERSION_template_haskell(2,11,0)
1666+ FamilyI OpenTypeFamilyD{} _ -> True
1667+#else
1668+ FamilyI (FamilyD TypeFam _ _ _) _ -> True
1669+#endif
1670+ FamilyI ClosedTypeFamilyD{} _ -> True
1671+ _ -> False
1672+isTyFamily _ = return False
1673+
1674+-- | Peel off a kind signature from a Type (if it has one).
1675+unSigT :: Type -> Type
1676+unSigT (SigT t _) = t
1677+unSigT t = t
1678+
1679+-- | Are all of the items in a list (which have an ordering) distinct?
1680+--
1681+-- This uses Set (as opposed to nub) for better asymptotic time complexity.
1682+allDistinct :: Ord a => [a] -> Bool
1683+allDistinct = allDistinct' Set.empty
1684+ where
1685+ allDistinct' :: Ord a => Set a -> [a] -> Bool
1686+ allDistinct' uniqs (x:xs)
1687+ | x `Set.member` uniqs = False
1688+ | otherwise = allDistinct' (Set.insert x uniqs) xs
1689+ allDistinct' _ _ = True
1690+
1691+-- | Does the given type mention any of the Names in the list?
1692+mentionsName :: Type -> [Name] -> Bool
1693+mentionsName = go
1694+ where
1695+ go :: Type -> [Name] -> Bool
1696+ go (AppT t1 t2) names = go t1 names || go t2 names
1697+ go (SigT t _k) names = go t names
1698+ || go _k names
1699+ go (VarT n) names = n `elem` names
1700+ go _ _ = False
1701+
1702+-- | Does an instance predicate mention any of the Names in the list?
1703+predMentionsName :: Pred -> [Name] -> Bool
1704+#if MIN_VERSION_template_haskell(2,10,0)
1705+predMentionsName = mentionsName
1706+#else
1707+predMentionsName (ClassP n tys) names = n `elem` names || any (`mentionsName` names) tys
1708+predMentionsName (EqualP t1 t2) names = mentionsName t1 names || mentionsName t2 names
1709+#endif
1710+
1711+-- | Split an applied type into its individual components. For example, this:
1712+--
1713+-- @
1714+-- Either Int Char
1715+-- @
1716+--
1717+-- would split to this:
1718+--
1719+-- @
1720+-- [Either, Int, Char]
1721+-- @
1722+unapplyTy :: Type -> NonEmpty Type
1723+unapplyTy = NE.reverse . go
1724+ where
1725+ go :: Type -> NonEmpty Type
1726+ go (AppT t1 t2) = t2 <| go t1
1727+ go (SigT t _) = go t
1728+ go (ForallT _ _ t) = go t
1729+ go t = t :| []
1730+
1731+-- | Split a type signature by the arrows on its spine. For example, this:
1732+--
1733+-- @
1734+-- forall a b. (a ~ b) => (a -> b) -> Char -> ()
1735+-- @
1736+--
1737+-- would split to this:
1738+--
1739+-- @
1740+-- (a ~ b, [a -> b, Char, ()])
1741+-- @
1742+uncurryTy :: Type -> (Cxt, NonEmpty Type)
1743+uncurryTy (AppT (AppT ArrowT t1) t2) =
1744+ let (ctxt, tys) = uncurryTy t2
1745+ in (ctxt, t1 <| tys)
1746+uncurryTy (SigT t _) = uncurryTy t
1747+uncurryTy (ForallT _ ctxt t) =
1748+ let (ctxt', tys) = uncurryTy t
1749+ in (ctxt ++ ctxt', tys)
1750+uncurryTy t = ([], t :| [])
1751+
1752+-- | Like uncurryType, except on a kind level.
1753+uncurryKind :: Kind -> NonEmpty Kind
1754+uncurryKind = snd . uncurryTy
1755+
1756+createKindChain :: Int -> Kind
1757+createKindChain = go starK
1758+ where
1759+ go :: Kind -> Int -> Kind
1760+ go k 0 = k
1761+ go k !n = go (AppT (AppT ArrowT StarT) k) (n - 1)
1762+
1763+-- | Makes a string literal expression from a constructor's name.
1764+conNameExp :: Options -> ConstructorInfo -> Q Exp
1765+conNameExp opts = litE
1766+ . stringL
1767+ . constructorTagModifier opts
1768+ . nameBase
1769+ . constructorName
1770+
1771+-- | Extracts a record field label.
1772+fieldLabel :: Options -- ^ Encoding options
1773+ -> Name
1774+ -> String
1775+fieldLabel opts = fieldLabelModifier opts . nameBase
1776+
1777+-- | The name of the outermost 'Value' constructor.
1778+valueConName :: Value -> String
1779+valueConName (Object _) = "Object"
1780+valueConName (Array _) = "Array"
1781+valueConName (String _) = "String"
1782+valueConName (Number _) = "Number"
1783+valueConName (Bool _) = "Boolean"
1784+valueConName Null = "Null"
1785+
1786+applyCon :: Name -> Name -> Pred
1787+applyCon con t =
1788+#if MIN_VERSION_template_haskell(2,10,0)
1789+ AppT (ConT con) (VarT t)
1790+#else
1791+ ClassP con [VarT t]
1792+#endif
1793+
1794+-- | Checks to see if the last types in a data family instance can be safely eta-
1795+-- reduced (i.e., dropped), given the other types. This checks for three conditions:
1796+--
1797+-- (1) All of the dropped types are type variables
1798+-- (2) All of the dropped types are distinct
1799+-- (3) None of the remaining types mention any of the dropped types
1800+canEtaReduce :: [Type] -> [Type] -> Bool
1801+canEtaReduce remaining dropped =
1802+ all isTyVar dropped
1803+ && allDistinct droppedNames -- Make sure not to pass something of type [Type], since Type
1804+ -- didn't have an Ord instance until template-haskell-2.10.0.0
1805+ && not (any (`mentionsName` droppedNames) remaining)
1806+ where
1807+ droppedNames :: [Name]
1808+ droppedNames = map varTToName dropped
1809+
1810+-------------------------------------------------------------------------------
1811+-- Expanding type synonyms
1812+-------------------------------------------------------------------------------
1813+
1814+applySubstitutionKind :: Map Name Kind -> Type -> Type
1815+applySubstitutionKind = applySubstitution
1816+
1817+substNameWithKind :: Name -> Kind -> Type -> Type
1818+substNameWithKind n k = applySubstitutionKind (M.singleton n k)
1819+
1820+substNamesWithKindStar :: [Name] -> Type -> Type
1821+substNamesWithKindStar ns t = foldr' (`substNameWithKind` starK) t ns
1822+
1823+-------------------------------------------------------------------------------
1824+-- Error messages
1825+-------------------------------------------------------------------------------
1826+
1827+-- | Either the given data type doesn't have enough type variables, or one of
1828+-- the type variables to be eta-reduced cannot realize kind *.
1829+derivingKindError :: JSONClass -> Name -> Q a
1830+derivingKindError jc tyConName = fail
1831+ . showString "Cannot derive well-kinded instance of form ‘"
1832+ . showString className
1833+ . showChar ' '
1834+ . showParen True
1835+ ( showString (nameBase tyConName)
1836+ . showString " ..."
1837+ )
1838+ . showString "‘\n\tClass "
1839+ . showString className
1840+ . showString " expects an argument of kind "
1841+ . showString (pprint . createKindChain $ arityInt jc)
1842+ $ ""
1843+ where
1844+ className :: String
1845+ className = nameBase $ jsonClassName jc
1846+
1847+-- | One of the last type variables cannot be eta-reduced (see the canEtaReduce
1848+-- function for the criteria it would have to meet).
1849+etaReductionError :: Type -> Q a
1850+etaReductionError instanceType = fail $
1851+ "Cannot eta-reduce to an instance of form \n\tinstance (...) => "
1852+ ++ pprint instanceType
1853+
1854+-- | The data type has a DatatypeContext which mentions one of the eta-reduced
1855+-- type variables.
1856+datatypeContextError :: Name -> Type -> Q a
1857+datatypeContextError dataName instanceType = fail
1858+ . showString "Can't make a derived instance of ‘"
1859+ . showString (pprint instanceType)
1860+ . showString "‘:\n\tData type ‘"
1861+ . showString (nameBase dataName)
1862+ . showString "‘ must not have a class context involving the last type argument(s)"
1863+ $ ""
1864+
1865+-- | The data type mentions one of the n eta-reduced type variables in a place other
1866+-- than the last nth positions of a data type in a constructor's field.
1867+outOfPlaceTyVarError :: JSONClass -> Name -> a
1868+outOfPlaceTyVarError jc conName = error
1869+ . showString "Constructor ‘"
1870+ . showString (nameBase conName)
1871+ . showString "‘ must only use its last "
1872+ . shows n
1873+ . showString " type variable(s) within the last "
1874+ . shows n
1875+ . showString " argument(s) of a data type"
1876+ $ ""
1877+ where
1878+ n :: Int
1879+ n = arityInt jc
1880+
1881+-- | The data type has an existential constraint which mentions one of the
1882+-- eta-reduced type variables.
1883+existentialContextError :: Name -> a
1884+existentialContextError conName = error
1885+ . showString "Constructor ‘"
1886+ . showString (nameBase conName)
1887+ . showString "‘ must be truly polymorphic in the last argument(s) of the data type"
1888+ $ ""
1889+
1890+-------------------------------------------------------------------------------
1891+-- Class-specific constants
1892+-------------------------------------------------------------------------------
1893+
1894+-- | A representation of the arity of the ToJSON/FromJSON typeclass being derived.
1895+data Arity = Arity0 | Arity1 | Arity2
1896+ deriving (Enum, Eq, Ord)
1897+
1898+-- | Whether ToJSON(1)(2) or FromJSON(1)(2) is being derived.
1899+data Direction = To | From
1900+
1901+-- | A representation of which typeclass method is being spliced in.
1902+data JSONFun = ToJSON | ToEncoding | ParseJSON
1903+
1904+-- | A refinement of JSONFun to [ToJSON, ToEncoding].
1905+data ToJSONFun = Value | Encoding
1906+
1907+targetToJSONFun :: ToJSONFun -> JSONFun
1908+targetToJSONFun Value = ToJSON
1909+targetToJSONFun Encoding = ToEncoding
1910+
1911+-- | A representation of which typeclass is being derived.
1912+data JSONClass = JSONClass { direction :: Direction, arity :: Arity }
1913+
1914+toJSONClass, toJSON1Class, toJSON2Class,
1915+ fromJSONClass, fromJSON1Class, fromJSON2Class :: JSONClass
1916+toJSONClass = JSONClass To Arity0
1917+toJSON1Class = JSONClass To Arity1
1918+toJSON2Class = JSONClass To Arity2
1919+fromJSONClass = JSONClass From Arity0
1920+fromJSON1Class = JSONClass From Arity1
1921+fromJSON2Class = JSONClass From Arity2
1922+
1923+jsonClassName :: JSONClass -> Name
1924+jsonClassName (JSONClass To Arity0) = ''ToJSON
1925+jsonClassName (JSONClass To Arity1) = ''ToJSON1
1926+jsonClassName (JSONClass To Arity2) = ''ToJSON2
1927+jsonClassName (JSONClass From Arity0) = ''FromJSON
1928+jsonClassName (JSONClass From Arity1) = ''FromJSON1
1929+jsonClassName (JSONClass From Arity2) = ''FromJSON2
1930+
1931+jsonFunValName :: JSONFun -> Arity -> Name
1932+jsonFunValName ToJSON Arity0 = 'toJSON
1933+jsonFunValName ToJSON Arity1 = 'liftToJSON
1934+jsonFunValName ToJSON Arity2 = 'liftToJSON2
1935+jsonFunValName ToEncoding Arity0 = 'toEncoding
1936+jsonFunValName ToEncoding Arity1 = 'liftToEncoding
1937+jsonFunValName ToEncoding Arity2 = 'liftToEncoding2
1938+jsonFunValName ParseJSON Arity0 = 'parseJSON
1939+jsonFunValName ParseJSON Arity1 = 'liftParseJSON
1940+jsonFunValName ParseJSON Arity2 = 'liftParseJSON2
1941+
1942+jsonFunListName :: JSONFun -> Arity -> Name
1943+jsonFunListName ToJSON Arity0 = 'toJSONList
1944+jsonFunListName ToJSON Arity1 = 'liftToJSONList
1945+jsonFunListName ToJSON Arity2 = 'liftToJSONList2
1946+jsonFunListName ToEncoding Arity0 = 'toEncodingList
1947+jsonFunListName ToEncoding Arity1 = 'liftToEncodingList
1948+jsonFunListName ToEncoding Arity2 = 'liftToEncodingList2
1949+jsonFunListName ParseJSON Arity0 = 'parseJSONList
1950+jsonFunListName ParseJSON Arity1 = 'liftParseJSONList
1951+jsonFunListName ParseJSON Arity2 = 'liftParseJSONList2
1952+
1953+jsonFunValOrListName :: Bool -- e.g., toJSONList if True, toJSON if False
1954+ -> JSONFun -> Arity -> Name
1955+jsonFunValOrListName False = jsonFunValName
1956+jsonFunValOrListName True = jsonFunListName
1957+
1958+arityInt :: JSONClass -> Int
1959+arityInt = fromEnum . arity
1960+
1961+allowExQuant :: JSONClass -> Bool
1962+allowExQuant (JSONClass To _) = True
1963+allowExQuant _ = False
1964+
1965+-------------------------------------------------------------------------------
1966+-- StarKindStatus
1967+-------------------------------------------------------------------------------
1968+
1969+-- | Whether a type is not of kind *, is of kind *, or is a kind variable.
1970+data StarKindStatus = NotKindStar
1971+ | KindStar
1972+ | IsKindVar Name
1973+ deriving Eq
1974+
1975+-- | Does a Type have kind * or k (for some kind variable k)?
1976+canRealizeKindStar :: Type -> StarKindStatus
1977+canRealizeKindStar t = case t of
1978+ _ | hasKindStar t -> KindStar
1979+ SigT _ (VarT k) -> IsKindVar k
1980+ _ -> NotKindStar
1981+
1982+-- | Returns 'Just' the kind variable 'Name' of a 'StarKindStatus' if it exists.
1983+-- Otherwise, returns 'Nothing'.
1984+starKindStatusToName :: StarKindStatus -> Maybe Name
1985+starKindStatusToName (IsKindVar n) = Just n
1986+starKindStatusToName _ = Nothing
1987+
1988+-- | Concat together all of the StarKindStatuses that are IsKindVar and extract
1989+-- the kind variables' Names out.
1990+catKindVarNames :: [StarKindStatus] -> [Name]
1991+catKindVarNames = mapMaybe starKindStatusToName
Data/Aeson/Text.hsnew file+102
@@ -0,0 +1,102 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE OverloadedStrings #-}
4+-- |
5+-- Module: Data.Aeson.Text
6+-- Copyright: (c) 2012-2016 Bryan O'Sullivan
7+-- (c) 2011 MailRank, Inc.
8+-- License: BSD3
9+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
10+-- Stability: experimental
11+-- Portability: portable
12+--
13+-- Most frequently, you'll probably want to encode straight to UTF-8
14+-- (the standard JSON encoding) using 'encode'.
15+--
16+-- You can use the conversions to 'Builder's when embedding JSON messages as
17+-- parts of a protocol.
18+
19+module Data.Aeson.Text
20+ (
21+ encodeToLazyText
22+ , encodeToTextBuilder
23+ ) where
24+
25+import Prelude.Compat
26+
27+import Data.Aeson.Types (Value(..), ToJSON(..))
28+import Data.Aeson.Encoding (encodingToLazyByteString)
29+import Data.Semigroup ((<>))
30+import Data.Scientific (FPFormat(..), Scientific, base10Exponent)
31+import Data.Text.Lazy.Builder
32+import Data.Text.Lazy.Builder.Scientific (formatScientificBuilder)
33+import Numeric (showHex)
34+import qualified Data.HashMap.Strict as H
35+import qualified Data.Text as T
36+import qualified Data.Text.Lazy as LT
37+import qualified Data.Text.Lazy.Encoding as LT
38+import qualified Data.Vector as V
39+
40+-- | Encode a JSON 'Value' to a "Data.Text.Lazy"
41+--
42+-- /Note:/ uses 'toEncoding'
43+encodeToLazyText :: ToJSON a => a -> LT.Text
44+encodeToLazyText = LT.decodeUtf8 . encodingToLazyByteString . toEncoding
45+
46+-- | Encode a JSON 'Value' to a "Data.Text" 'Builder', which can be
47+-- embedded efficiently in a text-based protocol.
48+--
49+-- If you are going to immediately encode straight to a
50+-- 'L.ByteString', it is more efficient to use 'encode' (lazy ByteString)
51+-- or @'fromEncoding' . 'toEncoding'@ (ByteString.Builder) instead.
52+--
53+-- /Note:/ Uses 'toJSON'
54+encodeToTextBuilder :: ToJSON a => a -> Builder
55+encodeToTextBuilder =
56+ go . toJSON
57+ where
58+ go Null = {-# SCC "go/Null" #-} "null"
59+ go (Bool b) = {-# SCC "go/Bool" #-} if b then "true" else "false"
60+ go (Number s) = {-# SCC "go/Number" #-} fromScientific s
61+ go (String s) = {-# SCC "go/String" #-} string s
62+ go (Array v)
63+ | V.null v = {-# SCC "go/Array" #-} "[]"
64+ | otherwise = {-# SCC "go/Array" #-}
65+ singleton '[' <>
66+ go (V.unsafeHead v) <>
67+ V.foldr f (singleton ']') (V.unsafeTail v)
68+ where f a z = singleton ',' <> go a <> z
69+ go (Object m) = {-# SCC "go/Object" #-}
70+ case H.toList m of
71+ (x:xs) -> singleton '{' <> one x <> foldr f (singleton '}') xs
72+ _ -> "{}"
73+ where f a z = singleton ',' <> one a <> z
74+ one (k,v) = string k <> singleton ':' <> go v
75+
76+string :: T.Text -> Builder
77+string s = {-# SCC "string" #-} singleton '"' <> quote s <> singleton '"'
78+ where
79+ quote q = case T.uncons t of
80+ Nothing -> fromText h
81+ Just (!c,t') -> fromText h <> escape c <> quote t'
82+ where (h,t) = {-# SCC "break" #-} T.break isEscape q
83+ isEscape c = c == '\"' ||
84+ c == '\\' ||
85+ c < '\x20'
86+ escape '\"' = "\\\""
87+ escape '\\' = "\\\\"
88+ escape '\n' = "\\n"
89+ escape '\r' = "\\r"
90+ escape '\t' = "\\t"
91+
92+ escape c
93+ | c < '\x20' = fromString $ "\\u" ++ replicate (4 - length h) '0' ++ h
94+ | otherwise = singleton c
95+ where h = showHex (fromEnum c) ""
96+
97+fromScientific :: Scientific -> Builder
98+fromScientific s = formatScientificBuilder format prec s
99+ where
100+ (format, prec)
101+ | base10Exponent s < 0 = (Generic, Nothing)
102+ | otherwise = (Fixed, Just 0)
Data/Aeson/Types.hs+152−155
@@ -1,165 +1,162 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+-- |
3+-- Module: Data.Aeson.Types
4+-- Copyright: (c) 2011-2016 Bryan O'Sullivan
5+-- (c) 2011 MailRank, Inc.
6+-- License: BSD3
7+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
8+-- Stability: experimental
9+-- Portability: portable
10+--
11+-- Types for working with JSON data.
12+
1module Data.Aeson.Types
13module Data.Aeson.Types
2 (
14 (
15+ -- * Core JSON types
16+ Value(..)
17+ , Encoding
18+ , unsafeToEncoding
19+ , fromEncoding
20+ , Series
3− Array
21+ , Array
22+ , emptyArray
23+ , Pair
4 , Object
24 , Object
5− , (.=)
25+ , emptyObject
6− , (.:)
26+ -- * Convenience types and functions
7− , object
27+ , DotNetTime(..)
8− , Value(..)
28+ , typeMismatch
29+ , unexpected
30+ -- * Type conversion
31+ , Parser
32+ , Result(..)
9 , FromJSON(..)
33 , FromJSON(..)
34+ , fromJSON
35+ , parse
36+ , parseEither
37+ , parseMaybe
10 , ToJSON(..)
38 , ToJSON(..)
39+ , KeyValue(..)
40+ , modifyFailure
41+ , prependFailure
42+ , parserThrowError
43+ , parserCatchError
44+
45+ -- ** Keys for maps
46+ , ToJSONKey(..)
47+ , ToJSONKeyFunction(..)
48+ , toJSONKeyText
49+ , contramapToJSONKeyFunction
50+ , FromJSONKey(..)
51+ , FromJSONKeyFunction(..)
52+ , fromJSONKeyCoerce
53+ , coerceFromJSONKeyFunction
54+ , mapFromJSONKeyFunction
55+
56+ -- *** Generic keys
57+ , GToJSONKey()
58+ , genericToJSONKey
59+ , GFromJSONKey()
60+ , genericFromJSONKey
61+
62+ -- ** Liftings to unary and binary type constructors
63+ , FromJSON1(..)
64+ , parseJSON1
65+ , FromJSON2(..)
66+ , parseJSON2
67+ , ToJSON1(..)
68+ , toJSON1
69+ , toEncoding1
70+ , ToJSON2(..)
71+ , toJSON2
72+ , toEncoding2
73+
74+ -- ** Generic JSON classes
75+ , GFromJSON(..)
76+ , FromArgs(..)
77+ , GToJSON
78+ , GToEncoding
79+ , ToArgs(..)
80+ , Zero
81+ , One
82+ , genericToJSON
83+ , genericLiftToJSON
84+ , genericToEncoding
85+ , genericLiftToEncoding
86+ , genericParseJSON
87+ , genericLiftParseJSON
88+
89+ -- * Inspecting @'Value's@
90+ , withObject
91+ , withText
92+ , withArray
93+ , withScientific
94+ , withBool
95+ , withEmbeddedJSON
96+
97+ , pairs
98+ , foldable
99+ , (.:)
100+ , (.:?)
101+ , (.:!)
102+ , (.!=)
103+ , object
104+ , parseField
105+ , parseFieldMaybe
106+ , parseFieldMaybe'
107+ , explicitParseField
108+ , explicitParseFieldMaybe
109+ , explicitParseFieldMaybe'
110+
111+ , listEncoding
112+ , listValue
113+ , listParser
114+
115+ -- * Generic and TH encoding configuration
116+ , Options
117+
118+ -- ** Options fields
119+ -- $optionsFields
120+ , fieldLabelModifier
121+ , constructorTagModifier
122+ , allNullaryToStringTag
123+ , omitNothingFields
124+ , sumEncoding
125+ , unwrapUnaryRecords
126+ , tagSingleConstructors
127+ , rejectUnknownFields
128+
129+ -- ** Options utilities
130+ , SumEncoding(..)
131+ , camelTo
132+ , camelTo2
133+ , defaultOptions
134+ , defaultTaggedObject
135+
136+ -- ** Options for object keys
137+ , JSONKeyOptions
138+ , keyModifier
139+ , defaultJSONKeyOptions
140+
141+ -- * Parsing context
142+ , (<?>)
143+ , JSONPath
144+ , JSONPathElement(..)
145+ , formatPath
146+ , formatRelativePath
11 ) where
147 ) where
12
148
13−import Control.Applicative
149+import Prelude.Compat
14−import Data.Map (Map)
15−import Data.Text (Text, pack, unpack)
16−import Data.Time.Clock (UTCTime)
17−import Data.Time.Format (formatTime, parseTime)
18−import Data.Vector (Vector)
19−import System.Locale (defaultTimeLocale)
20−import qualified Data.Map as M
21−import qualified Data.Vector as V
22−
23−type Object = Map Text Value
24−type Array = Vector Value
25−
26−data Value = Object Object
27− | Array Array
28− | String Text
29− | Number Double
30− | Bool !Bool
31− | Null
32− deriving (Eq, Show)
33−
34−(.=) :: ToJSON a => Text -> a -> Object
35−name .= value = M.singleton name (toJSON value)
36−{-# INLINE (.=) #-}
37−
38−(.:) :: (Alternative f, FromJSON a) => Object -> Text -> f a
39−obj .: key = case M.lookup key obj of
40− Nothing -> empty
41− Just v -> fromJSON v
42−{-# INLINE (.:) #-}
43−
44−object :: [Object] -> Value
45−object = Object . M.unions
46−{-# INLINE object #-}
47−
48−class ToJSON a where
49− toJSON :: a -> Value
50−
51−class FromJSON a where
52− fromJSON :: Alternative f => Value -> f a
53−
54−instance (ToJSON a) => ToJSON (Maybe a) where
55− toJSON (Just a) = toJSON a
56− toJSON Nothing = Null
57− {-# INLINE toJSON #-}
58−
59−instance (FromJSON a) => FromJSON (Maybe a) where
60− fromJSON Null = pure Nothing
61− fromJSON a = Just <$> fromJSON a
62− {-# INLINE fromJSON #-}
63−
64−instance ToJSON Bool where
65− toJSON = Bool
66− {-# INLINE toJSON #-}
67−
68−instance FromJSON Bool where
69− fromJSON (Bool b) = pure b
70− fromJSON _ = empty
71− {-# INLINE fromJSON #-}
72−
73−instance ToJSON Double where
74− toJSON = Number
75− {-# INLINE toJSON #-}
76−
77−instance FromJSON Double where
78− fromJSON (Number n) = pure n
79− fromJSON _ = empty
80− {-# INLINE fromJSON #-}
81−
82−instance ToJSON Int where
83− toJSON = Number . fromIntegral
84− {-# INLINE toJSON #-}
85−
86−instance FromJSON Int where
87− fromJSON (Number n) = pure (floor n)
88− fromJSON _ = empty
89− {-# INLINE fromJSON #-}
90−
91−instance ToJSON Text where
92− toJSON = String
93− {-# INLINE toJSON #-}
94−
95−instance FromJSON Text where
96− fromJSON (String t) = pure t
97− fromJSON _ = empty
98− {-# INLINE fromJSON #-}
99−
100−mapA :: (Applicative f) => (t -> f a) -> [t] -> f [a]
101−mapA f = go
102− where
103− go (a:as) = (:) <$> f a <*> go as
104− go [] = pure []
105−
106−instance (ToJSON a) => ToJSON [a] where
107− toJSON = Array . V.fromList . map toJSON
108− {-# INLINE toJSON #-}
109−
110−instance (FromJSON a) => FromJSON [a] where
111− fromJSON (Array a) = mapA fromJSON (V.toList a)
112− fromJSON _ = empty
113− {-# INLINE fromJSON #-}
114−
115−instance (ToJSON a) => ToJSON (Vector a) where
116− toJSON = Array . V.map toJSON
117− {-# INLINE toJSON #-}
118−
119−instance (FromJSON a) => FromJSON (Vector a) where
120− fromJSON (Array a) = V.fromList <$> mapA fromJSON (V.toList a)
121− fromJSON _ = empty
122− {-# INLINE fromJSON #-}
123−
124−instance ToJSON Value where
125− toJSON a = a
126− {-# INLINE toJSON #-}
127−
128−instance FromJSON Value where
129− fromJSON a = pure a
130− {-# INLINE fromJSON #-}
131−
132−-- We happen to use the same JSON formatting for a UTCTime as .NET
133−-- does for a DateTime. How handy!
134−instance ToJSON UTCTime where
135− toJSON t = String (pack (formatTime defaultTimeLocale "/Date(%s)/" t))
136− {-# INLINE toJSON #-}
137−
138−instance FromJSON UTCTime where
139− fromJSON (String t) =
140− case parseTime defaultTimeLocale "/Date(%s)/" (unpack t) of
141− Just d -> pure d
142− _ -> empty
143− fromJSON _ = empty
144− {-# INLINE fromJSON #-}
145−
146−instance (ToJSON a, ToJSON b) => ToJSON (a,b) where
147− toJSON (a,b) = toJSON [toJSON a, toJSON b]
148− {-# INLINE toJSON #-}
149−
150−instance (FromJSON a, FromJSON b) => FromJSON (a,b) where
151− fromJSON (Array ab) = case V.toList ab of
152− [a,b] -> (,) <$> fromJSON a <*> fromJSON b
153− _ -> empty
154− fromJSON _ = empty
155− {-# INLINE fromJSON #-}
156−
157−
158−
159−
160−
161−
162−
163
150
151+import Data.Aeson.Encoding (Encoding, unsafeToEncoding, fromEncoding, Series, pairs)
152+import Data.Aeson.Types.Class
153+import Data.Aeson.Types.Internal
154+import Data.Foldable (toList)
164
155
156+-- | Encode a 'Foldable' as a JSON array.
157+foldable :: (Foldable t, ToJSON a) => t a -> Encoding
158+foldable = toEncoding . toList
159+{-# INLINE foldable #-}
165
160
161+-- $optionsFields
162+-- The functions here are in fact record fields of the 'Options' type.
Data/Aeson/Types/Class.hsnew file+109
@@ -0,0 +1,109 @@
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE ConstraintKinds #-}
3+{-# LANGUAGE FlexibleContexts #-}
4+{-# LANGUAGE FlexibleInstances #-}
5+{-# LANGUAGE GADTs #-}
6+{-# LANGUAGE MultiParamTypeClasses #-}
7+{-# LANGUAGE NoImplicitPrelude #-}
8+{-# LANGUAGE ScopedTypeVariables #-}
9+
10+-- |
11+-- Module: Data.Aeson.Types.Class
12+-- Copyright: (c) 2011-2016 Bryan O'Sullivan
13+-- (c) 2011 MailRank, Inc.
14+-- License: BSD3
15+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
16+-- Stability: experimental
17+-- Portability: portable
18+--
19+-- Types for working with JSON data.
20+
21+module Data.Aeson.Types.Class
22+ (
23+ -- * Core JSON classes
24+ FromJSON(..)
25+ , ToJSON(..)
26+ -- * Liftings to unary and binary type constructors
27+ , FromJSON1(..)
28+ , parseJSON1
29+ , FromJSON2(..)
30+ , parseJSON2
31+ , ToJSON1(..)
32+ , toJSON1
33+ , toEncoding1
34+ , ToJSON2(..)
35+ , toJSON2
36+ , toEncoding2
37+ -- * Generic JSON classes
38+ , GFromJSON(..)
39+ , FromArgs(..)
40+ , GToJSON
41+ , GToEncoding
42+ , ToArgs(..)
43+ , Zero
44+ , One
45+ , genericToJSON
46+ , genericLiftToJSON
47+ , genericToEncoding
48+ , genericLiftToEncoding
49+ , genericParseJSON
50+ , genericLiftParseJSON
51+ -- * Classes and types for map keys
52+ , ToJSONKey(..)
53+ , ToJSONKeyFunction(..)
54+ , toJSONKeyText
55+ , contramapToJSONKeyFunction
56+ , FromJSONKey(..)
57+ , FromJSONKeyFunction(..)
58+ , fromJSONKeyCoerce
59+ , coerceFromJSONKeyFunction
60+ , mapFromJSONKeyFunction
61+ -- ** Generic keys
62+ , GToJSONKey()
63+ , genericToJSONKey
64+ , GFromJSONKey()
65+ , genericFromJSONKey
66+ -- * Object key-value pairs
67+ , KeyValue(..)
68+
69+ -- * List functions
70+ , listEncoding
71+ , listValue
72+ , listParser
73+
74+ -- * Inspecting @'Value's@
75+ , withObject
76+ , withText
77+ , withArray
78+ , withScientific
79+ , withBool
80+ , withEmbeddedJSON
81+
82+ -- * Functions
83+ , fromJSON
84+ , ifromJSON
85+ , typeMismatch
86+ , unexpected
87+ , parseField
88+ , parseFieldMaybe
89+ , parseFieldMaybe'
90+ , explicitParseField
91+ , explicitParseFieldMaybe
92+ , explicitParseFieldMaybe'
93+ -- ** Operators
94+ , (.:)
95+ , (.:?)
96+ , (.:!)
97+ , (.!=)
98+ ) where
99+
100+
101+import Data.Aeson.Types.FromJSON
102+import Data.Aeson.Types.Generic (One, Zero)
103+import Data.Aeson.Types.ToJSON hiding (GToJSON)
104+import qualified Data.Aeson.Types.ToJSON as ToJSON
105+import Data.Aeson.Types.Internal (Value)
106+import Data.Aeson.Encoding (Encoding)
107+
108+type GToJSON = ToJSON.GToJSON Value
109+type GToEncoding = ToJSON.GToJSON Encoding
Data/Aeson/Types/FromJSON.hsnew file+2647
@@ -0,0 +1,2647 @@
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE DataKinds #-}
3+{-# LANGUAGE DefaultSignatures #-}
4+{-# LANGUAGE FlexibleContexts #-}
5+{-# LANGUAGE FlexibleInstances #-}
6+{-# LANGUAGE GADTs #-}
7+{-# LANGUAGE MultiParamTypeClasses #-}
8+{-# LANGUAGE NoImplicitPrelude #-}
9+{-# LANGUAGE OverloadedStrings #-}
10+{-# LANGUAGE PolyKinds #-}
11+{-# LANGUAGE RecordWildCards #-}
12+{-# LANGUAGE ScopedTypeVariables #-}
13+{-# LANGUAGE TypeOperators #-}
14+{-# LANGUAGE TupleSections #-}
15+{-# LANGUAGE UndecidableInstances #-}
16+{-# LANGUAGE ViewPatterns #-}
17+
18+#include "incoherent-compat.h"
19+#include "overlapping-compat.h"
20+
21+-- TODO: Drop this when we remove support for Data.Attoparsec.Number
22+{-# OPTIONS_GHC -fno-warn-deprecations #-}
23+
24+module Data.Aeson.Types.FromJSON
25+ (
26+ -- * Core JSON classes
27+ FromJSON(..)
28+ -- * Liftings to unary and binary type constructors
29+ , FromJSON1(..)
30+ , parseJSON1
31+ , FromJSON2(..)
32+ , parseJSON2
33+ -- * Generic JSON classes
34+ , GFromJSON(..)
35+ , FromArgs(..)
36+ , genericParseJSON
37+ , genericLiftParseJSON
38+ -- * Classes and types for map keys
39+ , FromJSONKey(..)
40+ , FromJSONKeyFunction(..)
41+ , fromJSONKeyCoerce
42+ , coerceFromJSONKeyFunction
43+ , mapFromJSONKeyFunction
44+
45+ , GFromJSONKey()
46+ , genericFromJSONKey
47+
48+ -- * List functions
49+ , listParser
50+
51+ -- * Inspecting @'Value's@
52+ , withObject
53+ , withText
54+ , withArray
55+ , withScientific
56+ , withBool
57+ , withEmbeddedJSON
58+
59+ -- * Functions
60+ , fromJSON
61+ , ifromJSON
62+ , typeMismatch
63+ , unexpected
64+ , parseField
65+ , parseFieldMaybe
66+ , parseFieldMaybe'
67+ , explicitParseField
68+ , explicitParseFieldMaybe
69+ , explicitParseFieldMaybe'
70+ , parseIndexedJSON
71+ -- ** Operators
72+ , (.:)
73+ , (.:?)
74+ , (.:!)
75+ , (.!=)
76+
77+ -- * Internal
78+ , parseOptionalFieldWith
79+ ) where
80+
81+import Prelude.Compat
82+
83+import Control.Applicative ((<|>), Const(..), liftA2)
84+import Control.Monad (zipWithM)
85+import Data.Aeson.Internal.Functions (mapKey)
86+import Data.Aeson.Parser.Internal (eitherDecodeWith, jsonEOF)
87+import Data.Aeson.Types.Generic
88+import Data.Aeson.Types.Internal
89+import Data.Bits (unsafeShiftR)
90+import Data.Fixed (Fixed, HasResolution (resolution), Nano)
91+import Data.Functor.Compose (Compose(..))
92+import Data.Functor.Identity (Identity(..))
93+import Data.Functor.Product (Product(..))
94+import Data.Functor.Sum (Sum(..))
95+import Data.Hashable (Hashable(..))
96+import Data.Int (Int16, Int32, Int64, Int8)
97+import Data.List.NonEmpty (NonEmpty(..))
98+import Data.Maybe (fromMaybe)
99+import Data.Semigroup ((<>))
100+import Data.Proxy (Proxy(..))
101+import Data.Ratio ((%), Ratio)
102+import Data.Scientific (Scientific, base10Exponent)
103+import Data.Tagged (Tagged(..))
104+import Data.Text (Text, pack, unpack)
105+import Data.Time (Day, DiffTime, LocalTime, NominalDiffTime, TimeOfDay, UTCTime, ZonedTime)
106+import Data.Time.Calendar.Compat (CalendarDiffDays (..), DayOfWeek (..))
107+import Data.Time.LocalTime.Compat (CalendarDiffTime (..))
108+import Data.Time.Clock.System.Compat (SystemTime (..))
109+import Data.Time.Format.Compat (parseTimeM, defaultTimeLocale)
110+import Data.Traversable as Tr (sequence)
111+import Data.Vector (Vector)
112+import Data.Version (Version, parseVersion)
113+import Data.Void (Void)
114+import Data.Word (Word16, Word32, Word64, Word8)
115+import Foreign.Storable (Storable)
116+import Foreign.C.Types (CTime (..))
117+import GHC.Generics
118+import Numeric.Natural (Natural)
119+import Text.ParserCombinators.ReadP (readP_to_S)
120+import Unsafe.Coerce (unsafeCoerce)
121+import qualified Data.Aeson.Parser.Time as Time
122+import qualified Data.Attoparsec.ByteString.Char8 as A (endOfInput, parseOnly, scientific)
123+import qualified Data.ByteString.Lazy as L
124+import qualified Data.DList as DList
125+import qualified Data.HashMap.Strict as H
126+import qualified Data.HashSet as HashSet
127+import qualified Data.IntMap as IntMap
128+import qualified Data.IntSet as IntSet
129+import qualified Data.Map as M
130+import qualified Data.Monoid as Monoid
131+import qualified Data.Scientific as Scientific
132+import qualified Data.Semigroup as Semigroup
133+import qualified Data.Sequence as Seq
134+import qualified Data.Set as Set
135+import qualified Data.Text as T
136+import qualified Data.Text.Encoding as T
137+import qualified Data.Text.Lazy as LT
138+import qualified Data.Tree as Tree
139+import qualified Data.UUID.Types as UUID
140+import qualified Data.Vector as V
141+import qualified Data.Vector.Generic as VG
142+import qualified Data.Vector.Primitive as VP
143+import qualified Data.Vector.Storable as VS
144+import qualified Data.Vector.Unboxed as VU
145+
146+import qualified GHC.Exts as Exts
147+import qualified Data.Primitive.Array as PM
148+import qualified Data.Primitive.SmallArray as PM
149+import qualified Data.Primitive.Types as PM
150+
151+#if MIN_VERSION_primitive(0,6,4)
152+#if !MIN_VERSION_primitive(0,7,0)
153+import qualified Data.Primitive.UnliftedArray as PM
154+#endif
155+import qualified Data.Primitive.PrimArray as PM
156+#endif
157+
158+
159+import Data.Coerce (Coercible, coerce)
160+
161+parseIndexedJSON :: (Value -> Parser a) -> Int -> Value -> Parser a
162+parseIndexedJSON p idx value = p value <?> Index idx
163+{-# INLINE parseIndexedJSON #-}
164+
165+parseIndexedJSONPair :: (Value -> Parser a) -> (Value -> Parser b) -> Int -> Value -> Parser (a, b)
166+parseIndexedJSONPair keyParser valParser idx value = p value <?> Index idx
167+ where
168+ p = withArray "(k, v)" $ \ab ->
169+ let n = V.length ab
170+ in if n == 2
171+ then (,) <$> parseJSONElemAtIndex keyParser 0 ab
172+ <*> parseJSONElemAtIndex valParser 1 ab
173+ else fail $ "cannot unpack array of length " ++
174+ show n ++ " into a pair"
175+{-# INLINE parseIndexedJSONPair #-}
176+
177+parseJSONElemAtIndex :: (Value -> Parser a) -> Int -> V.Vector Value -> Parser a
178+parseJSONElemAtIndex p idx ary = p (V.unsafeIndex ary idx) <?> Index idx
179+
180+parseRealFloat :: RealFloat a => String -> Value -> Parser a
181+parseRealFloat _ (Number s) = pure $ Scientific.toRealFloat s
182+parseRealFloat _ Null = pure (0/0)
183+parseRealFloat name v = prependContext name (unexpected v)
184+{-# INLINE parseRealFloat #-}
185+
186+parseIntegralFromScientific :: forall a. Integral a => Scientific -> Parser a
187+parseIntegralFromScientific s =
188+ case Scientific.floatingOrInteger s :: Either Double a of
189+ Right x -> pure x
190+ Left _ -> fail $ "unexpected floating number " ++ show s
191+{-# INLINE parseIntegralFromScientific #-}
192+
193+parseIntegral :: Integral a => String -> Value -> Parser a
194+parseIntegral name =
195+ prependContext name . withBoundedScientific' parseIntegralFromScientific
196+{-# INLINE parseIntegral #-}
197+
198+parseBoundedIntegralFromScientific :: (Bounded a, Integral a) => Scientific -> Parser a
199+parseBoundedIntegralFromScientific s = maybe
200+ (fail $ "value is either floating or will cause over or underflow " ++ show s)
201+ pure
202+ (Scientific.toBoundedInteger s)
203+{-# INLINE parseBoundedIntegralFromScientific #-}
204+
205+parseBoundedIntegral :: (Bounded a, Integral a) => String -> Value -> Parser a
206+parseBoundedIntegral name =
207+ prependContext name . withScientific' parseBoundedIntegralFromScientific
208+{-# INLINE parseBoundedIntegral #-}
209+
210+parseScientificText :: Text -> Parser Scientific
211+parseScientificText
212+ = either fail pure
213+ . A.parseOnly (A.scientific <* A.endOfInput)
214+ . T.encodeUtf8
215+
216+parseIntegralText :: Integral a => String -> Text -> Parser a
217+parseIntegralText name t =
218+ prependContext name $
219+ parseScientificText t
220+ >>= rejectLargeExponent
221+ >>= parseIntegralFromScientific
222+ where
223+ rejectLargeExponent :: Scientific -> Parser Scientific
224+ rejectLargeExponent s = withBoundedScientific' pure (Number s)
225+{-# INLINE parseIntegralText #-}
226+
227+parseBoundedIntegralText :: (Bounded a, Integral a) => String -> Text -> Parser a
228+parseBoundedIntegralText name t =
229+ prependContext name $
230+ parseScientificText t >>= parseBoundedIntegralFromScientific
231+
232+parseOptionalFieldWith :: (Value -> Parser (Maybe a))
233+ -> Object -> Text -> Parser (Maybe a)
234+parseOptionalFieldWith pj obj key =
235+ case H.lookup key obj of
236+ Nothing -> pure Nothing
237+ Just v -> pj v <?> Key key
238+{-# INLINE parseOptionalFieldWith #-}
239+
240+-------------------------------------------------------------------------------
241+-- Generics
242+-------------------------------------------------------------------------------
243+
244+-- | Class of generic representation types that can be converted from JSON.
245+class GFromJSON arity f where
246+ -- | This method (applied to 'defaultOptions') is used as the
247+ -- default generic implementation of 'parseJSON' (if the @arity@ is 'Zero')
248+ -- or 'liftParseJSON' (if the @arity@ is 'One').
249+ gParseJSON :: Options -> FromArgs arity a -> Value -> Parser (f a)
250+
251+-- | A 'FromArgs' value either stores nothing (for 'FromJSON') or it stores the
252+-- two function arguments that decode occurrences of the type parameter (for
253+-- 'FromJSON1').
254+data FromArgs arity a where
255+ NoFromArgs :: FromArgs Zero a
256+ From1Args :: (Value -> Parser a) -> (Value -> Parser [a]) -> FromArgs One a
257+
258+-- | A configurable generic JSON decoder. This function applied to
259+-- 'defaultOptions' is used as the default for 'parseJSON' when the
260+-- type is an instance of 'Generic'.
261+genericParseJSON :: (Generic a, GFromJSON Zero (Rep a))
262+ => Options -> Value -> Parser a
263+genericParseJSON opts = fmap to . gParseJSON opts NoFromArgs
264+
265+-- | A configurable generic JSON decoder. This function applied to
266+-- 'defaultOptions' is used as the default for 'liftParseJSON' when the
267+-- type is an instance of 'Generic1'.
268+genericLiftParseJSON :: (Generic1 f, GFromJSON One (Rep1 f))
269+ => Options -> (Value -> Parser a) -> (Value -> Parser [a])
270+ -> Value -> Parser (f a)
271+genericLiftParseJSON opts pj pjl = fmap to1 . gParseJSON opts (From1Args pj pjl)
272+
273+-------------------------------------------------------------------------------
274+-- Class
275+-------------------------------------------------------------------------------
276+
277+-- | A type that can be converted from JSON, with the possibility of
278+-- failure.
279+--
280+-- In many cases, you can get the compiler to generate parsing code
281+-- for you (see below). To begin, let's cover writing an instance by
282+-- hand.
283+--
284+-- There are various reasons a conversion could fail. For example, an
285+-- 'Object' could be missing a required key, an 'Array' could be of
286+-- the wrong size, or a value could be of an incompatible type.
287+--
288+-- The basic ways to signal a failed conversion are as follows:
289+--
290+-- * 'fail' yields a custom error message: it is the recommended way of
291+-- reporting a failure;
292+--
293+-- * 'Control.Applicative.empty' (or 'Control.Monad.mzero') is uninformative:
294+-- use it when the error is meant to be caught by some @('<|>')@;
295+--
296+-- * 'typeMismatch' can be used to report a failure when the encountered value
297+-- is not of the expected JSON type; 'unexpected' is an appropriate alternative
298+-- when more than one type may be expected, or to keep the expected type
299+-- implicit.
300+--
301+-- 'prependFailure' (or 'modifyFailure') add more information to a parser's
302+-- error messages.
303+--
304+-- An example type and instance using 'typeMismatch' and 'prependFailure':
305+--
306+-- @
307+-- \-- Allow ourselves to write 'Text' literals.
308+-- {-\# LANGUAGE OverloadedStrings #-}
309+--
310+-- data Coord = Coord { x :: Double, y :: Double }
311+--
312+-- instance 'FromJSON' Coord where
313+-- 'parseJSON' ('Object' v) = Coord
314+-- '<$>' v '.:' \"x\"
315+-- '<*>' v '.:' \"y\"
316+--
317+-- \-- We do not expect a non-'Object' value here.
318+-- \-- We could use 'Control.Applicative.empty' to fail, but 'typeMismatch'
319+-- \-- gives a much more informative error message.
320+-- 'parseJSON' invalid =
321+-- 'prependFailure' "parsing Coord failed, "
322+-- ('typeMismatch' \"Object\" invalid)
323+-- @
324+--
325+-- For this common case of only being concerned with a single
326+-- type of JSON value, the functions 'withObject', 'withScientific', etc.
327+-- are provided. Their use is to be preferred when possible, since
328+-- they are more terse. Using 'withObject', we can rewrite the above instance
329+-- (assuming the same language extension and data type) as:
330+--
331+-- @
332+-- instance 'FromJSON' Coord where
333+-- 'parseJSON' = 'withObject' \"Coord\" $ \\v -> Coord
334+-- '<$>' v '.:' \"x\"
335+-- '<*>' v '.:' \"y\"
336+-- @
337+--
338+-- Instead of manually writing your 'FromJSON' instance, there are two options
339+-- to do it automatically:
340+--
341+-- * "Data.Aeson.TH" provides Template Haskell functions which will derive an
342+-- instance at compile time. The generated instance is optimized for your type
343+-- so it will probably be more efficient than the following option.
344+--
345+-- * The compiler can provide a default generic implementation for
346+-- 'parseJSON'.
347+--
348+-- To use the second, simply add a @deriving 'Generic'@ clause to your
349+-- datatype and declare a 'FromJSON' instance for your datatype without giving
350+-- a definition for 'parseJSON'.
351+--
352+-- For example, the previous example can be simplified to just:
353+--
354+-- @
355+-- {-\# LANGUAGE DeriveGeneric \#-}
356+--
357+-- import "GHC.Generics"
358+--
359+-- data Coord = Coord { x :: Double, y :: Double } deriving 'Generic'
360+--
361+-- instance 'FromJSON' Coord
362+-- @
363+--
364+-- The default implementation will be equivalent to
365+-- @parseJSON = 'genericParseJSON' 'defaultOptions'@; if you need different
366+-- options, you can customize the generic decoding by defining:
367+--
368+-- @
369+-- customOptions = 'defaultOptions'
370+-- { 'fieldLabelModifier' = 'map' 'Data.Char.toUpper'
371+-- }
372+--
373+-- instance 'FromJSON' Coord where
374+-- 'parseJSON' = 'genericParseJSON' customOptions
375+-- @
376+class FromJSON a where
377+ parseJSON :: Value -> Parser a
378+
379+ default parseJSON :: (Generic a, GFromJSON Zero (Rep a)) => Value -> Parser a
380+ parseJSON = genericParseJSON defaultOptions
381+
382+ parseJSONList :: Value -> Parser [a]
383+ parseJSONList = withArray "[]" $ \a ->
384+ zipWithM (parseIndexedJSON parseJSON) [0..]
385+ . V.toList
386+ $ a
387+
388+-------------------------------------------------------------------------------
389+-- Classes and types for map keys
390+-------------------------------------------------------------------------------
391+
392+-- | Read the docs for 'ToJSONKey' first. This class is a conversion
393+-- in the opposite direction. If you have a newtype wrapper around 'Text',
394+-- the recommended way to define instances is with generalized newtype deriving:
395+--
396+-- > newtype SomeId = SomeId { getSomeId :: Text }
397+-- > deriving (Eq,Ord,Hashable,FromJSONKey)
398+--
399+-- If you have a sum of nullary constructors, you may use the generic
400+-- implementation:
401+--
402+-- @
403+-- data Color = Red | Green | Blue
404+-- deriving Generic
405+--
406+-- instance 'FromJSONKey' Color where
407+-- 'fromJSONKey' = 'genericFromJSONKey' 'defaultJSONKeyOptions'
408+-- @
409+class FromJSONKey a where
410+ -- | Strategy for parsing the key of a map-like container.
411+ fromJSONKey :: FromJSONKeyFunction a
412+ default fromJSONKey :: FromJSON a => FromJSONKeyFunction a
413+ fromJSONKey = FromJSONKeyValue parseJSON
414+
415+ -- | This is similar in spirit to the 'readList' method of 'Read'.
416+ -- It makes it possible to give 'String' keys special treatment
417+ -- without using @OverlappingInstances@. End users should always
418+ -- be able to use the default implementation of this method.
419+ fromJSONKeyList :: FromJSONKeyFunction [a]
420+ default fromJSONKeyList :: FromJSON a => FromJSONKeyFunction [a]
421+ fromJSONKeyList = FromJSONKeyValue parseJSON
422+
423+-- | With GHC 7.8+ we carry around @'Coercible' 'Text' a@ dictionary,
424+-- to give us an assurance that the program will not segfault.
425+-- Unfortunately we cannot enforce that the 'Eq' instances or the
426+-- 'Hashable' instances for 'Text' and @a@ agree.
427+--
428+-- At the moment this type is intentionally not exported. 'FromJSONKeyFunction'
429+-- can be inspected, but cannot be constructed.
430+data CoerceText a where
431+ CoerceText :: Coercible Text a => CoerceText a
432+
433+-- | This type is related to 'ToJSONKeyFunction'. If 'FromJSONKeyValue' is used in the
434+-- 'FromJSONKey' instance, then 'ToJSONKeyValue' should be used in the 'ToJSONKey'
435+-- instance. The other three data constructors for this type all correspond to
436+-- 'ToJSONKeyText'. Strictly speaking, 'FromJSONKeyTextParser' is more powerful than
437+-- 'FromJSONKeyText', which is in turn more powerful than 'FromJSONKeyCoerce'.
438+-- For performance reasons, these exist as three options instead of one.
439+data FromJSONKeyFunction a
440+ = FromJSONKeyCoerce !(CoerceText a)
441+ -- ^ uses 'coerce' ('unsafeCoerce' in older GHCs)
442+ | FromJSONKeyText !(Text -> a)
443+ -- ^ conversion from 'Text' that always succeeds
444+ | FromJSONKeyTextParser !(Text -> Parser a)
445+ -- ^ conversion from 'Text' that may fail
446+ | FromJSONKeyValue !(Value -> Parser a)
447+ -- ^ conversion for non-textual keys
448+
449+-- | Only law abiding up to interpretation
450+instance Functor FromJSONKeyFunction where
451+ fmap h (FromJSONKeyCoerce CoerceText) = FromJSONKeyText (h . coerce)
452+ fmap h (FromJSONKeyText f) = FromJSONKeyText (h . f)
453+ fmap h (FromJSONKeyTextParser f) = FromJSONKeyTextParser (fmap h . f)
454+ fmap h (FromJSONKeyValue f) = FromJSONKeyValue (fmap h . f)
455+
456+-- | Construct 'FromJSONKeyFunction' for types coercible from 'Text'. This
457+-- conversion is still unsafe, as 'Hashable' and 'Eq' instances of @a@ should be
458+-- compatible with 'Text' i.e. hash values should be equal for wrapped values as well.
459+-- This property will always be maintained if the 'Hashable' and 'Eq' instances
460+-- are derived with generalized newtype deriving.
461+-- compatible with 'Text' i.e. hash values be equal for wrapped values as well.
462+--
463+-- On pre GHC 7.8 this is unconstrainted function.
464+fromJSONKeyCoerce ::
465+ Coercible Text a =>
466+ FromJSONKeyFunction a
467+fromJSONKeyCoerce = FromJSONKeyCoerce CoerceText
468+
469+-- | Semantically the same as @coerceFromJSONKeyFunction = fmap coerce = coerce@.
470+--
471+-- See note on 'fromJSONKeyCoerce'.
472+coerceFromJSONKeyFunction ::
473+ Coercible a b =>
474+ FromJSONKeyFunction a -> FromJSONKeyFunction b
475+coerceFromJSONKeyFunction = coerce
476+
477+{-# RULES
478+ "FromJSONKeyCoerce: fmap id" forall (x :: FromJSONKeyFunction a).
479+ fmap id x = x
480+ #-}
481+{-# RULES
482+ "FromJSONKeyCoerce: fmap coerce" forall x .
483+ fmap coerce x = coerceFromJSONKeyFunction x
484+ #-}
485+
486+-- | Same as 'fmap'. Provided for the consistency with 'ToJSONKeyFunction'.
487+mapFromJSONKeyFunction :: (a -> b) -> FromJSONKeyFunction a -> FromJSONKeyFunction b
488+mapFromJSONKeyFunction = fmap
489+
490+-- | 'fromJSONKey' for 'Generic' types.
491+-- These types must be sums of nullary constructors, whose names will be used
492+-- as keys for JSON objects.
493+--
494+-- See also 'genericToJSONKey'.
495+--
496+-- === __Example__
497+--
498+-- @
499+-- data Color = Red | Green | Blue
500+-- deriving 'Generic'
501+--
502+-- instance 'FromJSONKey' Color where
503+-- 'fromJSONKey' = 'genericFromJSONKey' 'defaultJSONKeyOptions'
504+-- @
505+genericFromJSONKey :: forall a. (Generic a, GFromJSONKey (Rep a))
506+ => JSONKeyOptions
507+ -> FromJSONKeyFunction a
508+genericFromJSONKey opts = FromJSONKeyTextParser $ \t ->
509+ case parseSumFromString (keyModifier opts) t of
510+ Nothing -> fail $
511+ "invalid key " ++ show t ++ ", expected one of " ++ show cnames
512+ Just k -> pure (to k)
513+ where
514+ cnames = unTagged2 (constructorTags (keyModifier opts) :: Tagged2 (Rep a) [String])
515+
516+class (ConstructorNames f, SumFromString f) => GFromJSONKey f where
517+instance (ConstructorNames f, SumFromString f) => GFromJSONKey f where
518+
519+-------------------------------------------------------------------------------
520+-- Functions needed for documentation
521+-------------------------------------------------------------------------------
522+
523+-- | Fail parsing due to a type mismatch, with a descriptive message.
524+--
525+-- The following wrappers should generally be prefered:
526+-- 'withObject', 'withArray', 'withText', 'withBool'.
527+--
528+-- ==== Error message example
529+--
530+-- > typeMismatch "Object" (String "oops")
531+-- > -- Error: "expected Object, but encountered String"
532+typeMismatch :: String -- ^ The name of the JSON type being parsed
533+ -- (@\"Object\"@, @\"Array\"@, @\"String\"@, @\"Number\"@,
534+ -- @\"Boolean\"@, or @\"Null\"@).
535+ -> Value -- ^ The actual value encountered.
536+ -> Parser a
537+typeMismatch expected actual =
538+ fail $ "expected " ++ expected ++ ", but encountered " ++ typeOf actual
539+
540+-- | Fail parsing due to a type mismatch, when the expected types are implicit.
541+--
542+-- ==== Error message example
543+--
544+-- > unexpected (String "oops")
545+-- > -- Error: "unexpected String"
546+unexpected :: Value -> Parser a
547+unexpected actual = fail $ "unexpected " ++ typeOf actual
548+
549+-- | JSON type of a value, name of the head constructor.
550+typeOf :: Value -> String
551+typeOf v = case v of
552+ Object _ -> "Object"
553+ Array _ -> "Array"
554+ String _ -> "String"
555+ Number _ -> "Number"
556+ Bool _ -> "Boolean"
557+ Null -> "Null"
558+
559+-------------------------------------------------------------------------------
560+-- Lifings of FromJSON and ToJSON to unary and binary type constructors
561+-------------------------------------------------------------------------------
562+
563+-- | Lifting of the 'FromJSON' class to unary type constructors.
564+--
565+-- Instead of manually writing your 'FromJSON1' instance, there are two options
566+-- to do it automatically:
567+--
568+-- * "Data.Aeson.TH" provides Template Haskell functions which will derive an
569+-- instance at compile time. The generated instance is optimized for your type
570+-- so it will probably be more efficient than the following option.
571+--
572+-- * The compiler can provide a default generic implementation for
573+-- 'liftParseJSON'.
574+--
575+-- To use the second, simply add a @deriving 'Generic1'@ clause to your
576+-- datatype and declare a 'FromJSON1' instance for your datatype without giving
577+-- a definition for 'liftParseJSON'.
578+--
579+-- For example:
580+--
581+-- @
582+-- {-\# LANGUAGE DeriveGeneric \#-}
583+--
584+-- import "GHC.Generics"
585+--
586+-- data Pair a b = Pair { pairFst :: a, pairSnd :: b } deriving 'Generic1'
587+--
588+-- instance 'FromJSON' a => 'FromJSON1' (Pair a)
589+-- @
590+--
591+-- If the default implementation doesn't give exactly the results you want,
592+-- you can customize the generic decoding with only a tiny amount of
593+-- effort, using 'genericLiftParseJSON' with your preferred 'Options':
594+--
595+-- @
596+-- customOptions = 'defaultOptions'
597+-- { 'fieldLabelModifier' = 'map' 'Data.Char.toUpper'
598+-- }
599+--
600+-- instance 'FromJSON' a => 'FromJSON1' (Pair a) where
601+-- 'liftParseJSON' = 'genericLiftParseJSON' customOptions
602+-- @
603+class FromJSON1 f where
604+ liftParseJSON :: (Value -> Parser a) -> (Value -> Parser [a]) -> Value -> Parser (f a)
605+
606+ default liftParseJSON :: (Generic1 f, GFromJSON One (Rep1 f))
607+ => (Value -> Parser a) -> (Value -> Parser [a]) -> Value -> Parser (f a)
608+ liftParseJSON = genericLiftParseJSON defaultOptions
609+
610+ liftParseJSONList :: (Value -> Parser a) -> (Value -> Parser [a]) -> Value -> Parser [f a]
611+ liftParseJSONList f g v = listParser (liftParseJSON f g) v
612+
613+-- | Lift the standard 'parseJSON' function through the type constructor.
614+parseJSON1 :: (FromJSON1 f, FromJSON a) => Value -> Parser (f a)
615+parseJSON1 = liftParseJSON parseJSON parseJSONList
616+{-# INLINE parseJSON1 #-}
617+
618+-- | Lifting of the 'FromJSON' class to binary type constructors.
619+--
620+-- Instead of manually writing your 'FromJSON2' instance, "Data.Aeson.TH"
621+-- provides Template Haskell functions which will derive an instance at compile time.
622+
623+-- The compiler cannot provide a default generic implementation for 'liftParseJSON2',
624+-- unlike 'parseJSON' and 'liftParseJSON'.
625+class FromJSON2 f where
626+ liftParseJSON2
627+ :: (Value -> Parser a)
628+ -> (Value -> Parser [a])
629+ -> (Value -> Parser b)
630+ -> (Value -> Parser [b])
631+ -> Value -> Parser (f a b)
632+ liftParseJSONList2
633+ :: (Value -> Parser a)
634+ -> (Value -> Parser [a])
635+ -> (Value -> Parser b)
636+ -> (Value -> Parser [b])
637+ -> Value -> Parser [f a b]
638+ liftParseJSONList2 fa ga fb gb = withArray "[]" $ \vals ->
639+ fmap V.toList (V.mapM (liftParseJSON2 fa ga fb gb) vals)
640+
641+-- | Lift the standard 'parseJSON' function through the type constructor.
642+parseJSON2 :: (FromJSON2 f, FromJSON a, FromJSON b) => Value -> Parser (f a b)
643+parseJSON2 = liftParseJSON2 parseJSON parseJSONList parseJSON parseJSONList
644+{-# INLINE parseJSON2 #-}
645+
646+-------------------------------------------------------------------------------
647+-- List functions
648+-------------------------------------------------------------------------------
649+
650+-- | Helper function to use with 'liftParseJSON'. See 'Data.Aeson.ToJSON.listEncoding'.
651+listParser :: (Value -> Parser a) -> Value -> Parser [a]
652+listParser f (Array xs) = fmap V.toList (V.mapM f xs)
653+listParser _ v = typeMismatch "Array" v
654+{-# INLINE listParser #-}
655+
656+-------------------------------------------------------------------------------
657+-- [] instances
658+-------------------------------------------------------------------------------
659+
660+instance FromJSON1 [] where
661+ liftParseJSON _ p' = p'
662+ {-# INLINE liftParseJSON #-}
663+
664+instance (FromJSON a) => FromJSON [a] where
665+ parseJSON = parseJSON1
666+
667+-------------------------------------------------------------------------------
668+-- Functions
669+-------------------------------------------------------------------------------
670+
671+-- | Add context to a failure message, indicating the name of the structure
672+-- being parsed.
673+--
674+-- > prependContext "MyType" (fail "[error message]")
675+-- > -- Error: "parsing MyType failed, [error message]"
676+prependContext :: String -> Parser a -> Parser a
677+prependContext name = prependFailure ("parsing " ++ name ++ " failed, ")
678+
679+-- | @'withObject' name f value@ applies @f@ to the 'Object' when @value@
680+-- is an 'Data.Aeson.Object' and fails otherwise.
681+--
682+-- ==== Error message example
683+--
684+-- > withObject "MyType" f (String "oops")
685+-- > -- Error: "parsing MyType failed, expected Object, but encountered String"
686+withObject :: String -> (Object -> Parser a) -> Value -> Parser a
687+withObject _ f (Object obj) = f obj
688+withObject name _ v = prependContext name (typeMismatch "Object" v)
689+{-# INLINE withObject #-}
690+
691+-- | @'withText' name f value@ applies @f@ to the 'Text' when @value@ is a
692+-- 'Data.Aeson.String' and fails otherwise.
693+--
694+-- ==== Error message example
695+--
696+-- > withText "MyType" f Null
697+-- > -- Error: "parsing MyType failed, expected String, but encountered Null"
698+withText :: String -> (Text -> Parser a) -> Value -> Parser a
699+withText _ f (String txt) = f txt
700+withText name _ v = prependContext name (typeMismatch "String" v)
701+{-# INLINE withText #-}
702+
703+-- | @'withArray' expected f value@ applies @f@ to the 'Array' when @value@ is
704+-- an 'Data.Aeson.Array' and fails otherwise.
705+--
706+-- ==== Error message example
707+--
708+-- > withArray "MyType" f (String "oops")
709+-- > -- Error: "parsing MyType failed, expected Array, but encountered String"
710+withArray :: String -> (Array -> Parser a) -> Value -> Parser a
711+withArray _ f (Array arr) = f arr
712+withArray name _ v = prependContext name (typeMismatch "Array" v)
713+{-# INLINE withArray #-}
714+
715+-- | @'withScientific' name f value@ applies @f@ to the 'Scientific' number
716+-- when @value@ is a 'Data.Aeson.Number' and fails using 'typeMismatch'
717+-- otherwise.
718+--
719+-- /Warning/: If you are converting from a scientific to an unbounded
720+-- type such as 'Integer' you may want to add a restriction on the
721+-- size of the exponent (see 'withBoundedScientific') to prevent
722+-- malicious input from filling up the memory of the target system.
723+--
724+-- ==== Error message example
725+--
726+-- > withScientific "MyType" f (String "oops")
727+-- > -- Error: "parsing MyType failed, expected Number, but encountered String"
728+withScientific :: String -> (Scientific -> Parser a) -> Value -> Parser a
729+withScientific _ f (Number scientific) = f scientific
730+withScientific name _ v = prependContext name (typeMismatch "Number" v)
731+{-# INLINE withScientific #-}
732+
733+-- | A variant of 'withScientific' which doesn't use 'prependContext', so that
734+-- such context can be added separately in a way that also applies when the
735+-- continuation @f :: Scientific -> Parser a@ fails.
736+--
737+-- /Warning/: If you are converting from a scientific to an unbounded
738+-- type such as 'Integer' you may want to add a restriction on the
739+-- size of the exponent (see 'withBoundedScientific') to prevent
740+-- malicious input from filling up the memory of the target system.
741+--
742+-- ==== Error message examples
743+--
744+-- > withScientific' f (String "oops")
745+-- > -- Error: "unexpected String"
746+-- >
747+-- > prependContext "MyType" (withScientific' f (String "oops"))
748+-- > -- Error: "parsing MyType failed, unexpected String"
749+withScientific' :: (Scientific -> Parser a) -> Value -> Parser a
750+withScientific' f v = case v of
751+ Number n -> f n
752+ _ -> typeMismatch "Number" v
753+{-# INLINE withScientific' #-}
754+
755+-- | @'withBoundedScientific' name f value@ applies @f@ to the 'Scientific' number
756+-- when @value@ is a 'Number' with exponent less than or equal to 1024.
757+withBoundedScientific :: String -> (Scientific -> Parser a) -> Value -> Parser a
758+withBoundedScientific name f v = withBoundedScientific_ (prependContext name) f v
759+{-# INLINE withBoundedScientific #-}
760+
761+-- | A variant of 'withBoundedScientific' which doesn't use 'prependContext',
762+-- so that such context can be added separately in a way that also applies
763+-- when the continuation @f :: Scientific -> Parser a@ fails.
764+withBoundedScientific' :: (Scientific -> Parser a) -> Value -> Parser a
765+withBoundedScientific' f v = withBoundedScientific_ id f v
766+{-# INLINE withBoundedScientific' #-}
767+
768+-- | A variant of 'withBoundedScientific_' parameterized by a function to apply
769+-- to the 'Parser' in case of failure.
770+withBoundedScientific_ :: (Parser a -> Parser a) -> (Scientific -> Parser a) -> Value -> Parser a
771+withBoundedScientific_ whenFail f (Number scientific) =
772+ if exp10 > 1024
773+ then whenFail (fail msg)
774+ else f scientific
775+ where
776+ exp10 = base10Exponent scientific
777+ msg = "found a number with exponent " ++ show exp10 ++ ", but it must not be greater than 1024"
778+withBoundedScientific_ whenFail _ v =
779+ whenFail (typeMismatch "Number" v)
780+{-# INLINE withBoundedScientific_ #-}
781+
782+-- | @'withBool' expected f value@ applies @f@ to the 'Bool' when @value@ is a
783+-- 'Boolean' and fails otherwise.
784+--
785+-- ==== Error message example
786+--
787+-- > withBool "MyType" f (String "oops")
788+-- > -- Error: "parsing MyType failed, expected Boolean, but encountered String"
789+withBool :: String -> (Bool -> Parser a) -> Value -> Parser a
790+withBool _ f (Bool arr) = f arr
791+withBool name _ v = prependContext name (typeMismatch "Boolean" v)
792+{-# INLINE withBool #-}
793+
794+-- | Decode a nested JSON-encoded string.
795+withEmbeddedJSON :: String -> (Value -> Parser a) -> Value -> Parser a
796+withEmbeddedJSON _ innerParser (String txt) =
797+ either fail innerParser $ eitherDecode (L.fromStrict $ T.encodeUtf8 txt)
798+ where
799+ eitherDecode = eitherFormatError . eitherDecodeWith jsonEOF ifromJSON
800+ eitherFormatError = either (Left . uncurry formatError) Right
801+withEmbeddedJSON name _ v = prependContext name (typeMismatch "String" v)
802+{-# INLINE withEmbeddedJSON #-}
803+
804+-- | Convert a value from JSON, failing if the types do not match.
805+fromJSON :: (FromJSON a) => Value -> Result a
806+fromJSON = parse parseJSON
807+{-# INLINE fromJSON #-}
808+
809+-- | Convert a value from JSON, failing if the types do not match.
810+ifromJSON :: (FromJSON a) => Value -> IResult a
811+ifromJSON = iparse parseJSON
812+{-# INLINE ifromJSON #-}
813+
814+-- | Retrieve the value associated with the given key of an 'Object'.
815+-- The result is 'empty' if the key is not present or the value cannot
816+-- be converted to the desired type.
817+--
818+-- This accessor is appropriate if the key and value /must/ be present
819+-- in an object for it to be valid. If the key and value are
820+-- optional, use '.:?' instead.
821+(.:) :: (FromJSON a) => Object -> Text -> Parser a
822+(.:) = explicitParseField parseJSON
823+{-# INLINE (.:) #-}
824+
825+-- | Retrieve the value associated with the given key of an 'Object'. The
826+-- result is 'Nothing' if the key is not present or if its value is 'Null',
827+-- or 'empty' if the value cannot be converted to the desired type.
828+--
829+-- This accessor is most useful if the key and value can be absent
830+-- from an object without affecting its validity. If the key and
831+-- value are mandatory, use '.:' instead.
832+(.:?) :: (FromJSON a) => Object -> Text -> Parser (Maybe a)
833+(.:?) = explicitParseFieldMaybe parseJSON
834+{-# INLINE (.:?) #-}
835+
836+-- | Retrieve the value associated with the given key of an 'Object'.
837+-- The result is 'Nothing' if the key is not present or 'empty' if the
838+-- value cannot be converted to the desired type.
839+--
840+-- This differs from '.:?' by attempting to parse 'Null' the same as any
841+-- other JSON value, instead of interpreting it as 'Nothing'.
842+(.:!) :: (FromJSON a) => Object -> Text -> Parser (Maybe a)
843+(.:!) = explicitParseFieldMaybe' parseJSON
844+{-# INLINE (.:!) #-}
845+
846+-- | Function variant of '.:'.
847+parseField :: (FromJSON a) => Object -> Text -> Parser a
848+parseField = (.:)
849+{-# INLINE parseField #-}
850+
851+-- | Function variant of '.:?'.
852+parseFieldMaybe :: (FromJSON a) => Object -> Text -> Parser (Maybe a)
853+parseFieldMaybe = (.:?)
854+{-# INLINE parseFieldMaybe #-}
855+
856+-- | Function variant of '.:!'.
857+parseFieldMaybe' :: (FromJSON a) => Object -> Text -> Parser (Maybe a)
858+parseFieldMaybe' = (.:!)
859+{-# INLINE parseFieldMaybe' #-}
860+
861+-- | Variant of '.:' with explicit parser function.
862+--
863+-- E.g. @'explicitParseField' 'parseJSON1' :: ('FromJSON1' f, 'FromJSON' a) -> 'Object' -> 'Text' -> 'Parser' (f a)@
864+explicitParseField :: (Value -> Parser a) -> Object -> Text -> Parser a
865+explicitParseField p obj key = case H.lookup key obj of
866+ Nothing -> fail $ "key " ++ show key ++ " not found"
867+ Just v -> p v <?> Key key
868+{-# INLINE explicitParseField #-}
869+
870+-- | Variant of '.:?' with explicit parser function.
871+explicitParseFieldMaybe :: (Value -> Parser a) -> Object -> Text -> Parser (Maybe a)
872+explicitParseFieldMaybe p obj key = case H.lookup key obj of
873+ Nothing -> pure Nothing
874+ Just v -> liftParseJSON p (listParser p) v <?> Key key -- listParser isn't used by maybe instance.
875+{-# INLINE explicitParseFieldMaybe #-}
876+
877+-- | Variant of '.:!' with explicit parser function.
878+explicitParseFieldMaybe' :: (Value -> Parser a) -> Object -> Text -> Parser (Maybe a)
879+explicitParseFieldMaybe' p obj key = case H.lookup key obj of
880+ Nothing -> pure Nothing
881+ Just v -> Just <$> p v <?> Key key
882+{-# INLINE explicitParseFieldMaybe' #-}
883+
884+-- | Helper for use in combination with '.:?' to provide default
885+-- values for optional JSON object fields.
886+--
887+-- This combinator is most useful if the key and value can be absent
888+-- from an object without affecting its validity and we know a default
889+-- value to assign in that case. If the key and value are mandatory,
890+-- use '.:' instead.
891+--
892+-- Example usage:
893+--
894+-- @ v1 <- o '.:?' \"opt_field_with_dfl\" .!= \"default_val\"
895+-- v2 <- o '.:' \"mandatory_field\"
896+-- v3 <- o '.:?' \"opt_field2\"
897+-- @
898+(.!=) :: Parser (Maybe a) -> a -> Parser a
899+pmval .!= val = fromMaybe val <$> pmval
900+{-# INLINE (.!=) #-}
901+
902+--------------------------------------------------------------------------------
903+-- Generic parseJSON
904+-------------------------------------------------------------------------------
905+
906+instance GFromJSON arity V1 where
907+ -- Whereof we cannot format, thereof we cannot parse:
908+ gParseJSON _ _ _ = fail "Attempted to parse empty type"
909+
910+
911+instance OVERLAPPABLE_ (GFromJSON arity a) => GFromJSON arity (M1 i c a) where
912+ -- Meta-information, which is not handled elsewhere, is just added to the
913+ -- parsed value:
914+ gParseJSON opts fargs = fmap M1 . gParseJSON opts fargs
915+
916+-- Information for error messages
917+
918+type TypeName = String
919+type ConName = String
920+
921+-- | Add the name of the type being parsed to a parser's error messages.
922+contextType :: TypeName -> Parser a -> Parser a
923+contextType = prependContext
924+
925+-- | Add the tagKey that will be looked up while building an ADT
926+-- | Produce the error equivalent to
927+-- | Left "Error in $: parsing T failed, expected an object with keys "tag" and
928+-- | "contents", where "tag" i-- |s associated to one of ["Foo", "Bar"],
929+-- | The parser returned error was: could not find key "tag"
930+contextTag :: Text -> [String] -> Parser a -> Parser a
931+contextTag tagKey cnames = prependFailure
932+ ("expected Object with key \"" ++ unpack tagKey ++ "\"" ++
933+ " containing one of " ++ show cnames ++ ", ")
934+
935+-- | Add the name of the constructor being parsed to a parser's error messages.
936+contextCons :: ConName -> TypeName -> Parser a -> Parser a
937+contextCons cname tname = prependContext (showCons cname tname)
938+
939+-- | Render a constructor as @\"MyType(MyConstructor)\"@.
940+showCons :: ConName -> TypeName -> String
941+showCons cname tname = tname ++ "(" ++ cname ++ ")"
942+
943+--------------------------------------------------------------------------------
944+
945+-- Parsing single fields
946+
947+instance (FromJSON a) => GFromJSON arity (K1 i a) where
948+ -- Constant values are decoded using their FromJSON instance:
949+ gParseJSON _opts _ = fmap K1 . parseJSON
950+
951+instance GFromJSON One Par1 where
952+ -- Direct occurrences of the last type parameter are decoded with the
953+ -- function passed in as an argument:
954+ gParseJSON _opts (From1Args pj _) = fmap Par1 . pj
955+
956+instance (FromJSON1 f) => GFromJSON One (Rec1 f) where
957+ -- Recursive occurrences of the last type parameter are decoded using their
958+ -- FromJSON1 instance:
959+ gParseJSON _opts (From1Args pj pjl) = fmap Rec1 . liftParseJSON pj pjl
960+
961+instance (FromJSON1 f, GFromJSON One g) => GFromJSON One (f :.: g) where
962+ -- If an occurrence of the last type parameter is nested inside two
963+ -- composed types, it is decoded by using the outermost type's FromJSON1
964+ -- instance to generically decode the innermost type:
965+ gParseJSON opts fargs =
966+ let gpj = gParseJSON opts fargs in
967+ fmap Comp1 . liftParseJSON gpj (listParser gpj)
968+
969+--------------------------------------------------------------------------------
970+
971+instance (GFromJSON' arity a, Datatype d) => GFromJSON arity (D1 d a) where
972+ -- Meta-information, which is not handled elsewhere, is just added to the
973+ -- parsed value:
974+ gParseJSON opts fargs = fmap M1 . gParseJSON' (tname :* opts :* fargs)
975+ where
976+ tname = moduleName proxy ++ "." ++ datatypeName proxy
977+ proxy = undefined :: M1 _i d _f _p
978+
979+-- | 'GFromJSON', after unwrapping the 'D1' constructor, now carrying the data
980+-- type's name.
981+class GFromJSON' arity f where
982+ gParseJSON' :: TypeName :* Options :* FromArgs arity a
983+ -> Value
984+ -> Parser (f a)
985+
986+-- | Single constructor.
987+instance ( ConsFromJSON arity a
988+ , AllNullary (C1 c a) allNullary
989+ , ParseSum arity (C1 c a) allNullary
990+ , Constructor c
991+ ) => GFromJSON' arity (C1 c a) where
992+ -- The option 'tagSingleConstructors' determines whether to wrap
993+ -- a single-constructor type.
994+ gParseJSON' p@(_ :* opts :* _)
995+ | tagSingleConstructors opts
996+ = (unTagged :: Tagged allNullary (Parser (C1 c a p)) -> Parser (C1 c a p))
997+ . parseSum p
998+ | otherwise = fmap M1 . consParseJSON (cname :* p)
999+ where
1000+ cname = conName (undefined :: M1 _i c _f _p)
1001+
1002+-- | Multiple constructors.
1003+instance ( AllNullary (a :+: b) allNullary
1004+ , ParseSum arity (a :+: b) allNullary
1005+ ) => GFromJSON' arity (a :+: b) where
1006+ -- If all constructors of a sum datatype are nullary and the
1007+ -- 'allNullaryToStringTag' option is set they are expected to be
1008+ -- encoded as strings. This distinction is made by 'parseSum':
1009+ gParseJSON' p =
1010+ (unTagged :: Tagged allNullary (Parser ((a :+: b) _d)) ->
1011+ Parser ((a :+: b) _d))
1012+ . parseSum p
1013+
1014+--------------------------------------------------------------------------------
1015+
1016+class ParseSum arity f allNullary where
1017+ parseSum :: TypeName :* Options :* FromArgs arity a
1018+ -> Value
1019+ -> Tagged allNullary (Parser (f a))
1020+
1021+instance ( ConstructorNames f
1022+ , SumFromString f
1023+ , FromPair arity f
1024+ , FromTaggedObject arity f
1025+ , FromUntaggedValue arity f
1026+ ) => ParseSum arity f True where
1027+ parseSum p@(tname :* opts :* _)
1028+ | allNullaryToStringTag opts = Tagged . parseAllNullarySum tname opts
1029+ | otherwise = Tagged . parseNonAllNullarySum p
1030+
1031+instance ( ConstructorNames f
1032+ , FromPair arity f
1033+ , FromTaggedObject arity f
1034+ , FromUntaggedValue arity f
1035+ ) => ParseSum arity f False where
1036+ parseSum p = Tagged . parseNonAllNullarySum p
1037+
1038+--------------------------------------------------------------------------------
1039+
1040+parseAllNullarySum :: (SumFromString f, ConstructorNames f)
1041+ => TypeName -> Options -> Value -> Parser (f a)
1042+parseAllNullarySum tname opts =
1043+ withText tname $ \tag ->
1044+ maybe (badTag tag) return $
1045+ parseSumFromString modifier tag
1046+ where
1047+ badTag tag = failWithCTags tname modifier $ \cnames ->
1048+ "expected one of the tags " ++ show cnames ++
1049+ ", but found tag " ++ show tag
1050+ modifier = constructorTagModifier opts
1051+
1052+-- | Fail with an informative error message about a mismatched tag.
1053+-- The error message is parameterized by the list of expected tags,
1054+-- to be inferred from the result type of the parser.
1055+failWithCTags
1056+ :: forall f a t. ConstructorNames f
1057+ => TypeName -> (String -> t) -> ([t] -> String) -> Parser (f a)
1058+failWithCTags tname modifier f =
1059+ contextType tname . fail $ f cnames
1060+ where
1061+ cnames = unTagged2 (constructorTags modifier :: Tagged2 f [t])
1062+
1063+class SumFromString f where
1064+ parseSumFromString :: (String -> String) -> Text -> Maybe (f a)
1065+
1066+instance (SumFromString a, SumFromString b) => SumFromString (a :+: b) where
1067+ parseSumFromString opts key = (L1 <$> parseSumFromString opts key) <|>
1068+ (R1 <$> parseSumFromString opts key)
1069+
1070+instance (Constructor c) => SumFromString (C1 c U1) where
1071+ parseSumFromString modifier key
1072+ | key == name = Just $ M1 U1
1073+ | otherwise = Nothing
1074+ where
1075+ name = pack $ modifier $ conName (undefined :: M1 _i c _f _p)
1076+
1077+-- For genericFromJSONKey
1078+instance SumFromString a => SumFromString (D1 d a) where
1079+ parseSumFromString modifier key = M1 <$> parseSumFromString modifier key
1080+
1081+-- | List of all constructor tags.
1082+constructorTags :: ConstructorNames a => (String -> t) -> Tagged2 a [t]
1083+constructorTags modifier =
1084+ fmap DList.toList (constructorNames' modifier)
1085+
1086+-- | List of all constructor names of an ADT, after a given conversion
1087+-- function. (Better inlining.)
1088+class ConstructorNames a where
1089+ constructorNames' :: (String -> t) -> Tagged2 a (DList.DList t)
1090+
1091+instance (ConstructorNames a, ConstructorNames b) => ConstructorNames (a :+: b) where
1092+ constructorNames' = liftA2 append constructorNames' constructorNames'
1093+ where
1094+ append
1095+ :: Tagged2 a (DList.DList t)
1096+ -> Tagged2 b (DList.DList t)
1097+ -> Tagged2 (a :+: b) (DList.DList t)
1098+ append (Tagged2 xs) (Tagged2 ys) = Tagged2 (DList.append xs ys)
1099+
1100+instance Constructor c => ConstructorNames (C1 c a) where
1101+ constructorNames' f = Tagged2 (pure (f cname))
1102+ where
1103+ cname = conName (undefined :: M1 _i c _f _p)
1104+
1105+-- For genericFromJSONKey
1106+instance ConstructorNames a => ConstructorNames (D1 d a) where
1107+ constructorNames' = retag . constructorNames'
1108+ where
1109+ retag :: Tagged2 a u -> Tagged2 (D1 d a) u
1110+ retag (Tagged2 x) = Tagged2 x
1111+
1112+--------------------------------------------------------------------------------
1113+parseNonAllNullarySum :: forall f c arity.
1114+ ( FromPair arity f
1115+ , FromTaggedObject arity f
1116+ , FromUntaggedValue arity f
1117+ , ConstructorNames f
1118+ ) => TypeName :* Options :* FromArgs arity c
1119+ -> Value -> Parser (f c)
1120+parseNonAllNullarySum p@(tname :* opts :* _) =
1121+ case sumEncoding opts of
1122+ TaggedObject{..} ->
1123+ withObject tname $ \obj -> do
1124+ tag <- contextType tname . contextTag tagKey cnames_ $ obj .: tagKey
1125+ fromMaybe (badTag tag <?> Key tagKey) $
1126+ parseFromTaggedObject (tag :* contentsFieldName :* p) obj
1127+ where
1128+ tagKey = pack tagFieldName
1129+ badTag tag = failWith_ $ \cnames ->
1130+ "expected tag field to be one of " ++ show cnames ++
1131+ ", but found tag " ++ show tag
1132+ cnames_ = unTagged2 (constructorTags (constructorTagModifier opts) :: Tagged2 f [String])
1133+
1134+ ObjectWithSingleField ->
1135+ withObject tname $ \obj -> case H.toList obj of
1136+ [(tag, v)] -> maybe (badTag tag) (<?> Key tag) $
1137+ parsePair (tag :* p) v
1138+ _ -> contextType tname . fail $
1139+ "expected an Object with a single pair, but found " ++
1140+ show (H.size obj) ++ " pairs"
1141+ where
1142+ badTag tag = failWith_ $ \cnames ->
1143+ "expected an Object with a single pair where the tag is one of " ++
1144+ show cnames ++ ", but found tag " ++ show tag
1145+
1146+ TwoElemArray ->
1147+ withArray tname $ \arr -> case V.length arr of
1148+ 2 | String tag <- V.unsafeIndex arr 0 ->
1149+ maybe (badTag tag <?> Index 0) (<?> Index 1) $
1150+ parsePair (tag :* p) (V.unsafeIndex arr 1)
1151+ | otherwise ->
1152+ contextType tname $
1153+ fail "tag element is not a String" <?> Index 0
1154+ len -> contextType tname . fail $
1155+ "expected a 2-element Array, but encountered an Array of length " ++
1156+ show len
1157+ where
1158+ badTag tag = failWith_ $ \cnames ->
1159+ "expected tag of the 2-element Array to be one of " ++
1160+ show cnames ++ ", but found tag " ++ show tag
1161+
1162+ UntaggedValue -> parseUntaggedValue p
1163+ where
1164+ failWith_ = failWithCTags tname (constructorTagModifier opts)
1165+
1166+--------------------------------------------------------------------------------
1167+
1168+class FromTaggedObject arity f where
1169+ -- The first two components of the parameter tuple are: the constructor tag
1170+ -- to match against, and the contents field name.
1171+ parseFromTaggedObject
1172+ :: Text :* String :* TypeName :* Options :* FromArgs arity a
1173+ -> Object
1174+ -> Maybe (Parser (f a))
1175+
1176+instance ( FromTaggedObject arity a, FromTaggedObject arity b) =>
1177+ FromTaggedObject arity (a :+: b) where
1178+ parseFromTaggedObject p obj =
1179+ (fmap L1 <$> parseFromTaggedObject p obj) <|>
1180+ (fmap R1 <$> parseFromTaggedObject p obj)
1181+
1182+instance ( IsRecord f isRecord
1183+ , FromTaggedObject' arity f isRecord
1184+ , Constructor c
1185+ ) => FromTaggedObject arity (C1 c f) where
1186+ parseFromTaggedObject (tag :* contentsFieldName :* p@(_ :* opts :* _))
1187+ | tag == tag'
1188+ = Just . fmap M1 .
1189+ (unTagged :: Tagged isRecord (Parser (f a)) -> Parser (f a)) .
1190+ parseFromTaggedObject' (contentsFieldName :* cname :* p)
1191+ | otherwise = const Nothing
1192+ where
1193+ tag' = pack $ constructorTagModifier opts cname
1194+ cname = conName (undefined :: M1 _i c _f _p)
1195+
1196+--------------------------------------------------------------------------------
1197+
1198+class FromTaggedObject' arity f isRecord where
1199+ -- The first component of the parameter tuple is the contents field name.
1200+ parseFromTaggedObject'
1201+ :: String :* ConName :* TypeName :* Options :* FromArgs arity a
1202+ -> Object -> Tagged isRecord (Parser (f a))
1203+
1204+instance (RecordFromJSON arity f, FieldNames f) => FromTaggedObject' arity f True where
1205+ -- Records are unpacked in the tagged object
1206+ parseFromTaggedObject' (_ :* p) = Tagged . recordParseJSON (True :* p)
1207+
1208+instance (ConsFromJSON arity f) => FromTaggedObject' arity f False where
1209+ -- Nonnullary nonrecords are encoded in the contents field
1210+ parseFromTaggedObject' p obj = Tagged $ do
1211+ contents <- contextCons cname tname (obj .: key)
1212+ consParseJSON p' contents <?> Key key
1213+ where
1214+ key = pack contentsFieldName
1215+ contentsFieldName :* p'@(cname :* tname :* _) = p
1216+
1217+instance OVERLAPPING_ FromTaggedObject' arity U1 False where
1218+ -- Nullary constructors don't need a contents field
1219+ parseFromTaggedObject' _ _ = Tagged (pure U1)
1220+
1221+--------------------------------------------------------------------------------
1222+
1223+-- | Constructors need to be decoded differently depending on whether they're
1224+-- a record or not. This distinction is made by 'ConsParseJSON'.
1225+class ConsFromJSON arity f where
1226+ consParseJSON
1227+ :: ConName :* TypeName :* Options :* FromArgs arity a
1228+ -> Value -> Parser (f a)
1229+
1230+class ConsFromJSON' arity f isRecord where
1231+ consParseJSON'
1232+ :: ConName :* TypeName :* Options :* FromArgs arity a
1233+ -> Value -> Tagged isRecord (Parser (f a))
1234+
1235+instance ( IsRecord f isRecord
1236+ , ConsFromJSON' arity f isRecord
1237+ ) => ConsFromJSON arity f where
1238+ consParseJSON p =
1239+ (unTagged :: Tagged isRecord (Parser (f a)) -> Parser (f a))
1240+ . consParseJSON' p
1241+
1242+instance OVERLAPPING_
1243+ ( GFromJSON arity a, RecordFromJSON arity (S1 s a)
1244+ ) => ConsFromJSON' arity (S1 s a) True where
1245+ consParseJSON' p@(cname :* tname :* opts :* fargs)
1246+ | unwrapUnaryRecords opts = Tagged . fmap M1 . gParseJSON opts fargs
1247+ | otherwise = Tagged . withObject (showCons cname tname) (recordParseJSON (False :* p))
1248+
1249+instance RecordFromJSON arity f => ConsFromJSON' arity f True where
1250+ consParseJSON' p@(cname :* tname :* _) =
1251+ Tagged . withObject (showCons cname tname) (recordParseJSON (False :* p))
1252+
1253+instance OVERLAPPING_
1254+ ConsFromJSON' arity U1 False where
1255+ -- Empty constructors are expected to be encoded as an empty array:
1256+ consParseJSON' (cname :* tname :* _) v =
1257+ Tagged . contextCons cname tname $ case v of
1258+ Array a | V.null a -> pure U1
1259+ | otherwise -> fail_ a
1260+ _ -> typeMismatch "Array" v
1261+ where
1262+ fail_ a = fail $
1263+ "expected an empty Array, but encountered an Array of length " ++
1264+ show (V.length a)
1265+
1266+instance OVERLAPPING_
1267+ GFromJSON arity f => ConsFromJSON' arity (S1 s f) False where
1268+ consParseJSON' (_ :* _ :* opts :* fargs) =
1269+ Tagged . fmap M1 . gParseJSON opts fargs
1270+
1271+instance (ProductFromJSON arity f, ProductSize f
1272+ ) => ConsFromJSON' arity f False where
1273+ consParseJSON' p = Tagged . productParseJSON0 p
1274+
1275+--------------------------------------------------------------------------------
1276+
1277+class FieldNames f where
1278+ fieldNames :: f a -> [Text] -> [Text]
1279+
1280+instance (FieldNames a, FieldNames b) => FieldNames (a :*: b) where
1281+ fieldNames _ =
1282+ fieldNames (undefined :: a x) .
1283+ fieldNames (undefined :: b y)
1284+
1285+instance (Selector s) => FieldNames (S1 s f) where
1286+ fieldNames _ = (pack (selName (undefined :: M1 _i s _f _p)) :)
1287+
1288+class RecordFromJSON arity f where
1289+ recordParseJSON
1290+ :: Bool :* ConName :* TypeName :* Options :* FromArgs arity a
1291+ -> Object -> Parser (f a)
1292+
1293+instance ( FieldNames f
1294+ , RecordFromJSON' arity f
1295+ ) => RecordFromJSON arity f where
1296+ recordParseJSON (fromTaggedSum :* p@(cname :* tname :* opts :* _)) =
1297+ \obj -> checkUnknown obj >> recordParseJSON' p obj
1298+ where
1299+ knownFields :: H.HashMap Text ()
1300+ knownFields = H.fromList $ map (,()) $
1301+ fieldNames (undefined :: f a)
1302+ [pack (tagFieldName (sumEncoding opts)) | fromTaggedSum]
1303+ checkUnknown =
1304+ if not (rejectUnknownFields opts)
1305+ then \_ -> return ()
1306+ else \obj -> case H.keys (H.difference obj knownFields) of
1307+ [] -> return ()
1308+ unknownFields -> contextCons cname tname $
1309+ fail ("unknown fields: " ++ show unknownFields)
1310+
1311+class RecordFromJSON' arity f where
1312+ recordParseJSON'
1313+ :: ConName :* TypeName :* Options :* FromArgs arity a
1314+ -> Object -> Parser (f a)
1315+
1316+instance ( RecordFromJSON' arity a
1317+ , RecordFromJSON' arity b
1318+ ) => RecordFromJSON' arity (a :*: b) where
1319+ recordParseJSON' p obj =
1320+ (:*:) <$> recordParseJSON' p obj
1321+ <*> recordParseJSON' p obj
1322+
1323+instance OVERLAPPABLE_ (Selector s, GFromJSON arity a) =>
1324+ RecordFromJSON' arity (S1 s a) where
1325+ recordParseJSON' (cname :* tname :* opts :* fargs) obj = do
1326+ fv <- contextCons cname tname (obj .: label)
1327+ M1 <$> gParseJSON opts fargs fv <?> Key label
1328+ where
1329+ label = pack $ fieldLabelModifier opts sname
1330+ sname = selName (undefined :: M1 _i s _f _p)
1331+
1332+instance INCOHERENT_ (Selector s, FromJSON a) =>
1333+ RecordFromJSON' arity (S1 s (K1 i (Maybe a))) where
1334+ recordParseJSON' (_ :* _ :* opts :* _) obj = M1 . K1 <$> obj .:? pack label
1335+ where
1336+ label = fieldLabelModifier opts sname
1337+ sname = selName (undefined :: M1 _i s _f _p)
1338+
1339+-- Parse an Option like a Maybe.
1340+instance INCOHERENT_ (Selector s, FromJSON a) =>
1341+ RecordFromJSON' arity (S1 s (K1 i (Semigroup.Option a))) where
1342+ recordParseJSON' p obj = wrap <$> recordParseJSON' p obj
1343+ where
1344+ wrap :: S1 s (K1 i (Maybe a)) p -> S1 s (K1 i (Semigroup.Option a)) p
1345+ wrap (M1 (K1 a)) = M1 (K1 (Semigroup.Option a))
1346+
1347+--------------------------------------------------------------------------------
1348+
1349+productParseJSON0
1350+ :: forall f arity a. (ProductFromJSON arity f, ProductSize f)
1351+ => ConName :* TypeName :* Options :* FromArgs arity a
1352+ -> Value -> Parser (f a)
1353+ -- Products are expected to be encoded to an array. Here we check whether we
1354+ -- got an array of the same size as the product, then parse each of the
1355+ -- product's elements using productParseJSON:
1356+productParseJSON0 p@(cname :* tname :* _ :* _) =
1357+ withArray (showCons cname tname) $ \arr ->
1358+ let lenArray = V.length arr
1359+ lenProduct = (unTagged2 :: Tagged2 f Int -> Int)
1360+ productSize in
1361+ if lenArray == lenProduct
1362+ then productParseJSON p arr 0 lenProduct
1363+ else contextCons cname tname $
1364+ fail $ "expected an Array of length " ++ show lenProduct ++
1365+ ", but encountered an Array of length " ++ show lenArray
1366+
1367+--
1368+
1369+class ProductFromJSON arity f where
1370+ productParseJSON :: ConName :* TypeName :* Options :* FromArgs arity a
1371+ -> Array -> Int -> Int
1372+ -> Parser (f a)
1373+
1374+instance ( ProductFromJSON arity a
1375+ , ProductFromJSON arity b
1376+ ) => ProductFromJSON arity (a :*: b) where
1377+ productParseJSON p arr ix len =
1378+ (:*:) <$> productParseJSON p arr ix lenL
1379+ <*> productParseJSON p arr ixR lenR
1380+ where
1381+ lenL = len `unsafeShiftR` 1
1382+ ixR = ix + lenL
1383+ lenR = len - lenL
1384+
1385+instance (GFromJSON arity a) => ProductFromJSON arity (S1 s a) where
1386+ productParseJSON (_ :* _ :* opts :* fargs) arr ix _ =
1387+ M1 <$> gParseJSON opts fargs (V.unsafeIndex arr ix) <?> Index ix
1388+
1389+--------------------------------------------------------------------------------
1390+
1391+class FromPair arity f where
1392+ -- The first component of the parameter tuple is the tag to match.
1393+ parsePair :: Text :* TypeName :* Options :* FromArgs arity a
1394+ -> Value
1395+ -> Maybe (Parser (f a))
1396+
1397+instance ( FromPair arity a
1398+ , FromPair arity b
1399+ ) => FromPair arity (a :+: b) where
1400+ parsePair p pair =
1401+ (fmap L1 <$> parsePair p pair) <|>
1402+ (fmap R1 <$> parsePair p pair)
1403+
1404+instance ( Constructor c
1405+ , ConsFromJSON arity a
1406+ ) => FromPair arity (C1 c a) where
1407+ parsePair (tag :* p@(_ :* opts :* _)) v
1408+ | tag == tag' = Just $ M1 <$> consParseJSON (cname :* p) v
1409+ | otherwise = Nothing
1410+ where
1411+ tag' = pack $ constructorTagModifier opts cname
1412+ cname = conName (undefined :: M1 _i c _a _p)
1413+
1414+--------------------------------------------------------------------------------
1415+
1416+class FromUntaggedValue arity f where
1417+ parseUntaggedValue :: TypeName :* Options :* FromArgs arity a
1418+ -> Value
1419+ -> Parser (f a)
1420+
1421+instance
1422+ ( FromUntaggedValue arity a
1423+ , FromUntaggedValue arity b
1424+ ) => FromUntaggedValue arity (a :+: b)
1425+ where
1426+ parseUntaggedValue p value =
1427+ L1 <$> parseUntaggedValue p value <|>
1428+ R1 <$> parseUntaggedValue p value
1429+
1430+instance OVERLAPPABLE_
1431+ ( ConsFromJSON arity a
1432+ , Constructor c
1433+ ) => FromUntaggedValue arity (C1 c a)
1434+ where
1435+ parseUntaggedValue p = fmap M1 . consParseJSON (cname :* p)
1436+ where
1437+ cname = conName (undefined :: M1 _i c _f _p)
1438+
1439+instance OVERLAPPING_
1440+ ( Constructor c )
1441+ => FromUntaggedValue arity (C1 c U1)
1442+ where
1443+ parseUntaggedValue (tname :* opts :* _) v =
1444+ contextCons cname tname $ case v of
1445+ String tag
1446+ | tag == tag' -> pure $ M1 U1
1447+ | otherwise -> fail_ tag
1448+ _ -> typeMismatch "String" v
1449+ where
1450+ tag' = pack $ constructorTagModifier opts cname
1451+ cname = conName (undefined :: M1 _i c _f _p)
1452+ fail_ tag = fail $
1453+ "expected tag " ++ show tag' ++ ", but found tag " ++ show tag
1454+
1455+-------------------------------------------------------------------------------
1456+-- Instances
1457+-------------------------------------------------------------------------------
1458+
1459+-------------------------------------------------------------------------------
1460+-- base
1461+-------------------------------------------------------------------------------
1462+
1463+
1464+instance FromJSON2 Const where
1465+ liftParseJSON2 p _ _ _ = fmap Const . p
1466+ {-# INLINE liftParseJSON2 #-}
1467+
1468+instance FromJSON a => FromJSON1 (Const a) where
1469+ liftParseJSON _ _ = fmap Const . parseJSON
1470+ {-# INLINE liftParseJSON #-}
1471+
1472+instance FromJSON a => FromJSON (Const a b) where
1473+ {-# INLINE parseJSON #-}
1474+ parseJSON = fmap Const . parseJSON
1475+
1476+
1477+instance FromJSON1 Maybe where
1478+ liftParseJSON _ _ Null = pure Nothing
1479+ liftParseJSON p _ a = Just <$> p a
1480+ {-# INLINE liftParseJSON #-}
1481+
1482+instance (FromJSON a) => FromJSON (Maybe a) where
1483+ parseJSON = parseJSON1
1484+ {-# INLINE parseJSON #-}
1485+
1486+
1487+
1488+instance FromJSON2 Either where
1489+ liftParseJSON2 pA _ pB _ (Object (H.toList -> [(key, value)]))
1490+ | key == left = Left <$> pA value <?> Key left
1491+ | key == right = Right <$> pB value <?> Key right
1492+ where
1493+ left, right :: Text
1494+ left = "Left"
1495+ right = "Right"
1496+
1497+ liftParseJSON2 _ _ _ _ _ = fail $
1498+ "expected an object with a single property " ++
1499+ "where the property key should be either " ++
1500+ "\"Left\" or \"Right\""
1501+ {-# INLINE liftParseJSON2 #-}
1502+
1503+instance (FromJSON a) => FromJSON1 (Either a) where
1504+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
1505+ {-# INLINE liftParseJSON #-}
1506+
1507+instance (FromJSON a, FromJSON b) => FromJSON (Either a b) where
1508+ parseJSON = parseJSON2
1509+ {-# INLINE parseJSON #-}
1510+
1511+instance FromJSON Void where
1512+ parseJSON _ = fail "Cannot parse Void"
1513+ {-# INLINE parseJSON #-}
1514+
1515+instance FromJSON Bool where
1516+ parseJSON (Bool b) = pure b
1517+ parseJSON v = typeMismatch "Bool" v
1518+ {-# INLINE parseJSON #-}
1519+
1520+instance FromJSONKey Bool where
1521+ fromJSONKey = FromJSONKeyTextParser $ \t -> case t of
1522+ "true" -> pure True
1523+ "false" -> pure False
1524+ _ -> fail $ "cannot parse key " ++ show t ++ " into Bool"
1525+
1526+instance FromJSON Ordering where
1527+ parseJSON = withText "Ordering" $ \s ->
1528+ case s of
1529+ "LT" -> return LT
1530+ "EQ" -> return EQ
1531+ "GT" -> return GT
1532+ _ -> fail $ "parsing Ordering failed, unexpected " ++ show s ++
1533+ " (expected \"LT\", \"EQ\", or \"GT\")"
1534+
1535+instance FromJSON () where
1536+ parseJSON = withArray "()" $ \v ->
1537+ if V.null v
1538+ then pure ()
1539+ else prependContext "()" $ fail "expected an empty array"
1540+ {-# INLINE parseJSON #-}
1541+
1542+instance FromJSON Char where
1543+ parseJSON = withText "Char" parseChar
1544+ {-# INLINE parseJSON #-}
1545+
1546+ parseJSONList (String s) = pure (T.unpack s)
1547+ parseJSONList v = typeMismatch "String" v
1548+ {-# INLINE parseJSONList #-}
1549+
1550+parseChar :: Text -> Parser Char
1551+parseChar t =
1552+ if T.compareLength t 1 == EQ
1553+ then pure $ T.head t
1554+ else prependContext "Char" $ fail "expected a string of length 1"
1555+
1556+instance FromJSON Double where
1557+ parseJSON = parseRealFloat "Double"
1558+ {-# INLINE parseJSON #-}
1559+
1560+instance FromJSONKey Double where
1561+ fromJSONKey = FromJSONKeyTextParser $ \t -> case t of
1562+ "NaN" -> pure (0/0)
1563+ "Infinity" -> pure (1/0)
1564+ "-Infinity" -> pure (negate 1/0)
1565+ _ -> Scientific.toRealFloat <$> parseScientificText t
1566+
1567+instance FromJSON Float where
1568+ parseJSON = parseRealFloat "Float"
1569+ {-# INLINE parseJSON #-}
1570+
1571+instance FromJSONKey Float where
1572+ fromJSONKey = FromJSONKeyTextParser $ \t -> case t of
1573+ "NaN" -> pure (0/0)
1574+ "Infinity" -> pure (1/0)
1575+ "-Infinity" -> pure (negate 1/0)
1576+ _ -> Scientific.toRealFloat <$> parseScientificText t
1577+
1578+instance (FromJSON a, Integral a) => FromJSON (Ratio a) where
1579+ parseJSON (Number x)
1580+ | exp10 <= 1024
1581+ , exp10 >= -1024 = return $! realToFrac x
1582+ | otherwise = prependContext "Ratio" $ fail msg
1583+ where
1584+ exp10 = base10Exponent x
1585+ msg = "found a number with exponent " ++ show exp10
1586+ ++ ", but it must not be greater than 1024 or less than -1024"
1587+ parseJSON o = objParser o
1588+ where
1589+ objParser = withObject "Rational" $ \obj -> do
1590+ numerator <- obj .: "numerator"
1591+ denominator <- obj .: "denominator"
1592+ if denominator == 0
1593+ then fail "Ratio denominator was 0"
1594+ else pure $ numerator % denominator
1595+ {-# INLINE parseJSON #-}
1596+
1597+-- | This instance includes a bounds check to prevent maliciously
1598+-- large inputs to fill up the memory of the target system. You can
1599+-- newtype 'Scientific' and provide your own instance using
1600+-- 'withScientific' if you want to allow larger inputs.
1601+instance HasResolution a => FromJSON (Fixed a) where
1602+ parseJSON = prependContext "Fixed" . withBoundedScientific' (pure . realToFrac)
1603+ {-# INLINE parseJSON #-}
1604+
1605+instance FromJSON Int where
1606+ parseJSON = parseBoundedIntegral "Int"
1607+ {-# INLINE parseJSON #-}
1608+
1609+instance FromJSONKey Int where
1610+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Int"
1611+
1612+-- | This instance includes a bounds check to prevent maliciously
1613+-- large inputs to fill up the memory of the target system. You can
1614+-- newtype 'Scientific' and provide your own instance using
1615+-- 'withScientific' if you want to allow larger inputs.
1616+instance FromJSON Integer where
1617+ parseJSON = parseIntegral "Integer"
1618+ {-# INLINE parseJSON #-}
1619+
1620+instance FromJSONKey Integer where
1621+ fromJSONKey = FromJSONKeyTextParser $ parseIntegralText "Integer"
1622+
1623+instance FromJSON Natural where
1624+ parseJSON value = do
1625+ integer <- parseIntegral "Natural" value
1626+ parseNatural integer
1627+
1628+instance FromJSONKey Natural where
1629+ fromJSONKey = FromJSONKeyTextParser $ \text -> do
1630+ integer <- parseIntegralText "Natural" text
1631+ parseNatural integer
1632+
1633+parseNatural :: Integer -> Parser Natural
1634+parseNatural integer =
1635+ if integer < 0 then
1636+ fail $ "parsing Natural failed, unexpected negative number " <> show integer
1637+ else
1638+ pure $ fromIntegral integer
1639+
1640+instance FromJSON Int8 where
1641+ parseJSON = parseBoundedIntegral "Int8"
1642+ {-# INLINE parseJSON #-}
1643+
1644+instance FromJSONKey Int8 where
1645+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Int8"
1646+
1647+instance FromJSON Int16 where
1648+ parseJSON = parseBoundedIntegral "Int16"
1649+ {-# INLINE parseJSON #-}
1650+
1651+instance FromJSONKey Int16 where
1652+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Int16"
1653+
1654+instance FromJSON Int32 where
1655+ parseJSON = parseBoundedIntegral "Int32"
1656+ {-# INLINE parseJSON #-}
1657+
1658+instance FromJSONKey Int32 where
1659+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Int32"
1660+
1661+instance FromJSON Int64 where
1662+ parseJSON = parseBoundedIntegral "Int64"
1663+ {-# INLINE parseJSON #-}
1664+
1665+instance FromJSONKey Int64 where
1666+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Int64"
1667+
1668+instance FromJSON Word where
1669+ parseJSON = parseBoundedIntegral "Word"
1670+ {-# INLINE parseJSON #-}
1671+
1672+instance FromJSONKey Word where
1673+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Word"
1674+
1675+instance FromJSON Word8 where
1676+ parseJSON = parseBoundedIntegral "Word8"
1677+ {-# INLINE parseJSON #-}
1678+
1679+instance FromJSONKey Word8 where
1680+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Word8"
1681+
1682+instance FromJSON Word16 where
1683+ parseJSON = parseBoundedIntegral "Word16"
1684+ {-# INLINE parseJSON #-}
1685+
1686+instance FromJSONKey Word16 where
1687+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Word16"
1688+
1689+instance FromJSON Word32 where
1690+ parseJSON = parseBoundedIntegral "Word32"
1691+ {-# INLINE parseJSON #-}
1692+
1693+instance FromJSONKey Word32 where
1694+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Word32"
1695+
1696+instance FromJSON Word64 where
1697+ parseJSON = parseBoundedIntegral "Word64"
1698+ {-# INLINE parseJSON #-}
1699+
1700+instance FromJSONKey Word64 where
1701+ fromJSONKey = FromJSONKeyTextParser $ parseBoundedIntegralText "Word64"
1702+
1703+instance FromJSON CTime where
1704+ parseJSON = fmap CTime . parseJSON
1705+ {-# INLINE parseJSON #-}
1706+
1707+instance FromJSON Text where
1708+ parseJSON = withText "Text" pure
1709+ {-# INLINE parseJSON #-}
1710+
1711+instance FromJSONKey Text where
1712+ fromJSONKey = fromJSONKeyCoerce
1713+
1714+
1715+instance FromJSON LT.Text where
1716+ parseJSON = withText "Lazy Text" $ pure . LT.fromStrict
1717+ {-# INLINE parseJSON #-}
1718+
1719+instance FromJSONKey LT.Text where
1720+ fromJSONKey = FromJSONKeyText LT.fromStrict
1721+
1722+
1723+instance FromJSON Version where
1724+ parseJSON = withText "Version" parseVersionText
1725+ {-# INLINE parseJSON #-}
1726+
1727+instance FromJSONKey Version where
1728+ fromJSONKey = FromJSONKeyTextParser parseVersionText
1729+
1730+parseVersionText :: Text -> Parser Version
1731+parseVersionText = go . readP_to_S parseVersion . unpack
1732+ where
1733+ go [(v,[])] = return v
1734+ go (_ : xs) = go xs
1735+ go _ = fail "parsing Version failed"
1736+
1737+-------------------------------------------------------------------------------
1738+-- semigroups NonEmpty
1739+-------------------------------------------------------------------------------
1740+
1741+instance FromJSON1 NonEmpty where
1742+ liftParseJSON p _ = withArray "NonEmpty" $
1743+ (>>= ne) . Tr.sequence . zipWith (parseIndexedJSON p) [0..] . V.toList
1744+ where
1745+ ne [] = fail "parsing NonEmpty failed, unexpected empty list"
1746+ ne (x:xs) = pure (x :| xs)
1747+ {-# INLINE liftParseJSON #-}
1748+
1749+instance (FromJSON a) => FromJSON (NonEmpty a) where
1750+ parseJSON = parseJSON1
1751+ {-# INLINE parseJSON #-}
1752+
1753+-------------------------------------------------------------------------------
1754+-- scientific
1755+-------------------------------------------------------------------------------
1756+
1757+instance FromJSON Scientific where
1758+ parseJSON = withScientific "Scientific" pure
1759+ {-# INLINE parseJSON #-}
1760+
1761+-------------------------------------------------------------------------------
1762+-- DList
1763+-------------------------------------------------------------------------------
1764+
1765+instance FromJSON1 DList.DList where
1766+ liftParseJSON p _ = withArray "DList" $
1767+ fmap DList.fromList .
1768+ Tr.sequence . zipWith (parseIndexedJSON p) [0..] . V.toList
1769+ {-# INLINE liftParseJSON #-}
1770+
1771+instance (FromJSON a) => FromJSON (DList.DList a) where
1772+ parseJSON = parseJSON1
1773+ {-# INLINE parseJSON #-}
1774+
1775+-------------------------------------------------------------------------------
1776+-- tranformers - Functors
1777+-------------------------------------------------------------------------------
1778+
1779+instance FromJSON1 Identity where
1780+ liftParseJSON p _ a = Identity <$> p a
1781+ {-# INLINE liftParseJSON #-}
1782+
1783+ liftParseJSONList _ p a = fmap Identity <$> p a
1784+ {-# INLINE liftParseJSONList #-}
1785+
1786+instance (FromJSON a) => FromJSON (Identity a) where
1787+ parseJSON = parseJSON1
1788+ {-# INLINE parseJSON #-}
1789+
1790+ parseJSONList = liftParseJSONList parseJSON parseJSONList
1791+ {-# INLINE parseJSONList #-}
1792+
1793+instance (FromJSONKey a) => FromJSONKey (Identity a) where
1794+ fromJSONKey = coerceFromJSONKeyFunction (fromJSONKey :: FromJSONKeyFunction a)
1795+ fromJSONKeyList = coerceFromJSONKeyFunction (fromJSONKeyList :: FromJSONKeyFunction [a])
1796+
1797+
1798+instance (FromJSON1 f, FromJSON1 g) => FromJSON1 (Compose f g) where
1799+ liftParseJSON p pl a = Compose <$> liftParseJSON g gl a
1800+ where
1801+ g = liftParseJSON p pl
1802+ gl = liftParseJSONList p pl
1803+ {-# INLINE liftParseJSON #-}
1804+
1805+ liftParseJSONList p pl a = map Compose <$> liftParseJSONList g gl a
1806+ where
1807+ g = liftParseJSON p pl
1808+ gl = liftParseJSONList p pl
1809+ {-# INLINE liftParseJSONList #-}
1810+
1811+instance (FromJSON1 f, FromJSON1 g, FromJSON a) => FromJSON (Compose f g a) where
1812+ parseJSON = parseJSON1
1813+ {-# INLINE parseJSON #-}
1814+
1815+ parseJSONList = liftParseJSONList parseJSON parseJSONList
1816+ {-# INLINE parseJSONList #-}
1817+
1818+
1819+instance (FromJSON1 f, FromJSON1 g) => FromJSON1 (Product f g) where
1820+ liftParseJSON p pl a = uncurry Pair <$> liftParseJSON2 px pxl py pyl a
1821+ where
1822+ px = liftParseJSON p pl
1823+ pxl = liftParseJSONList p pl
1824+ py = liftParseJSON p pl
1825+ pyl = liftParseJSONList p pl
1826+ {-# INLINE liftParseJSON #-}
1827+
1828+instance (FromJSON1 f, FromJSON1 g, FromJSON a) => FromJSON (Product f g a) where
1829+ parseJSON = parseJSON1
1830+ {-# INLINE parseJSON #-}
1831+
1832+
1833+instance (FromJSON1 f, FromJSON1 g) => FromJSON1 (Sum f g) where
1834+ liftParseJSON p pl (Object (H.toList -> [(key, value)]))
1835+ | key == inl = InL <$> liftParseJSON p pl value <?> Key inl
1836+ | key == inr = InR <$> liftParseJSON p pl value <?> Key inl
1837+ where
1838+ inl, inr :: Text
1839+ inl = "InL"
1840+ inr = "InR"
1841+
1842+ liftParseJSON _ _ _ = fail $
1843+ "parsing Sum failed, expected an object with a single property " ++
1844+ "where the property key should be either " ++
1845+ "\"InL\" or \"InR\""
1846+ {-# INLINE liftParseJSON #-}
1847+
1848+instance (FromJSON1 f, FromJSON1 g, FromJSON a) => FromJSON (Sum f g a) where
1849+ parseJSON = parseJSON1
1850+ {-# INLINE parseJSON #-}
1851+
1852+-------------------------------------------------------------------------------
1853+-- containers
1854+-------------------------------------------------------------------------------
1855+
1856+instance FromJSON1 Seq.Seq where
1857+ liftParseJSON p _ = withArray "Seq" $
1858+ fmap Seq.fromList .
1859+ Tr.sequence . zipWith (parseIndexedJSON p) [0..] . V.toList
1860+ {-# INLINE liftParseJSON #-}
1861+
1862+instance (FromJSON a) => FromJSON (Seq.Seq a) where
1863+ parseJSON = parseJSON1
1864+ {-# INLINE parseJSON #-}
1865+
1866+
1867+instance (Ord a, FromJSON a) => FromJSON (Set.Set a) where
1868+ parseJSON = fmap Set.fromList . parseJSON
1869+ {-# INLINE parseJSON #-}
1870+
1871+
1872+instance FromJSON IntSet.IntSet where
1873+ parseJSON = fmap IntSet.fromList . parseJSON
1874+ {-# INLINE parseJSON #-}
1875+
1876+
1877+instance FromJSON1 IntMap.IntMap where
1878+ liftParseJSON p pl = fmap IntMap.fromList . liftParseJSON p' pl'
1879+ where
1880+ p' = liftParseJSON2 parseJSON parseJSONList p pl
1881+ pl' = liftParseJSONList2 parseJSON parseJSONList p pl
1882+ {-# INLINE liftParseJSON #-}
1883+
1884+instance FromJSON a => FromJSON (IntMap.IntMap a) where
1885+ parseJSON = fmap IntMap.fromList . parseJSON
1886+ {-# INLINE parseJSON #-}
1887+
1888+
1889+instance (FromJSONKey k, Ord k) => FromJSON1 (M.Map k) where
1890+ liftParseJSON p _ = case fromJSONKey of
1891+ FromJSONKeyCoerce _ -> withObject "Map" $
1892+ fmap (H.foldrWithKey (M.insert . unsafeCoerce) M.empty) . H.traverseWithKey (\k v -> p v <?> Key k)
1893+ FromJSONKeyText f -> withObject "Map" $
1894+ fmap (H.foldrWithKey (M.insert . f) M.empty) . H.traverseWithKey (\k v -> p v <?> Key k)
1895+ FromJSONKeyTextParser f -> withObject "Map" $
1896+ H.foldrWithKey (\k v m -> M.insert <$> f k <?> Key k <*> p v <?> Key k <*> m) (pure M.empty)
1897+ FromJSONKeyValue f -> withArray "Map" $ \arr ->
1898+ fmap M.fromList . Tr.sequence .
1899+ zipWith (parseIndexedJSONPair f p) [0..] . V.toList $ arr
1900+ {-# INLINE liftParseJSON #-}
1901+
1902+instance (FromJSONKey k, Ord k, FromJSON v) => FromJSON (M.Map k v) where
1903+ parseJSON = parseJSON1
1904+ {-# INLINE parseJSON #-}
1905+
1906+
1907+instance FromJSON1 Tree.Tree where
1908+ liftParseJSON p pl = go
1909+ where
1910+ go v = uncurry Tree.Node <$> liftParseJSON2 p pl p' pl' v
1911+
1912+ p' = liftParseJSON go (listParser go)
1913+ pl'= liftParseJSONList go (listParser go)
1914+
1915+instance (FromJSON v) => FromJSON (Tree.Tree v) where
1916+ parseJSON = parseJSON1
1917+ {-# INLINE parseJSON #-}
1918+
1919+-------------------------------------------------------------------------------
1920+-- uuid
1921+-------------------------------------------------------------------------------
1922+
1923+instance FromJSON UUID.UUID where
1924+ parseJSON = withText "UUID" $
1925+ maybe (fail "invalid UUID") pure . UUID.fromText
1926+
1927+instance FromJSONKey UUID.UUID where
1928+ fromJSONKey = FromJSONKeyTextParser $
1929+ maybe (fail "invalid UUID") pure . UUID.fromText
1930+
1931+-------------------------------------------------------------------------------
1932+-- vector
1933+-------------------------------------------------------------------------------
1934+
1935+instance FromJSON1 Vector where
1936+ liftParseJSON p _ = withArray "Vector" $
1937+ V.mapM (uncurry $ parseIndexedJSON p) . V.indexed
1938+ {-# INLINE liftParseJSON #-}
1939+
1940+instance (FromJSON a) => FromJSON (Vector a) where
1941+ parseJSON = parseJSON1
1942+ {-# INLINE parseJSON #-}
1943+
1944+
1945+vectorParseJSON :: (FromJSON a, VG.Vector w a) => String -> Value -> Parser (w a)
1946+vectorParseJSON s = withArray s $ fmap V.convert . V.mapM (uncurry $ parseIndexedJSON parseJSON) . V.indexed
1947+{-# INLINE vectorParseJSON #-}
1948+
1949+instance (Storable a, FromJSON a) => FromJSON (VS.Vector a) where
1950+ parseJSON = vectorParseJSON "Data.Vector.Storable.Vector"
1951+
1952+instance (VP.Prim a, FromJSON a) => FromJSON (VP.Vector a) where
1953+ parseJSON = vectorParseJSON "Data.Vector.Primitive.Vector"
1954+ {-# INLINE parseJSON #-}
1955+
1956+instance (VG.Vector VU.Vector a, FromJSON a) => FromJSON (VU.Vector a) where
1957+ parseJSON = vectorParseJSON "Data.Vector.Unboxed.Vector"
1958+ {-# INLINE parseJSON #-}
1959+
1960+-------------------------------------------------------------------------------
1961+-- unordered-containers
1962+-------------------------------------------------------------------------------
1963+
1964+instance (Eq a, Hashable a, FromJSON a) => FromJSON (HashSet.HashSet a) where
1965+ parseJSON = fmap HashSet.fromList . parseJSON
1966+ {-# INLINE parseJSON #-}
1967+
1968+
1969+instance (FromJSONKey k, Eq k, Hashable k) => FromJSON1 (H.HashMap k) where
1970+ liftParseJSON p _ = case fromJSONKey of
1971+ FromJSONKeyCoerce _ -> withObject "HashMap ~Text" $
1972+ uc . H.traverseWithKey (\k v -> p v <?> Key k)
1973+ FromJSONKeyText f -> withObject "HashMap" $
1974+ fmap (mapKey f) . H.traverseWithKey (\k v -> p v <?> Key k)
1975+ FromJSONKeyTextParser f -> withObject "HashMap" $
1976+ H.foldrWithKey (\k v m -> H.insert <$> f k <?> Key k <*> p v <?> Key k <*> m) (pure H.empty)
1977+ FromJSONKeyValue f -> withArray "Map" $ \arr ->
1978+ fmap H.fromList . Tr.sequence .
1979+ zipWith (parseIndexedJSONPair f p) [0..] . V.toList $ arr
1980+ where
1981+ uc :: Parser (H.HashMap Text v) -> Parser (H.HashMap k v)
1982+ uc = unsafeCoerce
1983+
1984+instance (FromJSON v, FromJSONKey k, Eq k, Hashable k) => FromJSON (H.HashMap k v) where
1985+ parseJSON = parseJSON1
1986+ {-# INLINE parseJSON #-}
1987+
1988+-------------------------------------------------------------------------------
1989+-- aeson
1990+-------------------------------------------------------------------------------
1991+
1992+instance FromJSON Value where
1993+ parseJSON = pure
1994+ {-# INLINE parseJSON #-}
1995+
1996+instance FromJSON DotNetTime where
1997+ parseJSON = withText "DotNetTime" $ \t ->
1998+ let (s,m) = T.splitAt (T.length t - 5) t
1999+ t' = T.concat [s,".",m]
2000+ in case parseTimeM True defaultTimeLocale "/Date(%s%Q)/" (unpack t') of
2001+ Just d -> pure (DotNetTime d)
2002+ _ -> fail "could not parse .NET time"
2003+ {-# INLINE parseJSON #-}
2004+
2005+-------------------------------------------------------------------------------
2006+-- primitive
2007+-------------------------------------------------------------------------------
2008+
2009+instance FromJSON a => FromJSON (PM.Array a) where
2010+ -- note: we could do better than this if vector exposed the data
2011+ -- constructor in Data.Vector.
2012+ parseJSON = fmap Exts.fromList . parseJSON
2013+
2014+instance FromJSON a => FromJSON (PM.SmallArray a) where
2015+ parseJSON = fmap Exts.fromList . parseJSON
2016+
2017+#if MIN_VERSION_primitive(0,6,4)
2018+instance (PM.Prim a,FromJSON a) => FromJSON (PM.PrimArray a) where
2019+ parseJSON = fmap Exts.fromList . parseJSON
2020+
2021+#if !MIN_VERSION_primitive(0,7,0)
2022+instance (PM.PrimUnlifted a,FromJSON a) => FromJSON (PM.UnliftedArray a) where
2023+ parseJSON = fmap Exts.fromList . parseJSON
2024+#endif
2025+#endif
2026+
2027+-------------------------------------------------------------------------------
2028+-- time
2029+-------------------------------------------------------------------------------
2030+
2031+instance FromJSON Day where
2032+ parseJSON = withText "Day" (Time.run Time.day)
2033+
2034+instance FromJSONKey Day where
2035+ fromJSONKey = FromJSONKeyTextParser (Time.run Time.day)
2036+
2037+
2038+instance FromJSON TimeOfDay where
2039+ parseJSON = withText "TimeOfDay" (Time.run Time.timeOfDay)
2040+
2041+instance FromJSONKey TimeOfDay where
2042+ fromJSONKey = FromJSONKeyTextParser (Time.run Time.timeOfDay)
2043+
2044+
2045+instance FromJSON LocalTime where
2046+ parseJSON = withText "LocalTime" (Time.run Time.localTime)
2047+
2048+instance FromJSONKey LocalTime where
2049+ fromJSONKey = FromJSONKeyTextParser (Time.run Time.localTime)
2050+
2051+
2052+-- | Supported string formats:
2053+--
2054+-- @YYYY-MM-DD HH:MM Z@
2055+-- @YYYY-MM-DD HH:MM:SS Z@
2056+-- @YYYY-MM-DD HH:MM:SS.SSS Z@
2057+--
2058+-- The first space may instead be a @T@, and the second space is
2059+-- optional. The @Z@ represents UTC. The @Z@ may be replaced with a
2060+-- time zone offset of the form @+0000@ or @-08:00@, where the first
2061+-- two digits are hours, the @:@ is optional and the second two digits
2062+-- (also optional) are minutes.
2063+instance FromJSON ZonedTime where
2064+ parseJSON = withText "ZonedTime" (Time.run Time.zonedTime)
2065+
2066+instance FromJSONKey ZonedTime where
2067+ fromJSONKey = FromJSONKeyTextParser (Time.run Time.zonedTime)
2068+
2069+
2070+instance FromJSON UTCTime where
2071+ parseJSON = withText "UTCTime" (Time.run Time.utcTime)
2072+
2073+instance FromJSONKey UTCTime where
2074+ fromJSONKey = FromJSONKeyTextParser (Time.run Time.utcTime)
2075+
2076+
2077+-- | This instance includes a bounds check to prevent maliciously
2078+-- large inputs to fill up the memory of the target system. You can
2079+-- newtype 'Scientific' and provide your own instance using
2080+-- 'withScientific' if you want to allow larger inputs.
2081+instance FromJSON NominalDiffTime where
2082+ parseJSON = withBoundedScientific "NominalDiffTime" $ pure . realToFrac
2083+ {-# INLINE parseJSON #-}
2084+
2085+
2086+-- | This instance includes a bounds check to prevent maliciously
2087+-- large inputs to fill up the memory of the target system. You can
2088+-- newtype 'Scientific' and provide your own instance using
2089+-- 'withScientific' if you want to allow larger inputs.
2090+instance FromJSON DiffTime where
2091+ parseJSON = withBoundedScientific "DiffTime" $ pure . realToFrac
2092+ {-# INLINE parseJSON #-}
2093+
2094+instance FromJSON SystemTime where
2095+ parseJSON v = prependContext "SystemTime" $ do
2096+ n <- parseJSON v
2097+ let n' = floor (n * fromInteger (resolution n) :: Nano)
2098+ let (secs, nano) = n' `divMod` resolution n
2099+ return (MkSystemTime (fromInteger secs) (fromInteger nano))
2100+
2101+instance FromJSON CalendarDiffTime where
2102+ parseJSON = withObject "CalendarDiffTime" $ \obj -> CalendarDiffTime
2103+ <$> obj .: "months"
2104+ <*> obj .: "time"
2105+
2106+instance FromJSON CalendarDiffDays where
2107+ parseJSON = withObject "CalendarDiffDays" $ \obj -> CalendarDiffDays
2108+ <$> obj .: "months"
2109+ <*> obj .: "days"
2110+
2111+instance FromJSON DayOfWeek where
2112+ parseJSON = withText "DaysOfWeek" parseDayOfWeek
2113+
2114+parseDayOfWeek :: T.Text -> Parser DayOfWeek
2115+parseDayOfWeek t = case T.toLower t of
2116+ "monday" -> return Monday
2117+ "tuesday" -> return Tuesday
2118+ "wednesday" -> return Wednesday
2119+ "thursday" -> return Thursday
2120+ "friday" -> return Friday
2121+ "saturday" -> return Saturday
2122+ "sunday" -> return Sunday
2123+ _ -> fail "Invalid week day"
2124+
2125+instance FromJSONKey DayOfWeek where
2126+ fromJSONKey = FromJSONKeyTextParser parseDayOfWeek
2127+
2128+-------------------------------------------------------------------------------
2129+-- base Monoid/Semigroup
2130+-------------------------------------------------------------------------------
2131+
2132+instance FromJSON1 Monoid.Dual where
2133+ liftParseJSON p _ = fmap Monoid.Dual . p
2134+ {-# INLINE liftParseJSON #-}
2135+
2136+instance FromJSON a => FromJSON (Monoid.Dual a) where
2137+ parseJSON = parseJSON1
2138+ {-# INLINE parseJSON #-}
2139+
2140+
2141+instance FromJSON1 Monoid.First where
2142+ liftParseJSON p p' = fmap Monoid.First . liftParseJSON p p'
2143+ {-# INLINE liftParseJSON #-}
2144+
2145+instance FromJSON a => FromJSON (Monoid.First a) where
2146+ parseJSON = parseJSON1
2147+ {-# INLINE parseJSON #-}
2148+
2149+
2150+instance FromJSON1 Monoid.Last where
2151+ liftParseJSON p p' = fmap Monoid.Last . liftParseJSON p p'
2152+ {-# INLINE liftParseJSON #-}
2153+
2154+instance FromJSON a => FromJSON (Monoid.Last a) where
2155+ parseJSON = parseJSON1
2156+ {-# INLINE parseJSON #-}
2157+
2158+
2159+instance FromJSON1 Semigroup.Min where
2160+ liftParseJSON p _ a = Semigroup.Min <$> p a
2161+ {-# INLINE liftParseJSON #-}
2162+
2163+ liftParseJSONList _ p a = fmap Semigroup.Min <$> p a
2164+ {-# INLINE liftParseJSONList #-}
2165+
2166+instance (FromJSON a) => FromJSON (Semigroup.Min a) where
2167+ parseJSON = parseJSON1
2168+ {-# INLINE parseJSON #-}
2169+
2170+ parseJSONList = liftParseJSONList parseJSON parseJSONList
2171+ {-# INLINE parseJSONList #-}
2172+
2173+
2174+instance FromJSON1 Semigroup.Max where
2175+ liftParseJSON p _ a = Semigroup.Max <$> p a
2176+ {-# INLINE liftParseJSON #-}
2177+
2178+ liftParseJSONList _ p a = fmap Semigroup.Max <$> p a
2179+ {-# INLINE liftParseJSONList #-}
2180+
2181+instance (FromJSON a) => FromJSON (Semigroup.Max a) where
2182+ parseJSON = parseJSON1
2183+ {-# INLINE parseJSON #-}
2184+
2185+ parseJSONList = liftParseJSONList parseJSON parseJSONList
2186+ {-# INLINE parseJSONList #-}
2187+
2188+
2189+instance FromJSON1 Semigroup.First where
2190+ liftParseJSON p _ a = Semigroup.First <$> p a
2191+ {-# INLINE liftParseJSON #-}
2192+
2193+ liftParseJSONList _ p a = fmap Semigroup.First <$> p a
2194+ {-# INLINE liftParseJSONList #-}
2195+
2196+instance (FromJSON a) => FromJSON (Semigroup.First a) where
2197+ parseJSON = parseJSON1
2198+ {-# INLINE parseJSON #-}
2199+
2200+ parseJSONList = liftParseJSONList parseJSON parseJSONList
2201+ {-# INLINE parseJSONList #-}
2202+
2203+
2204+instance FromJSON1 Semigroup.Last where
2205+ liftParseJSON p _ a = Semigroup.Last <$> p a
2206+ {-# INLINE liftParseJSON #-}
2207+
2208+ liftParseJSONList _ p a = fmap Semigroup.Last <$> p a
2209+ {-# INLINE liftParseJSONList #-}
2210+
2211+instance (FromJSON a) => FromJSON (Semigroup.Last a) where
2212+ parseJSON = parseJSON1
2213+ {-# INLINE parseJSON #-}
2214+
2215+ parseJSONList = liftParseJSONList parseJSON parseJSONList
2216+ {-# INLINE parseJSONList #-}
2217+
2218+
2219+instance FromJSON1 Semigroup.WrappedMonoid where
2220+ liftParseJSON p _ a = Semigroup.WrapMonoid <$> p a
2221+ {-# INLINE liftParseJSON #-}
2222+
2223+ liftParseJSONList _ p a = fmap Semigroup.WrapMonoid <$> p a
2224+ {-# INLINE liftParseJSONList #-}
2225+
2226+instance (FromJSON a) => FromJSON (Semigroup.WrappedMonoid a) where
2227+ parseJSON = parseJSON1
2228+ {-# INLINE parseJSON #-}
2229+
2230+ parseJSONList = liftParseJSONList parseJSON parseJSONList
2231+ {-# INLINE parseJSONList #-}
2232+
2233+
2234+instance FromJSON1 Semigroup.Option where
2235+ liftParseJSON p p' = fmap Semigroup.Option . liftParseJSON p p'
2236+ {-# INLINE liftParseJSON #-}
2237+
2238+instance FromJSON a => FromJSON (Semigroup.Option a) where
2239+ parseJSON = parseJSON1
2240+ {-# INLINE parseJSON #-}
2241+
2242+-------------------------------------------------------------------------------
2243+-- tagged
2244+-------------------------------------------------------------------------------
2245+
2246+instance FromJSON1 Proxy where
2247+ {-# INLINE liftParseJSON #-}
2248+ liftParseJSON _ _ = fromNull "Proxy" Proxy
2249+
2250+instance FromJSON (Proxy a) where
2251+ {-# INLINE parseJSON #-}
2252+ parseJSON = fromNull "Proxy" Proxy
2253+
2254+fromNull :: String -> a -> Value -> Parser a
2255+fromNull _ a Null = pure a
2256+fromNull c _ v = prependContext c (typeMismatch "Null" v)
2257+
2258+instance FromJSON2 Tagged where
2259+ liftParseJSON2 _ _ p _ = fmap Tagged . p
2260+ {-# INLINE liftParseJSON2 #-}
2261+
2262+instance FromJSON1 (Tagged a) where
2263+ liftParseJSON p _ = fmap Tagged . p
2264+ {-# INLINE liftParseJSON #-}
2265+
2266+instance FromJSON b => FromJSON (Tagged a b) where
2267+ parseJSON = parseJSON1
2268+ {-# INLINE parseJSON #-}
2269+
2270+instance FromJSONKey b => FromJSONKey (Tagged a b) where
2271+ fromJSONKey = coerceFromJSONKeyFunction (fromJSONKey :: FromJSONKeyFunction b)
2272+ fromJSONKeyList = (fmap . fmap) Tagged fromJSONKeyList
2273+
2274+-------------------------------------------------------------------------------
2275+-- Instances for converting from map keys
2276+-------------------------------------------------------------------------------
2277+
2278+instance (FromJSON a, FromJSON b) => FromJSONKey (a,b)
2279+instance (FromJSON a, FromJSON b, FromJSON c) => FromJSONKey (a,b,c)
2280+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d) => FromJSONKey (a,b,c,d)
2281+
2282+instance FromJSONKey Char where
2283+ fromJSONKey = FromJSONKeyTextParser parseChar
2284+ fromJSONKeyList = FromJSONKeyText T.unpack
2285+
2286+instance (FromJSONKey a, FromJSON a) => FromJSONKey [a] where
2287+ fromJSONKey = fromJSONKeyList
2288+
2289+-------------------------------------------------------------------------------
2290+-- Tuple instances, see tuple-instances-from.hs
2291+-------------------------------------------------------------------------------
2292+
2293+instance FromJSON2 (,) where
2294+ liftParseJSON2 pA _ pB _ = withArray "(a, b)" $ \t ->
2295+ let n = V.length t
2296+ in if n == 2
2297+ then (,)
2298+ <$> parseJSONElemAtIndex pA 0 t
2299+ <*> parseJSONElemAtIndex pB 1 t
2300+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 2"
2301+ {-# INLINE liftParseJSON2 #-}
2302+
2303+instance (FromJSON a) => FromJSON1 ((,) a) where
2304+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2305+ {-# INLINE liftParseJSON #-}
2306+
2307+instance (FromJSON a, FromJSON b) => FromJSON (a, b) where
2308+ parseJSON = parseJSON2
2309+ {-# INLINE parseJSON #-}
2310+
2311+
2312+instance (FromJSON a) => FromJSON2 ((,,) a) where
2313+ liftParseJSON2 pB _ pC _ = withArray "(a, b, c)" $ \t ->
2314+ let n = V.length t
2315+ in if n == 3
2316+ then (,,)
2317+ <$> parseJSONElemAtIndex parseJSON 0 t
2318+ <*> parseJSONElemAtIndex pB 1 t
2319+ <*> parseJSONElemAtIndex pC 2 t
2320+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 3"
2321+ {-# INLINE liftParseJSON2 #-}
2322+
2323+instance (FromJSON a, FromJSON b) => FromJSON1 ((,,) a b) where
2324+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2325+ {-# INLINE liftParseJSON #-}
2326+
2327+instance (FromJSON a, FromJSON b, FromJSON c) => FromJSON (a, b, c) where
2328+ parseJSON = parseJSON2
2329+ {-# INLINE parseJSON #-}
2330+
2331+
2332+instance (FromJSON a, FromJSON b) => FromJSON2 ((,,,) a b) where
2333+ liftParseJSON2 pC _ pD _ = withArray "(a, b, c, d)" $ \t ->
2334+ let n = V.length t
2335+ in if n == 4
2336+ then (,,,)
2337+ <$> parseJSONElemAtIndex parseJSON 0 t
2338+ <*> parseJSONElemAtIndex parseJSON 1 t
2339+ <*> parseJSONElemAtIndex pC 2 t
2340+ <*> parseJSONElemAtIndex pD 3 t
2341+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 4"
2342+ {-# INLINE liftParseJSON2 #-}
2343+
2344+instance (FromJSON a, FromJSON b, FromJSON c) => FromJSON1 ((,,,) a b c) where
2345+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2346+ {-# INLINE liftParseJSON #-}
2347+
2348+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d) => FromJSON (a, b, c, d) where
2349+ parseJSON = parseJSON2
2350+ {-# INLINE parseJSON #-}
2351+
2352+
2353+instance (FromJSON a, FromJSON b, FromJSON c) => FromJSON2 ((,,,,) a b c) where
2354+ liftParseJSON2 pD _ pE _ = withArray "(a, b, c, d, e)" $ \t ->
2355+ let n = V.length t
2356+ in if n == 5
2357+ then (,,,,)
2358+ <$> parseJSONElemAtIndex parseJSON 0 t
2359+ <*> parseJSONElemAtIndex parseJSON 1 t
2360+ <*> parseJSONElemAtIndex parseJSON 2 t
2361+ <*> parseJSONElemAtIndex pD 3 t
2362+ <*> parseJSONElemAtIndex pE 4 t
2363+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 5"
2364+ {-# INLINE liftParseJSON2 #-}
2365+
2366+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d) => FromJSON1 ((,,,,) a b c d) where
2367+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2368+ {-# INLINE liftParseJSON #-}
2369+
2370+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e) => FromJSON (a, b, c, d, e) where
2371+ parseJSON = parseJSON2
2372+ {-# INLINE parseJSON #-}
2373+
2374+
2375+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d) => FromJSON2 ((,,,,,) a b c d) where
2376+ liftParseJSON2 pE _ pF _ = withArray "(a, b, c, d, e, f)" $ \t ->
2377+ let n = V.length t
2378+ in if n == 6
2379+ then (,,,,,)
2380+ <$> parseJSONElemAtIndex parseJSON 0 t
2381+ <*> parseJSONElemAtIndex parseJSON 1 t
2382+ <*> parseJSONElemAtIndex parseJSON 2 t
2383+ <*> parseJSONElemAtIndex parseJSON 3 t
2384+ <*> parseJSONElemAtIndex pE 4 t
2385+ <*> parseJSONElemAtIndex pF 5 t
2386+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 6"
2387+ {-# INLINE liftParseJSON2 #-}
2388+
2389+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e) => FromJSON1 ((,,,,,) a b c d e) where
2390+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2391+ {-# INLINE liftParseJSON #-}
2392+
2393+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f) => FromJSON (a, b, c, d, e, f) where
2394+ parseJSON = parseJSON2
2395+ {-# INLINE parseJSON #-}
2396+
2397+
2398+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e) => FromJSON2 ((,,,,,,) a b c d e) where
2399+ liftParseJSON2 pF _ pG _ = withArray "(a, b, c, d, e, f, g)" $ \t ->
2400+ let n = V.length t
2401+ in if n == 7
2402+ then (,,,,,,)
2403+ <$> parseJSONElemAtIndex parseJSON 0 t
2404+ <*> parseJSONElemAtIndex parseJSON 1 t
2405+ <*> parseJSONElemAtIndex parseJSON 2 t
2406+ <*> parseJSONElemAtIndex parseJSON 3 t
2407+ <*> parseJSONElemAtIndex parseJSON 4 t
2408+ <*> parseJSONElemAtIndex pF 5 t
2409+ <*> parseJSONElemAtIndex pG 6 t
2410+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 7"
2411+ {-# INLINE liftParseJSON2 #-}
2412+
2413+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f) => FromJSON1 ((,,,,,,) a b c d e f) where
2414+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2415+ {-# INLINE liftParseJSON #-}
2416+
2417+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g) => FromJSON (a, b, c, d, e, f, g) where
2418+ parseJSON = parseJSON2
2419+ {-# INLINE parseJSON #-}
2420+
2421+
2422+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f) => FromJSON2 ((,,,,,,,) a b c d e f) where
2423+ liftParseJSON2 pG _ pH _ = withArray "(a, b, c, d, e, f, g, h)" $ \t ->
2424+ let n = V.length t
2425+ in if n == 8
2426+ then (,,,,,,,)
2427+ <$> parseJSONElemAtIndex parseJSON 0 t
2428+ <*> parseJSONElemAtIndex parseJSON 1 t
2429+ <*> parseJSONElemAtIndex parseJSON 2 t
2430+ <*> parseJSONElemAtIndex parseJSON 3 t
2431+ <*> parseJSONElemAtIndex parseJSON 4 t
2432+ <*> parseJSONElemAtIndex parseJSON 5 t
2433+ <*> parseJSONElemAtIndex pG 6 t
2434+ <*> parseJSONElemAtIndex pH 7 t
2435+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 8"
2436+ {-# INLINE liftParseJSON2 #-}
2437+
2438+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g) => FromJSON1 ((,,,,,,,) a b c d e f g) where
2439+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2440+ {-# INLINE liftParseJSON #-}
2441+
2442+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h) => FromJSON (a, b, c, d, e, f, g, h) where
2443+ parseJSON = parseJSON2
2444+ {-# INLINE parseJSON #-}
2445+
2446+
2447+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g) => FromJSON2 ((,,,,,,,,) a b c d e f g) where
2448+ liftParseJSON2 pH _ pI _ = withArray "(a, b, c, d, e, f, g, h, i)" $ \t ->
2449+ let n = V.length t
2450+ in if n == 9
2451+ then (,,,,,,,,)
2452+ <$> parseJSONElemAtIndex parseJSON 0 t
2453+ <*> parseJSONElemAtIndex parseJSON 1 t
2454+ <*> parseJSONElemAtIndex parseJSON 2 t
2455+ <*> parseJSONElemAtIndex parseJSON 3 t
2456+ <*> parseJSONElemAtIndex parseJSON 4 t
2457+ <*> parseJSONElemAtIndex parseJSON 5 t
2458+ <*> parseJSONElemAtIndex parseJSON 6 t
2459+ <*> parseJSONElemAtIndex pH 7 t
2460+ <*> parseJSONElemAtIndex pI 8 t
2461+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 9"
2462+ {-# INLINE liftParseJSON2 #-}
2463+
2464+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h) => FromJSON1 ((,,,,,,,,) a b c d e f g h) where
2465+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2466+ {-# INLINE liftParseJSON #-}
2467+
2468+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i) => FromJSON (a, b, c, d, e, f, g, h, i) where
2469+ parseJSON = parseJSON2
2470+ {-# INLINE parseJSON #-}
2471+
2472+
2473+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h) => FromJSON2 ((,,,,,,,,,) a b c d e f g h) where
2474+ liftParseJSON2 pI _ pJ _ = withArray "(a, b, c, d, e, f, g, h, i, j)" $ \t ->
2475+ let n = V.length t
2476+ in if n == 10
2477+ then (,,,,,,,,,)
2478+ <$> parseJSONElemAtIndex parseJSON 0 t
2479+ <*> parseJSONElemAtIndex parseJSON 1 t
2480+ <*> parseJSONElemAtIndex parseJSON 2 t
2481+ <*> parseJSONElemAtIndex parseJSON 3 t
2482+ <*> parseJSONElemAtIndex parseJSON 4 t
2483+ <*> parseJSONElemAtIndex parseJSON 5 t
2484+ <*> parseJSONElemAtIndex parseJSON 6 t
2485+ <*> parseJSONElemAtIndex parseJSON 7 t
2486+ <*> parseJSONElemAtIndex pI 8 t
2487+ <*> parseJSONElemAtIndex pJ 9 t
2488+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 10"
2489+ {-# INLINE liftParseJSON2 #-}
2490+
2491+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i) => FromJSON1 ((,,,,,,,,,) a b c d e f g h i) where
2492+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2493+ {-# INLINE liftParseJSON #-}
2494+
2495+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j) => FromJSON (a, b, c, d, e, f, g, h, i, j) where
2496+ parseJSON = parseJSON2
2497+ {-# INLINE parseJSON #-}
2498+
2499+
2500+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i) => FromJSON2 ((,,,,,,,,,,) a b c d e f g h i) where
2501+ liftParseJSON2 pJ _ pK _ = withArray "(a, b, c, d, e, f, g, h, i, j, k)" $ \t ->
2502+ let n = V.length t
2503+ in if n == 11
2504+ then (,,,,,,,,,,)
2505+ <$> parseJSONElemAtIndex parseJSON 0 t
2506+ <*> parseJSONElemAtIndex parseJSON 1 t
2507+ <*> parseJSONElemAtIndex parseJSON 2 t
2508+ <*> parseJSONElemAtIndex parseJSON 3 t
2509+ <*> parseJSONElemAtIndex parseJSON 4 t
2510+ <*> parseJSONElemAtIndex parseJSON 5 t
2511+ <*> parseJSONElemAtIndex parseJSON 6 t
2512+ <*> parseJSONElemAtIndex parseJSON 7 t
2513+ <*> parseJSONElemAtIndex parseJSON 8 t
2514+ <*> parseJSONElemAtIndex pJ 9 t
2515+ <*> parseJSONElemAtIndex pK 10 t
2516+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 11"
2517+ {-# INLINE liftParseJSON2 #-}
2518+
2519+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j) => FromJSON1 ((,,,,,,,,,,) a b c d e f g h i j) where
2520+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2521+ {-# INLINE liftParseJSON #-}
2522+
2523+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k) => FromJSON (a, b, c, d, e, f, g, h, i, j, k) where
2524+ parseJSON = parseJSON2
2525+ {-# INLINE parseJSON #-}
2526+
2527+
2528+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j) => FromJSON2 ((,,,,,,,,,,,) a b c d e f g h i j) where
2529+ liftParseJSON2 pK _ pL _ = withArray "(a, b, c, d, e, f, g, h, i, j, k, l)" $ \t ->
2530+ let n = V.length t
2531+ in if n == 12
2532+ then (,,,,,,,,,,,)
2533+ <$> parseJSONElemAtIndex parseJSON 0 t
2534+ <*> parseJSONElemAtIndex parseJSON 1 t
2535+ <*> parseJSONElemAtIndex parseJSON 2 t
2536+ <*> parseJSONElemAtIndex parseJSON 3 t
2537+ <*> parseJSONElemAtIndex parseJSON 4 t
2538+ <*> parseJSONElemAtIndex parseJSON 5 t
2539+ <*> parseJSONElemAtIndex parseJSON 6 t
2540+ <*> parseJSONElemAtIndex parseJSON 7 t
2541+ <*> parseJSONElemAtIndex parseJSON 8 t
2542+ <*> parseJSONElemAtIndex parseJSON 9 t
2543+ <*> parseJSONElemAtIndex pK 10 t
2544+ <*> parseJSONElemAtIndex pL 11 t
2545+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 12"
2546+ {-# INLINE liftParseJSON2 #-}
2547+
2548+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k) => FromJSON1 ((,,,,,,,,,,,) a b c d e f g h i j k) where
2549+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2550+ {-# INLINE liftParseJSON #-}
2551+
2552+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l) => FromJSON (a, b, c, d, e, f, g, h, i, j, k, l) where
2553+ parseJSON = parseJSON2
2554+ {-# INLINE parseJSON #-}
2555+
2556+
2557+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k) => FromJSON2 ((,,,,,,,,,,,,) a b c d e f g h i j k) where
2558+ liftParseJSON2 pL _ pM _ = withArray "(a, b, c, d, e, f, g, h, i, j, k, l, m)" $ \t ->
2559+ let n = V.length t
2560+ in if n == 13
2561+ then (,,,,,,,,,,,,)
2562+ <$> parseJSONElemAtIndex parseJSON 0 t
2563+ <*> parseJSONElemAtIndex parseJSON 1 t
2564+ <*> parseJSONElemAtIndex parseJSON 2 t
2565+ <*> parseJSONElemAtIndex parseJSON 3 t
2566+ <*> parseJSONElemAtIndex parseJSON 4 t
2567+ <*> parseJSONElemAtIndex parseJSON 5 t
2568+ <*> parseJSONElemAtIndex parseJSON 6 t
2569+ <*> parseJSONElemAtIndex parseJSON 7 t
2570+ <*> parseJSONElemAtIndex parseJSON 8 t
2571+ <*> parseJSONElemAtIndex parseJSON 9 t
2572+ <*> parseJSONElemAtIndex parseJSON 10 t
2573+ <*> parseJSONElemAtIndex pL 11 t
2574+ <*> parseJSONElemAtIndex pM 12 t
2575+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 13"
2576+ {-# INLINE liftParseJSON2 #-}
2577+
2578+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l) => FromJSON1 ((,,,,,,,,,,,,) a b c d e f g h i j k l) where
2579+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2580+ {-# INLINE liftParseJSON #-}
2581+
2582+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l, FromJSON m) => FromJSON (a, b, c, d, e, f, g, h, i, j, k, l, m) where
2583+ parseJSON = parseJSON2
2584+ {-# INLINE parseJSON #-}
2585+
2586+
2587+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l) => FromJSON2 ((,,,,,,,,,,,,,) a b c d e f g h i j k l) where
2588+ liftParseJSON2 pM _ pN _ = withArray "(a, b, c, d, e, f, g, h, i, j, k, l, m, n)" $ \t ->
2589+ let n = V.length t
2590+ in if n == 14
2591+ then (,,,,,,,,,,,,,)
2592+ <$> parseJSONElemAtIndex parseJSON 0 t
2593+ <*> parseJSONElemAtIndex parseJSON 1 t
2594+ <*> parseJSONElemAtIndex parseJSON 2 t
2595+ <*> parseJSONElemAtIndex parseJSON 3 t
2596+ <*> parseJSONElemAtIndex parseJSON 4 t
2597+ <*> parseJSONElemAtIndex parseJSON 5 t
2598+ <*> parseJSONElemAtIndex parseJSON 6 t
2599+ <*> parseJSONElemAtIndex parseJSON 7 t
2600+ <*> parseJSONElemAtIndex parseJSON 8 t
2601+ <*> parseJSONElemAtIndex parseJSON 9 t
2602+ <*> parseJSONElemAtIndex parseJSON 10 t
2603+ <*> parseJSONElemAtIndex parseJSON 11 t
2604+ <*> parseJSONElemAtIndex pM 12 t
2605+ <*> parseJSONElemAtIndex pN 13 t
2606+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 14"
2607+ {-# INLINE liftParseJSON2 #-}
2608+
2609+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l, FromJSON m) => FromJSON1 ((,,,,,,,,,,,,,) a b c d e f g h i j k l m) where
2610+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2611+ {-# INLINE liftParseJSON #-}
2612+
2613+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l, FromJSON m, FromJSON n) => FromJSON (a, b, c, d, e, f, g, h, i, j, k, l, m, n) where
2614+ parseJSON = parseJSON2
2615+ {-# INLINE parseJSON #-}
2616+
2617+
2618+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l, FromJSON m) => FromJSON2 ((,,,,,,,,,,,,,,) a b c d e f g h i j k l m) where
2619+ liftParseJSON2 pN _ pO _ = withArray "(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o)" $ \t ->
2620+ let n = V.length t
2621+ in if n == 15
2622+ then (,,,,,,,,,,,,,,)
2623+ <$> parseJSONElemAtIndex parseJSON 0 t
2624+ <*> parseJSONElemAtIndex parseJSON 1 t
2625+ <*> parseJSONElemAtIndex parseJSON 2 t
2626+ <*> parseJSONElemAtIndex parseJSON 3 t
2627+ <*> parseJSONElemAtIndex parseJSON 4 t
2628+ <*> parseJSONElemAtIndex parseJSON 5 t
2629+ <*> parseJSONElemAtIndex parseJSON 6 t
2630+ <*> parseJSONElemAtIndex parseJSON 7 t
2631+ <*> parseJSONElemAtIndex parseJSON 8 t
2632+ <*> parseJSONElemAtIndex parseJSON 9 t
2633+ <*> parseJSONElemAtIndex parseJSON 10 t
2634+ <*> parseJSONElemAtIndex parseJSON 11 t
2635+ <*> parseJSONElemAtIndex parseJSON 12 t
2636+ <*> parseJSONElemAtIndex pN 13 t
2637+ <*> parseJSONElemAtIndex pO 14 t
2638+ else fail $ "cannot unpack array of length " ++ show n ++ " into a tuple of length 15"
2639+ {-# INLINE liftParseJSON2 #-}
2640+
2641+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l, FromJSON m, FromJSON n) => FromJSON1 ((,,,,,,,,,,,,,,) a b c d e f g h i j k l m n) where
2642+ liftParseJSON = liftParseJSON2 parseJSON parseJSONList
2643+ {-# INLINE liftParseJSON #-}
2644+
2645+instance (FromJSON a, FromJSON b, FromJSON c, FromJSON d, FromJSON e, FromJSON f, FromJSON g, FromJSON h, FromJSON i, FromJSON j, FromJSON k, FromJSON l, FromJSON m, FromJSON n, FromJSON o) => FromJSON (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) where
2646+ parseJSON = parseJSON2
2647+ {-# INLINE parseJSON #-}
Data/Aeson/Types/Generic.hsnew file+118
@@ -0,0 +1,118 @@
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE DataKinds #-}
3+{-# LANGUAGE DeriveFunctor #-}
4+{-# LANGUAGE EmptyDataDecls #-}
5+{-# LANGUAGE FlexibleInstances #-}
6+{-# LANGUAGE FunctionalDependencies #-}
7+{-# LANGUAGE KindSignatures #-}
8+{-# LANGUAGE NoImplicitPrelude #-}
9+{-# LANGUAGE ScopedTypeVariables #-}
10+{-# LANGUAGE TypeOperators #-}
11+{-# LANGUAGE UndecidableInstances #-}
12+
13+#include "overlapping-compat.h"
14+
15+-- |
16+-- Module: Data.Aeson.Types.Generic
17+-- Copyright: (c) 2012-2016 Bryan O'Sullivan
18+-- (c) 2011, 2012 Bas Van Dijk
19+-- (c) 2011 MailRank, Inc.
20+-- License: BSD3
21+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
22+-- Stability: experimental
23+-- Portability: portable
24+--
25+-- Helpers for generic derivations.
26+
27+module Data.Aeson.Types.Generic
28+ (
29+ IsRecord
30+ , AllNullary
31+ , Tagged2(..)
32+ , True
33+ , False
34+ , And
35+ , Zero
36+ , One
37+ , ProductSize(..)
38+ , (:*)(..)
39+ ) where
40+
41+import Prelude.Compat
42+
43+import GHC.Generics
44+
45+--------------------------------------------------------------------------------
46+
47+class IsRecord (f :: * -> *) isRecord | f -> isRecord
48+
49+instance (IsRecord f isRecord) => IsRecord (f :*: g) isRecord
50+#if MIN_VERSION_base(4,9,0)
51+instance OVERLAPPING_ IsRecord (M1 S ('MetaSel 'Nothing u ss ds) f) False
52+#else
53+instance OVERLAPPING_ IsRecord (M1 S NoSelector f) False
54+#endif
55+instance (IsRecord f isRecord) => IsRecord (M1 S c f) isRecord
56+instance IsRecord (K1 i c) True
57+instance IsRecord Par1 True
58+instance IsRecord (Rec1 f) True
59+instance IsRecord (f :.: g) True
60+instance IsRecord U1 False
61+
62+--------------------------------------------------------------------------------
63+
64+class AllNullary (f :: * -> *) allNullary | f -> allNullary
65+
66+instance ( AllNullary a allNullaryL
67+ , AllNullary b allNullaryR
68+ , And allNullaryL allNullaryR allNullary
69+ ) => AllNullary (a :+: b) allNullary
70+instance AllNullary a allNullary => AllNullary (M1 i c a) allNullary
71+instance AllNullary (a :*: b) False
72+instance AllNullary (a :.: b) False
73+instance AllNullary (K1 i c) False
74+instance AllNullary Par1 False
75+instance AllNullary (Rec1 f) False
76+instance AllNullary U1 True
77+
78+newtype Tagged2 (s :: * -> *) b = Tagged2 {unTagged2 :: b}
79+ deriving Functor
80+
81+--------------------------------------------------------------------------------
82+
83+data True
84+data False
85+
86+class And bool1 bool2 bool3 | bool1 bool2 -> bool3
87+
88+instance And True True True
89+instance And False False False
90+instance And False True False
91+instance And True False False
92+
93+--------------------------------------------------------------------------------
94+
95+-- | A type-level indicator that 'ToJSON' or 'FromJSON' is being derived generically.
96+data Zero
97+
98+-- | A type-level indicator that 'ToJSON1' or 'FromJSON1' is being derived generically.
99+data One
100+
101+--------------------------------------------------------------------------------
102+
103+class ProductSize f where
104+ productSize :: Tagged2 f Int
105+
106+instance (ProductSize a, ProductSize b) => ProductSize (a :*: b) where
107+ productSize = Tagged2 $ unTagged2 (productSize :: Tagged2 a Int) +
108+ unTagged2 (productSize :: Tagged2 b Int)
109+
110+instance ProductSize (S1 s a) where
111+ productSize = Tagged2 1
112+
113+--------------------------------------------------------------------------------
114+
115+-- | Simple extensible tuple type to simplify passing around many parameters.
116+data a :* b = a :* b
117+
118+infixr 1 :*
Data/Aeson/Types/Internal.hsnew file+799
@@ -0,0 +1,799 @@
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
5+{-# LANGUAGE NoImplicitPrelude #-}
6+{-# LANGUAGE Rank2Types #-}
7+#if __GLASGOW_HASKELL__ >= 800
8+-- a) THQ works on cross-compilers and unregisterised GHCs
9+-- b) may make compilation faster as no dynamic loading is ever needed (not sure about this)
10+-- c) removes one hindrance to have code inferred as SafeHaskell safe
11+{-# LANGUAGE TemplateHaskellQuotes #-}
12+#else
13+{-# LANGUAGE TemplateHaskell #-}
14+#endif
15+
16+-- |
17+-- Module: Data.Aeson.Types.Internal
18+-- Copyright: (c) 2011-2016 Bryan O'Sullivan
19+-- (c) 2011 MailRank, Inc.
20+-- License: BSD3
21+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
22+-- Stability: experimental
23+-- Portability: portable
24+--
25+-- Types for working with JSON data.
26+
27+module Data.Aeson.Types.Internal
28+ (
29+ -- * Core JSON types
30+ Value(..)
31+ , Array
32+ , emptyArray, isEmptyArray
33+ , Pair
34+ , Object
35+ , emptyObject
36+
37+ -- * Type conversion
38+ , Parser
39+ , Result(..)
40+ , IResult(..)
41+ , JSONPathElement(..)
42+ , JSONPath
43+ , iparse
44+ , parse
45+ , parseEither
46+ , parseMaybe
47+ , modifyFailure
48+ , prependFailure
49+ , parserThrowError
50+ , parserCatchError
51+ , formatError
52+ , formatPath
53+ , formatRelativePath
54+ , (<?>)
55+ -- * Constructors and accessors
56+ , object
57+
58+ -- * Generic and TH encoding configuration
59+ , Options(
60+ fieldLabelModifier
61+ , constructorTagModifier
62+ , allNullaryToStringTag
63+ , omitNothingFields
64+ , sumEncoding
65+ , unwrapUnaryRecords
66+ , tagSingleConstructors
67+ , rejectUnknownFields
68+ )
69+
70+ , SumEncoding(..)
71+ , JSONKeyOptions(keyModifier)
72+ , defaultOptions
73+ , defaultTaggedObject
74+ , defaultJSONKeyOptions
75+
76+ -- * Used for changing CamelCase names into something else.
77+ , camelTo
78+ , camelTo2
79+
80+ -- * Other types
81+ , DotNetTime(..)
82+ ) where
83+
84+import Prelude.Compat
85+
86+import Control.Applicative (Alternative(..))
87+import Control.Arrow (first)
88+import Control.DeepSeq (NFData(..))
89+import Control.Monad (MonadPlus(..), ap)
90+import Data.Char (isLower, isUpper, toLower, isAlpha, isAlphaNum)
91+import Data.Data (Data)
92+import Data.Foldable (foldl')
93+import Data.HashMap.Strict (HashMap)
94+import Data.Hashable (Hashable(..))
95+import Data.List (intercalate)
96+import Data.Scientific (Scientific)
97+import Data.Semigroup (Semigroup((<>)))
98+import Data.String (IsString(..))
99+import Data.Text (Text, pack, unpack)
100+import Data.Time (UTCTime)
101+import Data.Time.Format (FormatTime)
102+import Data.Typeable (Typeable)
103+import Data.Vector (Vector)
104+import GHC.Generics (Generic)
105+import qualified Control.Monad as Monad
106+import qualified Control.Monad.Fail as Fail
107+import qualified Data.HashMap.Strict as H
108+import qualified Data.Scientific as S
109+import qualified Data.Vector as V
110+import qualified Language.Haskell.TH.Syntax as TH
111+
112+#if !MIN_VERSION_unordered_containers(0,2,6)
113+import Data.List (sort)
114+#endif
115+
116+-- | Elements of a JSON path used to describe the location of an
117+-- error.
118+data JSONPathElement = Key Text
119+ -- ^ JSON path element of a key into an object,
120+ -- \"object.key\".
121+ | Index {-# UNPACK #-} !Int
122+ -- ^ JSON path element of an index into an
123+ -- array, \"array[index]\".
124+ deriving (Eq, Show, Typeable, Ord)
125+type JSONPath = [JSONPathElement]
126+
127+-- | The internal result of running a 'Parser'.
128+data IResult a = IError JSONPath String
129+ | ISuccess a
130+ deriving (Eq, Show, Typeable)
131+
132+-- | The result of running a 'Parser'.
133+data Result a = Error String
134+ | Success a
135+ deriving (Eq, Show, Typeable)
136+
137+instance NFData JSONPathElement where
138+ rnf (Key t) = rnf t
139+ rnf (Index i) = rnf i
140+
141+instance (NFData a) => NFData (IResult a) where
142+ rnf (ISuccess a) = rnf a
143+ rnf (IError path err) = rnf path `seq` rnf err
144+
145+instance (NFData a) => NFData (Result a) where
146+ rnf (Success a) = rnf a
147+ rnf (Error err) = rnf err
148+
149+instance Functor IResult where
150+ fmap f (ISuccess a) = ISuccess (f a)
151+ fmap _ (IError path err) = IError path err
152+ {-# INLINE fmap #-}
153+
154+instance Functor Result where
155+ fmap f (Success a) = Success (f a)
156+ fmap _ (Error err) = Error err
157+ {-# INLINE fmap #-}
158+
159+instance Monad.Monad IResult where
160+ return = pure
161+ {-# INLINE return #-}
162+
163+ ISuccess a >>= k = k a
164+ IError path err >>= _ = IError path err
165+ {-# INLINE (>>=) #-}
166+
167+#if !(MIN_VERSION_base(4,13,0))
168+ fail = Fail.fail
169+ {-# INLINE fail #-}
170+#endif
171+
172+instance Fail.MonadFail IResult where
173+ fail err = IError [] err
174+ {-# INLINE fail #-}
175+
176+instance Monad.Monad Result where
177+ return = pure
178+ {-# INLINE return #-}
179+
180+ Success a >>= k = k a
181+ Error err >>= _ = Error err
182+ {-# INLINE (>>=) #-}
183+
184+#if !(MIN_VERSION_base(4,13,0))
185+ fail = Fail.fail
186+ {-# INLINE fail #-}
187+#endif
188+
189+instance Fail.MonadFail Result where
190+ fail err = Error err
191+ {-# INLINE fail #-}
192+
193+instance Applicative IResult where
194+ pure = ISuccess
195+ {-# INLINE pure #-}
196+ (<*>) = ap
197+ {-# INLINE (<*>) #-}
198+
199+instance Applicative Result where
200+ pure = Success
201+ {-# INLINE pure #-}
202+ (<*>) = ap
203+ {-# INLINE (<*>) #-}
204+
205+instance MonadPlus IResult where
206+ mzero = fail "mzero"
207+ {-# INLINE mzero #-}
208+ mplus a@(ISuccess _) _ = a
209+ mplus _ b = b
210+ {-# INLINE mplus #-}
211+
212+instance MonadPlus Result where
213+ mzero = fail "mzero"
214+ {-# INLINE mzero #-}
215+ mplus a@(Success _) _ = a
216+ mplus _ b = b
217+ {-# INLINE mplus #-}
218+
219+instance Alternative IResult where
220+ empty = mzero
221+ {-# INLINE empty #-}
222+ (<|>) = mplus
223+ {-# INLINE (<|>) #-}
224+
225+instance Alternative Result where
226+ empty = mzero
227+ {-# INLINE empty #-}
228+ (<|>) = mplus
229+ {-# INLINE (<|>) #-}
230+
231+instance Semigroup (IResult a) where
232+ (<>) = mplus
233+ {-# INLINE (<>) #-}
234+
235+instance Monoid (IResult a) where
236+ mempty = fail "mempty"
237+ {-# INLINE mempty #-}
238+ mappend = (<>)
239+ {-# INLINE mappend #-}
240+
241+instance Semigroup (Result a) where
242+ (<>) = mplus
243+ {-# INLINE (<>) #-}
244+
245+instance Monoid (Result a) where
246+ mempty = fail "mempty"
247+ {-# INLINE mempty #-}
248+ mappend = (<>)
249+ {-# INLINE mappend #-}
250+
251+instance Foldable IResult where
252+ foldMap _ (IError _ _) = mempty
253+ foldMap f (ISuccess y) = f y
254+ {-# INLINE foldMap #-}
255+
256+ foldr _ z (IError _ _) = z
257+ foldr f z (ISuccess y) = f y z
258+ {-# INLINE foldr #-}
259+
260+instance Foldable Result where
261+ foldMap _ (Error _) = mempty
262+ foldMap f (Success y) = f y
263+ {-# INLINE foldMap #-}
264+
265+ foldr _ z (Error _) = z
266+ foldr f z (Success y) = f y z
267+ {-# INLINE foldr #-}
268+
269+instance Traversable IResult where
270+ traverse _ (IError path err) = pure (IError path err)
271+ traverse f (ISuccess a) = ISuccess <$> f a
272+ {-# INLINE traverse #-}
273+
274+instance Traversable Result where
275+ traverse _ (Error err) = pure (Error err)
276+ traverse f (Success a) = Success <$> f a
277+ {-# INLINE traverse #-}
278+
279+-- | Failure continuation.
280+type Failure f r = JSONPath -> String -> f r
281+-- | Success continuation.
282+type Success a f r = a -> f r
283+
284+-- | A JSON parser. N.B. This might not fit your usual understanding of
285+-- "parser". Instead you might like to think of 'Parser' as a "parse result",
286+-- i.e. a parser to which the input has already been applied.
287+newtype Parser a = Parser {
288+ runParser :: forall f r.
289+ JSONPath
290+ -> Failure f r
291+ -> Success a f r
292+ -> f r
293+ }
294+
295+instance Monad.Monad Parser where
296+ m >>= g = Parser $ \path kf ks -> let ks' a = runParser (g a) path kf ks
297+ in runParser m path kf ks'
298+ {-# INLINE (>>=) #-}
299+ return = pure
300+ {-# INLINE return #-}
301+
302+#if !(MIN_VERSION_base(4,13,0))
303+ fail = Fail.fail
304+ {-# INLINE fail #-}
305+#endif
306+
307+instance Fail.MonadFail Parser where
308+ fail msg = Parser $ \path kf _ks -> kf (reverse path) msg
309+ {-# INLINE fail #-}
310+
311+instance Functor Parser where
312+ fmap f m = Parser $ \path kf ks -> let ks' a = ks (f a)
313+ in runParser m path kf ks'
314+ {-# INLINE fmap #-}
315+
316+instance Applicative Parser where
317+ pure a = Parser $ \_path _kf ks -> ks a
318+ {-# INLINE pure #-}
319+ (<*>) = apP
320+ {-# INLINE (<*>) #-}
321+
322+instance Alternative Parser where
323+ empty = fail "empty"
324+ {-# INLINE empty #-}
325+ (<|>) = mplus
326+ {-# INLINE (<|>) #-}
327+
328+instance MonadPlus Parser where
329+ mzero = fail "mzero"
330+ {-# INLINE mzero #-}
331+ mplus a b = Parser $ \path kf ks -> let kf' _ _ = runParser b path kf ks
332+ in runParser a path kf' ks
333+ {-# INLINE mplus #-}
334+
335+instance Semigroup (Parser a) where
336+ (<>) = mplus
337+ {-# INLINE (<>) #-}
338+
339+instance Monoid (Parser a) where
340+ mempty = fail "mempty"
341+ {-# INLINE mempty #-}
342+ mappend = (<>)
343+ {-# INLINE mappend #-}
344+
345+apP :: Parser (a -> b) -> Parser a -> Parser b
346+apP d e = do
347+ b <- d
348+ b <$> e
349+{-# INLINE apP #-}
350+
351+-- | A JSON \"object\" (key\/value map).
352+type Object = HashMap Text Value
353+
354+-- | A JSON \"array\" (sequence).
355+type Array = Vector Value
356+
357+-- | A JSON value represented as a Haskell value.
358+data Value = Object !Object
359+ | Array !Array
360+ | String !Text
361+ | Number !Scientific
362+ | Bool !Bool
363+ | Null
364+ deriving (Eq, Read, Show, Typeable, Data, Generic)
365+
366+-- | A newtype wrapper for 'UTCTime' that uses the same non-standard
367+-- serialization format as Microsoft .NET, whose
368+-- <https://msdn.microsoft.com/en-us/library/system.datetime(v=vs.110).aspx System.DateTime>
369+-- type is by default serialized to JSON as in the following example:
370+--
371+-- > /Date(1302547608878)/
372+--
373+-- The number represents milliseconds since the Unix epoch.
374+newtype DotNetTime = DotNetTime {
375+ fromDotNetTime :: UTCTime
376+ -- ^ Acquire the underlying value.
377+ } deriving (Eq, Ord, Read, Show, Typeable, FormatTime)
378+
379+instance NFData Value where
380+ rnf (Object o) = rnf o
381+ rnf (Array a) = foldl' (\x y -> rnf y `seq` x) () a
382+ rnf (String s) = rnf s
383+ rnf (Number n) = rnf n
384+ rnf (Bool b) = rnf b
385+ rnf Null = ()
386+
387+instance IsString Value where
388+ fromString = String . pack
389+ {-# INLINE fromString #-}
390+
391+hashValue :: Int -> Value -> Int
392+#if MIN_VERSION_unordered_containers(0,2,6)
393+hashValue s (Object o) = s `hashWithSalt` (0::Int) `hashWithSalt` o
394+#else
395+hashValue s (Object o) = foldl' hashWithSalt
396+ (s `hashWithSalt` (0::Int)) assocHashesSorted
397+ where
398+ assocHashesSorted = sort [hash k `hashWithSalt` v | (k, v) <- H.toList o]
399+#endif
400+hashValue s (Array a) = foldl' hashWithSalt
401+ (s `hashWithSalt` (1::Int)) a
402+hashValue s (String str) = s `hashWithSalt` (2::Int) `hashWithSalt` str
403+hashValue s (Number n) = s `hashWithSalt` (3::Int) `hashWithSalt` n
404+hashValue s (Bool b) = s `hashWithSalt` (4::Int) `hashWithSalt` b
405+hashValue s Null = s `hashWithSalt` (5::Int)
406+
407+instance Hashable Value where
408+ hashWithSalt = hashValue
409+
410+-- @since 0.11.0.0
411+instance TH.Lift Value where
412+ lift Null = [| Null |]
413+ lift (Bool b) = [| Bool b |]
414+ lift (Number n) = [| Number (S.scientific c e) |]
415+ where
416+ c = S.coefficient n
417+ e = S.base10Exponent n
418+ lift (String t) = [| String (pack s) |]
419+ where s = unpack t
420+ lift (Array a) = [| Array (V.fromList a') |]
421+ where a' = V.toList a
422+ lift (Object o) = [| Object (H.fromList . map (first pack) $ o') |]
423+ where o' = map (first unpack) . H.toList $ o
424+
425+-- | The empty array.
426+emptyArray :: Value
427+emptyArray = Array V.empty
428+
429+-- | Determines if the 'Value' is an empty 'Array'.
430+-- Note that: @isEmptyArray 'emptyArray'@.
431+isEmptyArray :: Value -> Bool
432+isEmptyArray (Array arr) = V.null arr
433+isEmptyArray _ = False
434+
435+-- | The empty object.
436+emptyObject :: Value
437+emptyObject = Object H.empty
438+
439+-- | Run a 'Parser'.
440+parse :: (a -> Parser b) -> a -> Result b
441+parse m v = runParser (m v) [] (const Error) Success
442+{-# INLINE parse #-}
443+
444+-- | Run a 'Parser'.
445+iparse :: (a -> Parser b) -> a -> IResult b
446+iparse m v = runParser (m v) [] IError ISuccess
447+{-# INLINE iparse #-}
448+
449+-- | Run a 'Parser' with a 'Maybe' result type.
450+parseMaybe :: (a -> Parser b) -> a -> Maybe b
451+parseMaybe m v = runParser (m v) [] (\_ _ -> Nothing) Just
452+{-# INLINE parseMaybe #-}
453+
454+-- | Run a 'Parser' with an 'Either' result type. If the parse fails,
455+-- the 'Left' payload will contain an error message.
456+parseEither :: (a -> Parser b) -> a -> Either String b
457+parseEither m v = runParser (m v) [] onError Right
458+ where onError path msg = Left (formatError path msg)
459+{-# INLINE parseEither #-}
460+
461+-- | Annotate an error message with a
462+-- <http://goessner.net/articles/JsonPath/ JSONPath> error location.
463+formatError :: JSONPath -> String -> String
464+formatError path msg = "Error in " ++ formatPath path ++ ": " ++ msg
465+
466+-- | Format a <http://goessner.net/articles/JsonPath/ JSONPath> as a 'String',
467+-- representing the root object as @$@.
468+formatPath :: JSONPath -> String
469+formatPath path = "$" ++ formatRelativePath path
470+
471+-- | Format a <http://goessner.net/articles/JsonPath/ JSONPath> as a 'String'
472+-- which represents the path relative to some root object.
473+formatRelativePath :: JSONPath -> String
474+formatRelativePath path = format "" path
475+ where
476+ format :: String -> JSONPath -> String
477+ format pfx [] = pfx
478+ format pfx (Index idx:parts) = format (pfx ++ "[" ++ show idx ++ "]") parts
479+ format pfx (Key key:parts) = format (pfx ++ formatKey key) parts
480+
481+ formatKey :: Text -> String
482+ formatKey key
483+ | isIdentifierKey strKey = "." ++ strKey
484+ | otherwise = "['" ++ escapeKey strKey ++ "']"
485+ where strKey = unpack key
486+
487+ isIdentifierKey :: String -> Bool
488+ isIdentifierKey [] = False
489+ isIdentifierKey (x:xs) = isAlpha x && all isAlphaNum xs
490+
491+ escapeKey :: String -> String
492+ escapeKey = concatMap escapeChar
493+
494+ escapeChar :: Char -> String
495+ escapeChar '\'' = "\\'"
496+ escapeChar '\\' = "\\\\"
497+ escapeChar c = [c]
498+
499+-- | A key\/value pair for an 'Object'.
500+type Pair = (Text, Value)
501+
502+-- | Create a 'Value' from a list of name\/value 'Pair's. If duplicate
503+-- keys arise, earlier keys and their associated values win.
504+object :: [Pair] -> Value
505+object = Object . H.fromList
506+{-# INLINE object #-}
507+
508+-- | Add JSON Path context to a parser
509+--
510+-- When parsing a complex structure, it helps to annotate (sub)parsers
511+-- with context, so that if an error occurs, you can find its location.
512+--
513+-- > withObject "Person" $ \o ->
514+-- > Person
515+-- > <$> o .: "name" <?> Key "name"
516+-- > <*> o .: "age" <?> Key "age"
517+--
518+-- (Standard methods like '(.:)' already do this.)
519+--
520+-- With such annotations, if an error occurs, you will get a JSON Path
521+-- location of that error.
522+--
523+-- Since 0.10
524+(<?>) :: Parser a -> JSONPathElement -> Parser a
525+p <?> pathElem = Parser $ \path kf ks -> runParser p (pathElem:path) kf ks
526+
527+-- | If the inner @Parser@ failed, modify the failure message using the
528+-- provided function. This allows you to create more descriptive error messages.
529+-- For example:
530+--
531+-- > parseJSON (Object o) = modifyFailure
532+-- > ("Parsing of the Foo value failed: " ++)
533+-- > (Foo <$> o .: "someField")
534+--
535+-- Since 0.6.2.0
536+modifyFailure :: (String -> String) -> Parser a -> Parser a
537+modifyFailure f (Parser p) = Parser $ \path kf ks ->
538+ p path (\p' m -> kf p' (f m)) ks
539+
540+-- | If the inner 'Parser' failed, prepend the given string to the failure
541+-- message.
542+--
543+-- @
544+-- 'prependFailure' s = 'modifyFailure' (s '++')
545+-- @
546+prependFailure :: String -> Parser a -> Parser a
547+prependFailure = modifyFailure . (++)
548+
549+-- | Throw a parser error with an additional path.
550+--
551+-- @since 1.2.1.0
552+parserThrowError :: JSONPath -> String -> Parser a
553+parserThrowError path' msg = Parser $ \path kf _ks ->
554+ kf (reverse path ++ path') msg
555+
556+-- | A handler function to handle previous errors and return to normal execution.
557+--
558+-- @since 1.2.1.0
559+parserCatchError :: Parser a -> (JSONPath -> String -> Parser a) -> Parser a
560+parserCatchError (Parser p) handler = Parser $ \path kf ks ->
561+ p path (\e msg -> runParser (handler e msg) path kf ks) ks
562+
563+--------------------------------------------------------------------------------
564+-- Generic and TH encoding configuration
565+--------------------------------------------------------------------------------
566+
567+-- | Options that specify how to encode\/decode your datatype to\/from JSON.
568+--
569+-- Options can be set using record syntax on 'defaultOptions' with the fields
570+-- below.
571+data Options = Options
572+ { fieldLabelModifier :: String -> String
573+ -- ^ Function applied to field labels.
574+ -- Handy for removing common record prefixes for example.
575+ , constructorTagModifier :: String -> String
576+ -- ^ Function applied to constructor tags which could be handy
577+ -- for lower-casing them for example.
578+ , allNullaryToStringTag :: Bool
579+ -- ^ If 'True' the constructors of a datatype, with /all/
580+ -- nullary constructors, will be encoded to just a string with
581+ -- the constructor tag. If 'False' the encoding will always
582+ -- follow the `sumEncoding`.
583+ , omitNothingFields :: Bool
584+ -- ^ If 'True' record fields with a 'Nothing' value will be
585+ -- omitted from the resulting object. If 'False' the resulting
586+ -- object will include those fields mapping to @null@.
587+ --
588+ -- === Note
589+ --
590+ -- Setting 'omitNothingFields' to 'True' only affects fields which are of
591+ -- type 'Maybe' /uniformly/ in the 'ToJSON' or 'FromJSON' instance. In
592+ -- particular, if the type of a field is declared as a type variable, it
593+ -- will not be omitted from the JSON object, unless the field is
594+ -- specialized upfront in the instance.
595+ --
596+ -- ==== __Example__
597+ --
598+ -- The generic instance for the following type @Fruit@ depends on whether
599+ -- the instance head is @Fruit a@ or @Fruit (Maybe a)@.
600+ --
601+ -- @
602+ -- data Fruit a =
603+ -- { apples :: a -- A field whose type is a type variable.
604+ -- , oranges :: 'Maybe' Int
605+ -- }
606+ --
607+ -- options :: 'Options'
608+ -- options = 'defaultOptions' { 'omitNothingFields' = 'True' }
609+ --
610+ -- -- apples required, oranges optional
611+ -- -- Even if 'Data.Aeson.fromJSON' is then specialized to (Fruit ('Maybe' a)).
612+ -- instance 'Data.Aeson.FromJSON' a => 'Data.Aeson.FromJSON' (Fruit a) where
613+ -- 'Data.Aeson.fromJSON' = 'Data.Aeson.genericFromJSON' options
614+ --
615+ -- -- apples optional, oranges optional
616+ -- -- In this instance, the field apples is uniformly of type ('Maybe' a).
617+ -- instance 'Data.Aeson.FromJSON' a => 'Data.Aeson.FromJSON' (Fruit ('Maybe' a)) where
618+ -- 'Data.Aeson.fromJSON' = 'Data.Aeson.genericFromJSON' options
619+ -- @
620+ , sumEncoding :: SumEncoding
621+ -- ^ Specifies how to encode constructors of a sum datatype.
622+ , unwrapUnaryRecords :: Bool
623+ -- ^ Hide the field name when a record constructor has only one
624+ -- field, like a newtype.
625+ , tagSingleConstructors :: Bool
626+ -- ^ Encode types with a single constructor as sums,
627+ -- so that `allNullaryToStringTag` and `sumEncoding` apply.
628+ , rejectUnknownFields :: Bool
629+ -- ^ Applies only to 'Data.Aeson.FromJSON' instances. If a field appears in
630+ -- the parsed object map, but does not appear in the target object, parsing
631+ -- will fail, with an error message indicating which fields were unknown.
632+ }
633+
634+instance Show Options where
635+ show (Options f c a o s u t r) =
636+ "Options {"
637+ ++ intercalate ", "
638+ [ "fieldLabelModifier =~ " ++ show (f "exampleField")
639+ , "constructorTagModifier =~ " ++ show (c "ExampleConstructor")
640+ , "allNullaryToStringTag = " ++ show a
641+ , "omitNothingFields = " ++ show o
642+ , "sumEncoding = " ++ show s
643+ , "unwrapUnaryRecords = " ++ show u
644+ , "tagSingleConstructors = " ++ show t
645+ , "rejectUnknownFields = " ++ show r
646+ ]
647+ ++ "}"
648+
649+-- | Specifies how to encode constructors of a sum datatype.
650+data SumEncoding =
651+ TaggedObject { tagFieldName :: String
652+ , contentsFieldName :: String
653+ }
654+ -- ^ A constructor will be encoded to an object with a field
655+ -- 'tagFieldName' which specifies the constructor tag (modified by
656+ -- the 'constructorTagModifier'). If the constructor is a record
657+ -- the encoded record fields will be unpacked into this object. So
658+ -- make sure that your record doesn't have a field with the same
659+ -- label as the 'tagFieldName'. Otherwise the tag gets overwritten
660+ -- by the encoded value of that field! If the constructor is not a
661+ -- record the encoded constructor contents will be stored under
662+ -- the 'contentsFieldName' field.
663+ | UntaggedValue
664+ -- ^ Constructor names won't be encoded. Instead only the contents of the
665+ -- constructor will be encoded as if the type had a single constructor. JSON
666+ -- encodings have to be disjoint for decoding to work properly.
667+ --
668+ -- When decoding, constructors are tried in the order of definition. If some
669+ -- encodings overlap, the first one defined will succeed.
670+ --
671+ -- /Note:/ Nullary constructors are encoded as strings (using
672+ -- 'constructorTagModifier'). Having a nullary constructor alongside a
673+ -- single field constructor that encodes to a string leads to ambiguity.
674+ --
675+ -- /Note:/ Only the last error is kept when decoding, so in the case of
676+ -- malformed JSON, only an error for the last constructor will be reported.
677+ | ObjectWithSingleField
678+ -- ^ A constructor will be encoded to an object with a single
679+ -- field named after the constructor tag (modified by the
680+ -- 'constructorTagModifier') which maps to the encoded contents of
681+ -- the constructor.
682+ | TwoElemArray
683+ -- ^ A constructor will be encoded to a 2-element array where the
684+ -- first element is the tag of the constructor (modified by the
685+ -- 'constructorTagModifier') and the second element the encoded
686+ -- contents of the constructor.
687+ deriving (Eq, Show)
688+
689+-- | Options for encoding keys with 'Data.Aeson.Types.genericFromJSONKey' and
690+-- 'Data.Aeson.Types.genericToJSONKey'.
691+data JSONKeyOptions = JSONKeyOptions
692+ { keyModifier :: String -> String
693+ -- ^ Function applied to keys. Its result is what goes into the encoded
694+ -- 'Value'.
695+ --
696+ -- === __Example__
697+ --
698+ -- The following instances encode the constructor @Bar@ to lower-case keys
699+ -- @\"bar\"@.
700+ --
701+ -- @
702+ -- data Foo = Bar
703+ -- deriving 'Generic'
704+ --
705+ -- opts :: 'JSONKeyOptions'
706+ -- opts = 'defaultJSONKeyOptions' { 'keyModifier' = 'toLower' }
707+ --
708+ -- instance 'ToJSONKey' Foo where
709+ -- 'toJSONKey' = 'genericToJSONKey' opts
710+ --
711+ -- instance 'FromJSONKey' Foo where
712+ -- 'fromJSONKey' = 'genericFromJSONKey' opts
713+ -- @
714+ }
715+
716+-- | Default encoding 'Options':
717+--
718+-- @
719+-- 'Options'
720+-- { 'fieldLabelModifier' = id
721+-- , 'constructorTagModifier' = id
722+-- , 'allNullaryToStringTag' = True
723+-- , 'omitNothingFields' = False
724+-- , 'sumEncoding' = 'defaultTaggedObject'
725+-- , 'unwrapUnaryRecords' = False
726+-- , 'tagSingleConstructors' = False
727+-- , 'rejectUnknownFields' = False
728+-- }
729+-- @
730+defaultOptions :: Options
731+defaultOptions = Options
732+ { fieldLabelModifier = id
733+ , constructorTagModifier = id
734+ , allNullaryToStringTag = True
735+ , omitNothingFields = False
736+ , sumEncoding = defaultTaggedObject
737+ , unwrapUnaryRecords = False
738+ , tagSingleConstructors = False
739+ , rejectUnknownFields = False
740+ }
741+
742+-- | Default 'TaggedObject' 'SumEncoding' options:
743+--
744+-- @
745+-- defaultTaggedObject = 'TaggedObject'
746+-- { 'tagFieldName' = \"tag\"
747+-- , 'contentsFieldName' = \"contents\"
748+-- }
749+-- @
750+defaultTaggedObject :: SumEncoding
751+defaultTaggedObject = TaggedObject
752+ { tagFieldName = "tag"
753+ , contentsFieldName = "contents"
754+ }
755+
756+-- | Default 'JSONKeyOptions':
757+--
758+-- @
759+-- defaultJSONKeyOptions = 'JSONKeyOptions'
760+-- { 'keyModifier' = 'id'
761+-- }
762+-- @
763+defaultJSONKeyOptions :: JSONKeyOptions
764+defaultJSONKeyOptions = JSONKeyOptions id
765+
766+-- | Converts from CamelCase to another lower case, interspersing
767+-- the character between all capital letters and their previous
768+-- entries, except those capital letters that appear together,
769+-- like 'API'.
770+--
771+-- For use by Aeson template haskell calls.
772+--
773+-- > camelTo '_' 'CamelCaseAPI' == "camel_case_api"
774+camelTo :: Char -> String -> String
775+{-# DEPRECATED camelTo "Use camelTo2 for better results" #-}
776+camelTo c = lastWasCap True
777+ where
778+ lastWasCap :: Bool -- ^ Previous was a capital letter
779+ -> String -- ^ The remaining string
780+ -> String
781+ lastWasCap _ [] = []
782+ lastWasCap prev (x : xs) = if isUpper x
783+ then if prev
784+ then toLower x : lastWasCap True xs
785+ else c : toLower x : lastWasCap True xs
786+ else x : lastWasCap False xs
787+
788+-- | Better version of 'camelTo'. Example where it works better:
789+--
790+-- > camelTo '_' 'CamelAPICase' == "camel_apicase"
791+-- > camelTo2 '_' 'CamelAPICase' == "camel_api_case"
792+camelTo2 :: Char -> String -> String
793+camelTo2 c = map toLower . go2 . go1
794+ where go1 "" = ""
795+ go1 (x:u:l:xs) | isUpper u && isLower l = x : c : u : l : go1 xs
796+ go1 (x:xs) = x : go1 xs
797+ go2 "" = ""
798+ go2 (l:u:xs) | isLower l && isUpper u = l : c : u : go2 xs
799+ go2 (x:xs) = x : go2 xs
Data/Aeson/Types/ToJSON.hsnew file+2872
@@ -0,0 +1,2872 @@
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE DefaultSignatures #-}
3+{-# LANGUAGE EmptyDataDecls #-}
4+{-# LANGUAGE FlexibleContexts #-}
5+{-# LANGUAGE FlexibleInstances #-}
6+{-# LANGUAGE FunctionalDependencies #-}
7+{-# LANGUAGE GADTs #-}
8+{-# LANGUAGE NoImplicitPrelude #-}
9+{-# LANGUAGE OverloadedStrings #-}
10+{-# LANGUAGE PatternGuards #-}
11+{-# LANGUAGE PolyKinds #-}
12+{-# LANGUAGE RecordWildCards #-}
13+{-# LANGUAGE ScopedTypeVariables #-}
14+{-# LANGUAGE TypeOperators #-}
15+{-# LANGUAGE UndecidableInstances #-}
16+
17+#include "overlapping-compat.h"
18+#include "incoherent-compat.h"
19+
20+-- TODO: Drop this when we remove support for Data.Attoparsec.Number
21+{-# OPTIONS_GHC -fno-warn-deprecations #-}
22+
23+module Data.Aeson.Types.ToJSON
24+ (
25+ -- * Core JSON classes
26+ ToJSON(..)
27+ -- * Liftings to unary and binary type constructors
28+ , ToJSON1(..)
29+ , toJSON1
30+ , toEncoding1
31+ , ToJSON2(..)
32+ , toJSON2
33+ , toEncoding2
34+ -- * Generic JSON classes
35+ , GToJSON(..)
36+ , ToArgs(..)
37+ , genericToJSON
38+ , genericToEncoding
39+ , genericLiftToJSON
40+ , genericLiftToEncoding
41+ -- * Classes and types for map keys
42+ , ToJSONKey(..)
43+ , ToJSONKeyFunction(..)
44+ , toJSONKeyText
45+ , contramapToJSONKeyFunction
46+
47+ , GToJSONKey()
48+ , genericToJSONKey
49+
50+ -- * Object key-value pairs
51+ , KeyValue(..)
52+ , KeyValuePair(..)
53+ , FromPairs(..)
54+ -- * Functions needed for documentation
55+ -- * Encoding functions
56+ , listEncoding
57+ , listValue
58+ ) where
59+
60+import Prelude.Compat
61+
62+import Control.Applicative (Const(..))
63+import Control.Monad.ST (ST)
64+import Data.Aeson.Encoding (Encoding, Encoding', Series, dict, emptyArray_)
65+import Data.Aeson.Encoding.Internal ((>*<))
66+import Data.Aeson.Internal.Functions (mapHashKeyVal, mapKeyVal)
67+import Data.Aeson.Types.Generic (AllNullary, False, IsRecord, One, ProductSize, Tagged2(..), True, Zero, productSize)
68+import Data.Aeson.Types.Internal
69+import Data.Attoparsec.Number (Number(..))
70+import Data.Bits (unsafeShiftR)
71+import Data.DList (DList)
72+import Data.Fixed (Fixed, HasResolution, Nano)
73+import Data.Foldable (toList)
74+import Data.Functor.Compose (Compose(..))
75+import Data.Functor.Contravariant (Contravariant (..))
76+import Data.Functor.Identity (Identity(..))
77+import Data.Functor.Product (Product(..))
78+import Data.Functor.Sum (Sum(..))
79+import Data.Int (Int16, Int32, Int64, Int8)
80+import Data.List (intersperse)
81+import Data.List.NonEmpty (NonEmpty(..))
82+import Data.Semigroup ((<>))
83+import Data.Proxy (Proxy(..))
84+import Data.Ratio (Ratio, denominator, numerator)
85+import Data.Scientific (Scientific)
86+import Data.Tagged (Tagged(..))
87+import Data.Text (Text, pack)
88+import Data.Time (Day, DiffTime, LocalTime, NominalDiffTime, TimeOfDay, UTCTime, ZonedTime)
89+import Data.Time.Calendar.Compat (CalendarDiffDays (..), DayOfWeek (..))
90+import Data.Time.LocalTime.Compat (CalendarDiffTime (..))
91+import Data.Time.Clock.System.Compat (SystemTime (..))
92+import Data.Time.Format.Compat (FormatTime, formatTime, defaultTimeLocale)
93+import Data.Vector (Vector)
94+import Data.Version (Version, showVersion)
95+import Data.Void (Void, absurd)
96+import Data.Word (Word16, Word32, Word64, Word8)
97+import Foreign.Storable (Storable)
98+import Foreign.C.Types (CTime (..))
99+import GHC.Generics
100+import Numeric.Natural (Natural)
101+import qualified Data.Aeson.Encoding as E
102+import qualified Data.Aeson.Encoding.Internal as E (InArray, comma, econcat, retagEncoding)
103+import qualified Data.ByteString.Lazy as L
104+import qualified Data.DList as DList
105+import qualified Data.HashMap.Strict as H
106+import qualified Data.HashSet as HashSet
107+import qualified Data.IntMap as IntMap
108+import qualified Data.IntSet as IntSet
109+import qualified Data.List.NonEmpty as NE
110+import qualified Data.Map as M
111+import qualified Data.Monoid as Monoid
112+import qualified Data.Scientific as Scientific
113+import qualified Data.Semigroup as Semigroup
114+import qualified Data.Sequence as Seq
115+import qualified Data.Set as Set
116+import qualified Data.Text as T
117+import qualified Data.Text.Encoding as T
118+import qualified Data.Text.Lazy as LT
119+import qualified Data.Tree as Tree
120+import qualified Data.UUID.Types as UUID
121+import qualified Data.Vector as V
122+import qualified Data.Vector.Generic as VG
123+import qualified Data.Vector.Mutable as VM
124+import qualified Data.Vector.Primitive as VP
125+import qualified Data.Vector.Storable as VS
126+import qualified Data.Vector.Unboxed as VU
127+
128+import qualified Data.Aeson.Encoding.Builder as EB
129+import qualified Data.ByteString.Builder as B
130+
131+import qualified GHC.Exts as Exts
132+import qualified Data.Primitive.Array as PM
133+import qualified Data.Primitive.SmallArray as PM
134+import qualified Data.Primitive.Types as PM
135+
136+#if MIN_VERSION_primitive(0,6,4)
137+#if !MIN_VERSION_primitive(0,7,0)
138+import qualified Data.Primitive.UnliftedArray as PM
139+#endif
140+import qualified Data.Primitive.PrimArray as PM
141+#endif
142+
143+toJSONPair :: (a -> Value) -> (b -> Value) -> (a, b) -> Value
144+toJSONPair a b = liftToJSON2 a (listValue a) b (listValue b)
145+{-# INLINE toJSONPair #-}
146+
147+realFloatToJSON :: RealFloat a => a -> Value
148+realFloatToJSON d
149+ | isNaN d || isInfinite d = Null
150+ | otherwise = Number $ Scientific.fromFloatDigits d
151+{-# INLINE realFloatToJSON #-}
152+
153+-------------------------------------------------------------------------------
154+-- Generics
155+-------------------------------------------------------------------------------
156+
157+-- | Class of generic representation types that can be converted to
158+-- JSON.
159+class GToJSON enc arity f where
160+ -- | This method (applied to 'defaultOptions') is used as the
161+ -- default generic implementation of 'toJSON'
162+ -- (with @enc ~ 'Value'@ and @arity ~ 'Zero'@)
163+ -- and 'liftToJSON' (if the @arity@ is 'One').
164+ --
165+ -- It also provides a generic implementation of 'toEncoding'
166+ -- (with @enc ~ 'Encoding'@ and @arity ~ 'Zero'@)
167+ -- and 'liftToEncoding' (if the @arity@ is 'One').
168+ gToJSON :: Options -> ToArgs enc arity a -> f a -> enc
169+
170+-- | A 'ToArgs' value either stores nothing (for 'ToJSON') or it stores the two
171+-- function arguments that encode occurrences of the type parameter (for
172+-- 'ToJSON1').
173+data ToArgs res arity a where
174+ NoToArgs :: ToArgs res Zero a
175+ To1Args :: (a -> res) -> ([a] -> res) -> ToArgs res One a
176+
177+-- | A configurable generic JSON creator. This function applied to
178+-- 'defaultOptions' is used as the default for 'toJSON' when the type
179+-- is an instance of 'Generic'.
180+genericToJSON :: (Generic a, GToJSON Value Zero (Rep a))
181+ => Options -> a -> Value
182+genericToJSON opts = gToJSON opts NoToArgs . from
183+
184+-- | A configurable generic JSON creator. This function applied to
185+-- 'defaultOptions' is used as the default for 'liftToJSON' when the type
186+-- is an instance of 'Generic1'.
187+genericLiftToJSON :: (Generic1 f, GToJSON Value One (Rep1 f))
188+ => Options -> (a -> Value) -> ([a] -> Value)
189+ -> f a -> Value
190+genericLiftToJSON opts tj tjl = gToJSON opts (To1Args tj tjl) . from1
191+
192+-- | A configurable generic JSON encoder. This function applied to
193+-- 'defaultOptions' is used as the default for 'toEncoding' when the type
194+-- is an instance of 'Generic'.
195+genericToEncoding :: (Generic a, GToJSON Encoding Zero (Rep a))
196+ => Options -> a -> Encoding
197+genericToEncoding opts = gToJSON opts NoToArgs . from
198+
199+-- | A configurable generic JSON encoder. This function applied to
200+-- 'defaultOptions' is used as the default for 'liftToEncoding' when the type
201+-- is an instance of 'Generic1'.
202+genericLiftToEncoding :: (Generic1 f, GToJSON Encoding One (Rep1 f))
203+ => Options -> (a -> Encoding) -> ([a] -> Encoding)
204+ -> f a -> Encoding
205+genericLiftToEncoding opts te tel = gToJSON opts (To1Args te tel) . from1
206+
207+-------------------------------------------------------------------------------
208+-- Class
209+-------------------------------------------------------------------------------
210+
211+-- | A type that can be converted to JSON.
212+--
213+-- Instances in general /must/ specify 'toJSON' and /should/ (but don't need
214+-- to) specify 'toEncoding'.
215+--
216+-- An example type and instance:
217+--
218+-- @
219+-- \-- Allow ourselves to write 'Text' literals.
220+-- {-\# LANGUAGE OverloadedStrings #-}
221+--
222+-- data Coord = Coord { x :: Double, y :: Double }
223+--
224+-- instance 'ToJSON' Coord where
225+-- 'toJSON' (Coord x y) = 'object' [\"x\" '.=' x, \"y\" '.=' y]
226+--
227+-- 'toEncoding' (Coord x y) = 'pairs' (\"x\" '.=' x '<>' \"y\" '.=' y)
228+-- @
229+--
230+-- Instead of manually writing your 'ToJSON' instance, there are two options
231+-- to do it automatically:
232+--
233+-- * "Data.Aeson.TH" provides Template Haskell functions which will derive an
234+-- instance at compile time. The generated instance is optimized for your type
235+-- so it will probably be more efficient than the following option.
236+--
237+-- * The compiler can provide a default generic implementation for
238+-- 'toJSON'.
239+--
240+-- To use the second, simply add a @deriving 'Generic'@ clause to your
241+-- datatype and declare a 'ToJSON' instance. If you require nothing other than
242+-- 'defaultOptions', it is sufficient to write (and this is the only
243+-- alternative where the default 'toJSON' implementation is sufficient):
244+--
245+-- @
246+-- {-\# LANGUAGE DeriveGeneric \#-}
247+--
248+-- import "GHC.Generics"
249+--
250+-- data Coord = Coord { x :: Double, y :: Double } deriving 'Generic'
251+--
252+-- instance 'ToJSON' Coord where
253+-- 'toEncoding' = 'genericToEncoding' 'defaultOptions'
254+-- @
255+--
256+-- If on the other hand you wish to customize the generic decoding, you have
257+-- to implement both methods:
258+--
259+-- @
260+-- customOptions = 'defaultOptions'
261+-- { 'fieldLabelModifier' = 'map' 'Data.Char.toUpper'
262+-- }
263+--
264+-- instance 'ToJSON' Coord where
265+-- 'toJSON' = 'genericToJSON' customOptions
266+-- 'toEncoding' = 'genericToEncoding' customOptions
267+-- @
268+--
269+-- Previous versions of this library only had the 'toJSON' method. Adding
270+-- 'toEncoding' had two reasons:
271+--
272+-- 1. toEncoding is more efficient for the common case that the output of
273+-- 'toJSON' is directly serialized to a @ByteString@.
274+-- Further, expressing either method in terms of the other would be
275+-- non-optimal.
276+--
277+-- 2. The choice of defaults allows a smooth transition for existing users:
278+-- Existing instances that do not define 'toEncoding' still
279+-- compile and have the correct semantics. This is ensured by making
280+-- the default implementation of 'toEncoding' use 'toJSON'. This produces
281+-- correct results, but since it performs an intermediate conversion to a
282+-- 'Value', it will be less efficient than directly emitting an 'Encoding'.
283+-- (this also means that specifying nothing more than
284+-- @instance ToJSON Coord@ would be sufficient as a generically decoding
285+-- instance, but there probably exists no good reason to not specify
286+-- 'toEncoding' in new instances.)
287+class ToJSON a where
288+ -- | Convert a Haskell value to a JSON-friendly intermediate type.
289+ toJSON :: a -> Value
290+
291+ default toJSON :: (Generic a, GToJSON Value Zero (Rep a)) => a -> Value
292+ toJSON = genericToJSON defaultOptions
293+
294+ -- | Encode a Haskell value as JSON.
295+ --
296+ -- The default implementation of this method creates an
297+ -- intermediate 'Value' using 'toJSON'. This provides
298+ -- source-level compatibility for people upgrading from older
299+ -- versions of this library, but obviously offers no performance
300+ -- advantage.
301+ --
302+ -- To benefit from direct encoding, you /must/ provide an
303+ -- implementation for this method. The easiest way to do so is by
304+ -- having your types implement 'Generic' using the @DeriveGeneric@
305+ -- extension, and then have GHC generate a method body as follows.
306+ --
307+ -- @
308+ -- instance 'ToJSON' Coord where
309+ -- 'toEncoding' = 'genericToEncoding' 'defaultOptions'
310+ -- @
311+
312+ toEncoding :: a -> Encoding
313+ toEncoding = E.value . toJSON
314+ {-# INLINE toEncoding #-}
315+
316+ toJSONList :: [a] -> Value
317+ toJSONList = listValue toJSON
318+ {-# INLINE toJSONList #-}
319+
320+ toEncodingList :: [a] -> Encoding
321+ toEncodingList = listEncoding toEncoding
322+ {-# INLINE toEncodingList #-}
323+
324+-------------------------------------------------------------------------------
325+-- Object key-value pairs
326+-------------------------------------------------------------------------------
327+
328+-- | A key-value pair for encoding a JSON object.
329+class KeyValue kv where
330+ (.=) :: ToJSON v => Text -> v -> kv
331+ infixr 8 .=
332+
333+instance KeyValue Series where
334+ name .= value = E.pair name (toEncoding value)
335+ {-# INLINE (.=) #-}
336+
337+instance KeyValue Pair where
338+ name .= value = (name, toJSON value)
339+ {-# INLINE (.=) #-}
340+
341+-- | Constructs a singleton 'H.HashMap'. For calling functions that
342+-- demand an 'Object' for constructing objects. To be used in
343+-- conjunction with 'mconcat'. Prefer to use 'object' where possible.
344+instance KeyValue Object where
345+ name .= value = H.singleton name (toJSON value)
346+ {-# INLINE (.=) #-}
347+
348+-------------------------------------------------------------------------------
349+-- Classes and types for map keys
350+-------------------------------------------------------------------------------
351+
352+-- | Typeclass for types that can be used as the key of a map-like container
353+-- (like 'Map' or 'HashMap'). For example, since 'Text' has a 'ToJSONKey'
354+-- instance and 'Char' has a 'ToJSON' instance, we can encode a value of
355+-- type 'Map' 'Text' 'Char':
356+--
357+-- >>> LBC8.putStrLn $ encode $ Map.fromList [("foo" :: Text, 'a')]
358+-- {"foo":"a"}
359+--
360+-- Since 'Int' also has a 'ToJSONKey' instance, we can similarly write:
361+--
362+-- >>> LBC8.putStrLn $ encode $ Map.fromList [(5 :: Int, 'a')]
363+-- {"5":"a"}
364+--
365+-- JSON documents only accept strings as object keys. For any type
366+-- from @base@ that has a natural textual representation, it can be
367+-- expected that its 'ToJSONKey' instance will choose that representation.
368+--
369+-- For data types that lack a natural textual representation, an alternative
370+-- is provided. The map-like container is represented as a JSON array
371+-- instead of a JSON object. Each value in the array is an array with
372+-- exactly two values. The first is the key and the second is the value.
373+--
374+-- For example, values of type '[Text]' cannot be encoded to a
375+-- string, so a 'Map' with keys of type '[Text]' is encoded as follows:
376+--
377+-- >>> LBC8.putStrLn $ encode $ Map.fromList [(["foo","bar","baz" :: Text], 'a')]
378+-- [[["foo","bar","baz"],"a"]]
379+--
380+-- The default implementation of 'ToJSONKey' chooses this method of
381+-- encoding a key, using the 'ToJSON' instance of the type.
382+--
383+-- To use your own data type as the key in a map, all that is needed
384+-- is to write a 'ToJSONKey' (and possibly a 'FromJSONKey') instance
385+-- for it. If the type cannot be trivially converted to and from 'Text',
386+-- it is recommended that 'ToJSONKeyValue' is used. Since the default
387+-- implementations of the typeclass methods can build this from a
388+-- 'ToJSON' instance, there is nothing that needs to be written:
389+--
390+-- > data Foo = Foo { fooAge :: Int, fooName :: Text }
391+-- > deriving (Eq,Ord,Generic)
392+-- > instance ToJSON Foo
393+-- > instance ToJSONKey Foo
394+--
395+-- That's it. We can now write:
396+--
397+-- >>> let m = Map.fromList [(Foo 4 "bar",'a'),(Foo 6 "arg",'b')]
398+-- >>> LBC8.putStrLn $ encode m
399+-- [[{"fooName":"bar","fooAge":4},"a"],[{"fooName":"arg","fooAge":6},"b"]]
400+--
401+-- The next case to consider is if we have a type that is a
402+-- newtype wrapper around 'Text'. The recommended approach is to use
403+-- generalized newtype deriving:
404+--
405+-- > newtype RecordId = RecordId { getRecordId :: Text }
406+-- > deriving (Eq,Ord,ToJSONKey)
407+--
408+-- Then we may write:
409+--
410+-- >>> LBC8.putStrLn $ encode $ Map.fromList [(RecordId "abc",'a')]
411+-- {"abc":"a"}
412+--
413+-- Simple sum types are a final case worth considering. Suppose we have:
414+--
415+-- > data Color = Red | Green | Blue
416+-- > deriving (Show,Read,Eq,Ord)
417+--
418+-- It is possible to get the 'ToJSONKey' instance for free as we did
419+-- with 'Foo'. However, in this case, we have a natural way to go to
420+-- and from 'Text' that does not require any escape sequences. So
421+-- 'ToJSONKeyText' can be used instead of 'ToJSONKeyValue' to encode maps
422+-- as objects instead of arrays of pairs. This instance may be
423+-- implemented using generics as follows:
424+--
425+-- @
426+-- instance 'ToJSONKey' Color where
427+-- 'toJSONKey' = 'genericToJSONKey' 'defaultJSONKeyOptions'
428+-- @
429+--
430+-- === __Low-level implementations__
431+--
432+-- The 'Show' instance can be used to help write 'ToJSONKey':
433+--
434+-- > instance ToJSONKey Color where
435+-- > toJSONKey = ToJSONKeyText f g
436+-- > where f = Text.pack . show
437+-- > g = text . Text.pack . show
438+-- > -- text function is from Data.Aeson.Encoding
439+--
440+-- The situation of needing to turning function @a -> Text@ into
441+-- a 'ToJSONKeyFunction' is common enough that a special combinator
442+-- is provided for it. The above instance can be rewritten as:
443+--
444+-- > instance ToJSONKey Color where
445+-- > toJSONKey = toJSONKeyText (Text.pack . show)
446+--
447+-- The performance of the above instance can be improved by
448+-- not using 'String' as an intermediate step when converting to
449+-- 'Text'. One option for improving performance would be to use
450+-- template haskell machinery from the @text-show@ package. However,
451+-- even with the approach, the 'Encoding' (a wrapper around a bytestring
452+-- builder) is generated by encoding the 'Text' to a 'ByteString',
453+-- an intermediate step that could be avoided. The fastest possible
454+-- implementation would be:
455+--
456+-- > -- Assuming that OverloadedStrings is enabled
457+-- > instance ToJSONKey Color where
458+-- > toJSONKey = ToJSONKeyText f g
459+-- > where f x = case x of {Red -> "Red";Green ->"Green";Blue -> "Blue"}
460+-- > g x = case x of {Red -> text "Red";Green -> text "Green";Blue -> text "Blue"}
461+-- > -- text function is from Data.Aeson.Encoding
462+--
463+-- This works because GHC can lift the encoded values out of the case
464+-- statements, which means that they are only evaluated once. This
465+-- approach should only be used when there is a serious need to
466+-- maximize performance.
467+
468+class ToJSONKey a where
469+ -- | Strategy for rendering the key for a map-like container.
470+ toJSONKey :: ToJSONKeyFunction a
471+ default toJSONKey :: ToJSON a => ToJSONKeyFunction a
472+ toJSONKey = ToJSONKeyValue toJSON toEncoding
473+
474+ -- | This is similar in spirit to the 'showsList' method of 'Show'.
475+ -- It makes it possible to give 'String' keys special treatment
476+ -- without using @OverlappingInstances@. End users should always
477+ -- be able to use the default implementation of this method.
478+ toJSONKeyList :: ToJSONKeyFunction [a]
479+ default toJSONKeyList :: ToJSON a => ToJSONKeyFunction [a]
480+ toJSONKeyList = ToJSONKeyValue toJSON toEncoding
481+
482+data ToJSONKeyFunction a
483+ = ToJSONKeyText !(a -> Text) !(a -> Encoding' Text)
484+ -- ^ key is encoded to string, produces object
485+ | ToJSONKeyValue !(a -> Value) !(a -> Encoding)
486+ -- ^ key is encoded to value, produces array
487+
488+-- | Helper for creating textual keys.
489+--
490+-- @
491+-- instance 'ToJSONKey' MyKey where
492+-- 'toJSONKey' = 'toJSONKeyText' myKeyToText
493+-- where
494+-- myKeyToText = Text.pack . show -- or showt from text-show
495+-- @
496+toJSONKeyText :: (a -> Text) -> ToJSONKeyFunction a
497+toJSONKeyText f = ToJSONKeyText f (E.text . f)
498+
499+-- | TODO: should this be exported?
500+toJSONKeyTextEnc :: (a -> Encoding' Text) -> ToJSONKeyFunction a
501+toJSONKeyTextEnc e = ToJSONKeyText tot e
502+ where
503+ -- TODO: dropAround is also used in stringEncoding, which is unfortunate atm
504+ tot = T.dropAround (== '"')
505+ . T.decodeLatin1
506+ . L.toStrict
507+ . E.encodingToLazyByteString
508+ . e
509+
510+instance Contravariant ToJSONKeyFunction where
511+ contramap = contramapToJSONKeyFunction
512+
513+-- | Contravariant map, as 'ToJSONKeyFunction' is a contravariant functor.
514+contramapToJSONKeyFunction :: (b -> a) -> ToJSONKeyFunction a -> ToJSONKeyFunction b
515+contramapToJSONKeyFunction h x = case x of
516+ ToJSONKeyText f g -> ToJSONKeyText (f . h) (g . h)
517+ ToJSONKeyValue f g -> ToJSONKeyValue (f . h) (g . h)
518+
519+-- 'toJSONKey' for 'Generic' types.
520+-- Deriving is supported for enumeration types, i.e. the sums of nullary
521+-- constructors. The names of constructors will be used as keys for JSON
522+-- objects.
523+--
524+-- See also 'genericFromJSONKey'.
525+--
526+-- === __Example__
527+--
528+-- @
529+-- data Color = Red | Green | Blue
530+-- deriving 'Generic'
531+--
532+-- instance 'ToJSONKey' Color where
533+-- 'toJSONKey' = 'genericToJSONKey' 'defaultJSONKeyOptions'
534+-- @
535+genericToJSONKey :: (Generic a, GToJSONKey (Rep a))
536+ => JSONKeyOptions -> ToJSONKeyFunction a
537+genericToJSONKey opts = toJSONKeyText (pack . keyModifier opts . getConName . from)
538+
539+class GetConName f => GToJSONKey f
540+instance GetConName f => GToJSONKey f
541+
542+-------------------------------------------------------------------------------
543+-- Lifings of FromJSON and ToJSON to unary and binary type constructors
544+-------------------------------------------------------------------------------
545+
546+
547+-- | Lifting of the 'ToJSON' class to unary type constructors.
548+--
549+-- Instead of manually writing your 'ToJSON1' instance, there are two options
550+-- to do it automatically:
551+--
552+-- * "Data.Aeson.TH" provides Template Haskell functions which will derive an
553+-- instance at compile time. The generated instance is optimized for your type
554+-- so it will probably be more efficient than the following option.
555+--
556+-- * The compiler can provide a default generic implementation for
557+-- 'toJSON1'.
558+--
559+-- To use the second, simply add a @deriving 'Generic1'@ clause to your
560+-- datatype and declare a 'ToJSON1' instance for your datatype without giving
561+-- definitions for 'liftToJSON' or 'liftToEncoding'.
562+--
563+-- For example:
564+--
565+-- @
566+-- {-\# LANGUAGE DeriveGeneric \#-}
567+--
568+-- import "GHC.Generics"
569+--
570+-- data Pair = Pair { pairFst :: a, pairSnd :: b } deriving 'Generic1'
571+--
572+-- instance 'ToJSON' a => 'ToJSON1' (Pair a)
573+-- @
574+--
575+-- If the default implementation doesn't give exactly the results you want,
576+-- you can customize the generic encoding with only a tiny amount of
577+-- effort, using 'genericLiftToJSON' and 'genericLiftToEncoding' with
578+-- your preferred 'Options':
579+--
580+-- @
581+-- customOptions = 'defaultOptions'
582+-- { 'fieldLabelModifier' = 'map' 'Data.Char.toUpper'
583+-- }
584+--
585+-- instance 'ToJSON' a => 'ToJSON1' (Pair a) where
586+-- 'liftToJSON' = 'genericLiftToJSON' customOptions
587+-- 'liftToEncoding' = 'genericLiftToEncoding' customOptions
588+-- @
589+--
590+-- See also 'ToJSON'.
591+class ToJSON1 f where
592+ liftToJSON :: (a -> Value) -> ([a] -> Value) -> f a -> Value
593+
594+ default liftToJSON :: (Generic1 f, GToJSON Value One (Rep1 f))
595+ => (a -> Value) -> ([a] -> Value) -> f a -> Value
596+ liftToJSON = genericLiftToJSON defaultOptions
597+
598+ liftToJSONList :: (a -> Value) -> ([a] -> Value) -> [f a] -> Value
599+ liftToJSONList f g = listValue (liftToJSON f g)
600+
601+ liftToEncoding :: (a -> Encoding) -> ([a] -> Encoding) -> f a -> Encoding
602+
603+ default liftToEncoding :: (Generic1 f, GToJSON Encoding One (Rep1 f))
604+ => (a -> Encoding) -> ([a] -> Encoding)
605+ -> f a -> Encoding
606+ liftToEncoding = genericLiftToEncoding defaultOptions
607+
608+ liftToEncodingList :: (a -> Encoding) -> ([a] -> Encoding) -> [f a] -> Encoding
609+ liftToEncodingList f g = listEncoding (liftToEncoding f g)
610+
611+-- | Lift the standard 'toJSON' function through the type constructor.
612+toJSON1 :: (ToJSON1 f, ToJSON a) => f a -> Value
613+toJSON1 = liftToJSON toJSON toJSONList
614+{-# INLINE toJSON1 #-}
615+
616+-- | Lift the standard 'toEncoding' function through the type constructor.
617+toEncoding1 :: (ToJSON1 f, ToJSON a) => f a -> Encoding
618+toEncoding1 = liftToEncoding toEncoding toEncodingList
619+{-# INLINE toEncoding1 #-}
620+
621+-- | Lifting of the 'ToJSON' class to binary type constructors.
622+--
623+-- Instead of manually writing your 'ToJSON2' instance, "Data.Aeson.TH"
624+-- provides Template Haskell functions which will derive an instance at compile time.
625+--
626+-- The compiler cannot provide a default generic implementation for 'liftToJSON2',
627+-- unlike 'toJSON' and 'liftToJSON'.
628+class ToJSON2 f where
629+ liftToJSON2 :: (a -> Value) -> ([a] -> Value) -> (b -> Value) -> ([b] -> Value) -> f a b -> Value
630+ liftToJSONList2 :: (a -> Value) -> ([a] -> Value) -> (b -> Value) -> ([b] -> Value) -> [f a b] -> Value
631+ liftToJSONList2 fa ga fb gb = listValue (liftToJSON2 fa ga fb gb)
632+
633+ liftToEncoding2 :: (a -> Encoding) -> ([a] -> Encoding) -> (b -> Encoding) -> ([b] -> Encoding) -> f a b -> Encoding
634+ liftToEncodingList2 :: (a -> Encoding) -> ([a] -> Encoding) -> (b -> Encoding) -> ([b] -> Encoding) -> [f a b] -> Encoding
635+ liftToEncodingList2 fa ga fb gb = listEncoding (liftToEncoding2 fa ga fb gb)
636+
637+-- | Lift the standard 'toJSON' function through the type constructor.
638+toJSON2 :: (ToJSON2 f, ToJSON a, ToJSON b) => f a b -> Value
639+toJSON2 = liftToJSON2 toJSON toJSONList toJSON toJSONList
640+{-# INLINE toJSON2 #-}
641+
642+-- | Lift the standard 'toEncoding' function through the type constructor.
643+toEncoding2 :: (ToJSON2 f, ToJSON a, ToJSON b) => f a b -> Encoding
644+toEncoding2 = liftToEncoding2 toEncoding toEncodingList toEncoding toEncodingList
645+{-# INLINE toEncoding2 #-}
646+
647+-------------------------------------------------------------------------------
648+-- Encoding functions
649+-------------------------------------------------------------------------------
650+
651+-- | Helper function to use with 'liftToEncoding'.
652+-- Useful when writing own 'ToJSON1' instances.
653+--
654+-- @
655+-- newtype F a = F [a]
656+--
657+-- -- This instance encodes 'String' as an array of chars
658+-- instance 'ToJSON1' F where
659+-- 'liftToJSON' tj _ (F xs) = 'liftToJSON' tj ('listValue' tj) xs
660+-- 'liftToEncoding' te _ (F xs) = 'liftToEncoding' te ('listEncoding' te) xs
661+--
662+-- instance 'Data.Aeson.FromJSON.FromJSON1' F where
663+-- 'Data.Aeson.FromJSON.liftParseJSON' p _ v = F \<$\> 'Data.Aeson.FromJSON.liftParseJSON' p ('Data.Aeson.FromJSON.listParser' p) v
664+-- @
665+listEncoding :: (a -> Encoding) -> [a] -> Encoding
666+listEncoding = E.list
667+{-# INLINE listEncoding #-}
668+
669+-- | Helper function to use with 'liftToJSON', see 'listEncoding'.
670+listValue :: (a -> Value) -> [a] -> Value
671+listValue f = Array . V.fromList . map f
672+{-# INLINE listValue #-}
673+
674+-------------------------------------------------------------------------------
675+-- [] instances
676+-------------------------------------------------------------------------------
677+
678+-- These are needed for key-class default definitions
679+
680+instance ToJSON1 [] where
681+ liftToJSON _ to' = to'
682+ {-# INLINE liftToJSON #-}
683+
684+ liftToEncoding _ to' = to'
685+ {-# INLINE liftToEncoding #-}
686+
687+instance (ToJSON a) => ToJSON [a] where
688+ {-# SPECIALIZE instance ToJSON String #-}
689+ {-# SPECIALIZE instance ToJSON [String] #-}
690+ {-# SPECIALIZE instance ToJSON [Array] #-}
691+ {-# SPECIALIZE instance ToJSON [Object] #-}
692+
693+ toJSON = toJSON1
694+ {-# INLINE toJSON #-}
695+
696+ toEncoding = toEncoding1
697+ {-# INLINE toEncoding #-}
698+
699+-------------------------------------------------------------------------------
700+-- Generic toJSON / toEncoding
701+-------------------------------------------------------------------------------
702+
703+instance OVERLAPPABLE_ (GToJSON enc arity a) => GToJSON enc arity (M1 i c a) where
704+ -- Meta-information, which is not handled elsewhere, is ignored:
705+ gToJSON opts targs = gToJSON opts targs . unM1
706+ {-# INLINE gToJSON #-}
707+
708+instance GToJSON enc One Par1 where
709+ -- Direct occurrences of the last type parameter are encoded with the
710+ -- function passed in as an argument:
711+ gToJSON _opts (To1Args tj _) = tj . unPar1
712+ {-# INLINE gToJSON #-}
713+
714+instance ( ConsToJSON enc arity a
715+ , AllNullary (C1 c a) allNullary
716+ , SumToJSON enc arity (C1 c a) allNullary
717+ ) => GToJSON enc arity (D1 d (C1 c a)) where
718+ -- The option 'tagSingleConstructors' determines whether to wrap
719+ -- a single-constructor type.
720+ gToJSON opts targs
721+ | tagSingleConstructors opts = (unTagged :: Tagged allNullary enc -> enc)
722+ . sumToJSON opts targs
723+ . unM1
724+ | otherwise = consToJSON opts targs . unM1 . unM1
725+ {-# INLINE gToJSON #-}
726+
727+instance (ConsToJSON enc arity a) => GToJSON enc arity (C1 c a) where
728+ -- Constructors need to be encoded differently depending on whether they're
729+ -- a record or not. This distinction is made by 'consToJSON':
730+ gToJSON opts targs = consToJSON opts targs . unM1
731+ {-# INLINE gToJSON #-}
732+
733+instance ( AllNullary (a :+: b) allNullary
734+ , SumToJSON enc arity (a :+: b) allNullary
735+ ) => GToJSON enc arity (a :+: b)
736+ where
737+ -- If all constructors of a sum datatype are nullary and the
738+ -- 'allNullaryToStringTag' option is set they are encoded to
739+ -- strings. This distinction is made by 'sumToJSON':
740+ gToJSON opts targs = (unTagged :: Tagged allNullary enc -> enc)
741+ . sumToJSON opts targs
742+ {-# INLINE gToJSON #-}
743+
744+--------------------------------------------------------------------------------
745+-- Generic toJSON
746+
747+-- Note: Refactoring 'ToJSON a' to 'ToJSON enc a' (and 'ToJSON1' similarly) is
748+-- possible but makes error messages a bit harder to understand for missing
749+-- instances.
750+
751+instance GToJSON Value arity V1 where
752+ -- Empty values do not exist, which makes the job of formatting them
753+ -- rather easy:
754+ gToJSON _ _ x = x `seq` error "case: V1"
755+ {-# INLINE gToJSON #-}
756+
757+instance ToJSON a => GToJSON Value arity (K1 i a) where
758+ -- Constant values are encoded using their ToJSON instance:
759+ gToJSON _opts _ = toJSON . unK1
760+ {-# INLINE gToJSON #-}
761+
762+instance ToJSON1 f => GToJSON Value One (Rec1 f) where
763+ -- Recursive occurrences of the last type parameter are encoded using their
764+ -- ToJSON1 instance:
765+ gToJSON _opts (To1Args tj tjl) = liftToJSON tj tjl . unRec1
766+ {-# INLINE gToJSON #-}
767+
768+instance GToJSON Value arity U1 where
769+ -- Empty constructors are encoded to an empty array:
770+ gToJSON _opts _ _ = emptyArray
771+ {-# INLINE gToJSON #-}
772+
773+instance ( WriteProduct arity a, WriteProduct arity b
774+ , ProductSize a, ProductSize b
775+ ) => GToJSON Value arity (a :*: b)
776+ where
777+ -- Products are encoded to an array. Here we allocate a mutable vector of
778+ -- the same size as the product and write the product's elements to it using
779+ -- 'writeProduct':
780+ gToJSON opts targs p =
781+ Array $ V.create $ do
782+ mv <- VM.unsafeNew lenProduct
783+ writeProduct opts targs mv 0 lenProduct p
784+ return mv
785+ where
786+ lenProduct = (unTagged2 :: Tagged2 (a :*: b) Int -> Int)
787+ productSize
788+ {-# INLINE gToJSON #-}
789+
790+instance ( ToJSON1 f
791+ , GToJSON Value One g
792+ ) => GToJSON Value One (f :.: g)
793+ where
794+ -- If an occurrence of the last type parameter is nested inside two
795+ -- composed types, it is encoded by using the outermost type's ToJSON1
796+ -- instance to generically encode the innermost type:
797+ gToJSON opts targs =
798+ let gtj = gToJSON opts targs in
799+ liftToJSON gtj (listValue gtj) . unComp1
800+ {-# INLINE gToJSON #-}
801+
802+--------------------------------------------------------------------------------
803+-- Generic toEncoding
804+
805+instance ToJSON a => GToJSON Encoding arity (K1 i a) where
806+ -- Constant values are encoded using their ToJSON instance:
807+ gToJSON _opts _ = toEncoding . unK1
808+ {-# INLINE gToJSON #-}
809+
810+instance ToJSON1 f => GToJSON Encoding One (Rec1 f) where
811+ -- Recursive occurrences of the last type parameter are encoded using their
812+ -- ToEncoding1 instance:
813+ gToJSON _opts (To1Args te tel) = liftToEncoding te tel . unRec1
814+ {-# INLINE gToJSON #-}
815+
816+instance GToJSON Encoding arity U1 where
817+ -- Empty constructors are encoded to an empty array:
818+ gToJSON _opts _ _ = E.emptyArray_
819+ {-# INLINE gToJSON #-}
820+
821+instance ( EncodeProduct arity a
822+ , EncodeProduct arity b
823+ ) => GToJSON Encoding arity (a :*: b)
824+ where
825+ -- Products are encoded to an array. Here we allocate a mutable vector of
826+ -- the same size as the product and write the product's elements to it using
827+ -- 'encodeProduct':
828+ gToJSON opts targs p = E.list E.retagEncoding [encodeProduct opts targs p]
829+ {-# INLINE gToJSON #-}
830+
831+instance ( ToJSON1 f
832+ , GToJSON Encoding One g
833+ ) => GToJSON Encoding One (f :.: g)
834+ where
835+ -- If an occurrence of the last type parameter is nested inside two
836+ -- composed types, it is encoded by using the outermost type's ToJSON1
837+ -- instance to generically encode the innermost type:
838+ gToJSON opts targs =
839+ let gte = gToJSON opts targs in
840+ liftToEncoding gte (listEncoding gte) . unComp1
841+ {-# INLINE gToJSON #-}
842+
843+--------------------------------------------------------------------------------
844+
845+class SumToJSON enc arity f allNullary where
846+ sumToJSON :: Options -> ToArgs enc arity a
847+ -> f a -> Tagged allNullary enc
848+
849+instance ( GetConName f
850+ , FromString enc
851+ , TaggedObject enc arity f
852+ , SumToJSON' ObjectWithSingleField enc arity f
853+ , SumToJSON' TwoElemArray enc arity f
854+ , SumToJSON' UntaggedValue enc arity f
855+ ) => SumToJSON enc arity f True
856+ where
857+ sumToJSON opts targs
858+ | allNullaryToStringTag opts = Tagged . fromString
859+ . constructorTagModifier opts . getConName
860+ | otherwise = Tagged . nonAllNullarySumToJSON opts targs
861+
862+instance ( TaggedObject enc arity f
863+ , SumToJSON' ObjectWithSingleField enc arity f
864+ , SumToJSON' TwoElemArray enc arity f
865+ , SumToJSON' UntaggedValue enc arity f
866+ ) => SumToJSON enc arity f False
867+ where
868+ sumToJSON opts targs = Tagged . nonAllNullarySumToJSON opts targs
869+
870+nonAllNullarySumToJSON :: ( TaggedObject enc arity f
871+ , SumToJSON' ObjectWithSingleField enc arity f
872+ , SumToJSON' TwoElemArray enc arity f
873+ , SumToJSON' UntaggedValue enc arity f
874+ ) => Options -> ToArgs enc arity a
875+ -> f a -> enc
876+nonAllNullarySumToJSON opts targs =
877+ case sumEncoding opts of
878+
879+ TaggedObject{..} ->
880+ taggedObject opts targs tagFieldName contentsFieldName
881+
882+ ObjectWithSingleField ->
883+ (unTagged :: Tagged ObjectWithSingleField enc -> enc)
884+ . sumToJSON' opts targs
885+
886+ TwoElemArray ->
887+ (unTagged :: Tagged TwoElemArray enc -> enc)
888+ . sumToJSON' opts targs
889+
890+ UntaggedValue ->
891+ (unTagged :: Tagged UntaggedValue enc -> enc)
892+ . sumToJSON' opts targs
893+
894+--------------------------------------------------------------------------------
895+
896+class FromString enc where
897+ fromString :: String -> enc
898+
899+instance FromString Encoding where
900+ fromString = toEncoding
901+
902+instance FromString Value where
903+ fromString = String . pack
904+
905+--------------------------------------------------------------------------------
906+
907+class TaggedObject enc arity f where
908+ taggedObject :: Options -> ToArgs enc arity a
909+ -> String -> String
910+ -> f a -> enc
911+
912+instance ( TaggedObject enc arity a
913+ , TaggedObject enc arity b
914+ ) => TaggedObject enc arity (a :+: b)
915+ where
916+ taggedObject opts targs tagFieldName contentsFieldName (L1 x) =
917+ taggedObject opts targs tagFieldName contentsFieldName x
918+ taggedObject opts targs tagFieldName contentsFieldName (R1 x) =
919+ taggedObject opts targs tagFieldName contentsFieldName x
920+
921+instance ( IsRecord a isRecord
922+ , TaggedObject' enc pairs arity a isRecord
923+ , FromPairs enc pairs
924+ , FromString enc
925+ , KeyValuePair enc pairs
926+ , Constructor c
927+ ) => TaggedObject enc arity (C1 c a)
928+ where
929+ taggedObject opts targs tagFieldName contentsFieldName =
930+ fromPairs . mappend tag . contents
931+ where
932+ tag = tagFieldName `pair`
933+ (fromString (constructorTagModifier opts (conName (undefined :: t c a p)))
934+ :: enc)
935+ contents =
936+ (unTagged :: Tagged isRecord pairs -> pairs) .
937+ taggedObject' opts targs contentsFieldName . unM1
938+
939+class TaggedObject' enc pairs arity f isRecord where
940+ taggedObject' :: Options -> ToArgs enc arity a
941+ -> String -> f a -> Tagged isRecord pairs
942+
943+instance ( GToJSON enc arity f
944+ , KeyValuePair enc pairs
945+ ) => TaggedObject' enc pairs arity f False
946+ where
947+ taggedObject' opts targs contentsFieldName =
948+ Tagged . (contentsFieldName `pair`) . gToJSON opts targs
949+
950+instance OVERLAPPING_ Monoid pairs => TaggedObject' enc pairs arity U1 False where
951+ taggedObject' _ _ _ _ = Tagged mempty
952+
953+instance ( RecordToPairs enc pairs arity f
954+ ) => TaggedObject' enc pairs arity f True
955+ where
956+ taggedObject' opts targs _ = Tagged . recordToPairs opts targs
957+
958+--------------------------------------------------------------------------------
959+
960+-- | Get the name of the constructor of a sum datatype.
961+class GetConName f where
962+ getConName :: f a -> String
963+
964+instance (GetConName a, GetConName b) => GetConName (a :+: b) where
965+ getConName (L1 x) = getConName x
966+ getConName (R1 x) = getConName x
967+
968+instance (Constructor c) => GetConName (C1 c a) where
969+ getConName = conName
970+
971+-- For genericToJSONKey
972+instance GetConName a => GetConName (D1 d a) where
973+ getConName (M1 x) = getConName x
974+
975+--------------------------------------------------------------------------------
976+
977+-- Reflection of SumEncoding variants
978+
979+data ObjectWithSingleField
980+data TwoElemArray
981+data UntaggedValue
982+
983+--------------------------------------------------------------------------------
984+
985+class SumToJSON' s enc arity f where
986+ sumToJSON' :: Options -> ToArgs enc arity a
987+ -> f a -> Tagged s enc
988+
989+instance ( SumToJSON' s enc arity a
990+ , SumToJSON' s enc arity b
991+ ) => SumToJSON' s enc arity (a :+: b)
992+ where
993+ sumToJSON' opts targs (L1 x) = sumToJSON' opts targs x
994+ sumToJSON' opts targs (R1 x) = sumToJSON' opts targs x
995+
996+--------------------------------------------------------------------------------
997+
998+instance ( GToJSON Value arity a
999+ , ConsToJSON Value arity a
1000+ , Constructor c
1001+ ) => SumToJSON' TwoElemArray Value arity (C1 c a) where
1002+ sumToJSON' opts targs x = Tagged $ Array $ V.create $ do
1003+ mv <- VM.unsafeNew 2
1004+ VM.unsafeWrite mv 0 $ String $ pack $ constructorTagModifier opts
1005+ $ conName (undefined :: t c a p)
1006+ VM.unsafeWrite mv 1 $ gToJSON opts targs x
1007+ return mv
1008+
1009+--------------------------------------------------------------------------------
1010+
1011+instance ( GToJSON Encoding arity a
1012+ , ConsToJSON Encoding arity a
1013+ , Constructor c
1014+ ) => SumToJSON' TwoElemArray Encoding arity (C1 c a)
1015+ where
1016+ sumToJSON' opts targs x = Tagged $ E.list id
1017+ [ toEncoding (constructorTagModifier opts (conName (undefined :: t c a p)))
1018+ , gToJSON opts targs x
1019+ ]
1020+
1021+--------------------------------------------------------------------------------
1022+
1023+class ConsToJSON enc arity f where
1024+ consToJSON :: Options -> ToArgs enc arity a
1025+ -> f a -> enc
1026+
1027+class ConsToJSON' enc arity f isRecord where
1028+ consToJSON' :: Options -> ToArgs enc arity a
1029+ -> f a -> Tagged isRecord enc
1030+
1031+instance ( IsRecord f isRecord
1032+ , ConsToJSON' enc arity f isRecord
1033+ ) => ConsToJSON enc arity f
1034+ where
1035+ consToJSON opts targs =
1036+ (unTagged :: Tagged isRecord enc -> enc)
1037+ . consToJSON' opts targs
1038+ {-# INLINE consToJSON #-}
1039+
1040+instance OVERLAPPING_
1041+ ( RecordToPairs enc pairs arity (S1 s f)
1042+ , FromPairs enc pairs
1043+ , GToJSON enc arity f
1044+ ) => ConsToJSON' enc arity (S1 s f) True
1045+ where
1046+ consToJSON' opts targs
1047+ | unwrapUnaryRecords opts = Tagged . gToJSON opts targs
1048+ | otherwise = Tagged . fromPairs . recordToPairs opts targs
1049+ {-# INLINE consToJSON' #-}
1050+
1051+instance ( RecordToPairs enc pairs arity f
1052+ , FromPairs enc pairs
1053+ ) => ConsToJSON' enc arity f True
1054+ where
1055+ consToJSON' opts targs = Tagged . fromPairs . recordToPairs opts targs
1056+ {-# INLINE consToJSON' #-}
1057+
1058+instance GToJSON enc arity f => ConsToJSON' enc arity f False where
1059+ consToJSON' opts targs = Tagged . gToJSON opts targs
1060+ {-# INLINE consToJSON' #-}
1061+
1062+--------------------------------------------------------------------------------
1063+
1064+class RecordToPairs enc pairs arity f where
1065+ -- 1st element: whole thing
1066+ -- 2nd element: in case the record has only 1 field, just the value
1067+ -- of the field (without the key); 'Nothing' otherwise
1068+ recordToPairs :: Options -> ToArgs enc arity a
1069+ -> f a -> pairs
1070+
1071+instance ( Monoid pairs
1072+ , RecordToPairs enc pairs arity a
1073+ , RecordToPairs enc pairs arity b
1074+ ) => RecordToPairs enc pairs arity (a :*: b)
1075+ where
1076+ recordToPairs opts (targs :: ToArgs enc arity p) (a :*: b) =
1077+ pairsOf a `mappend` pairsOf b
1078+ where
1079+ pairsOf :: (RecordToPairs enc pairs arity f) => f p -> pairs
1080+ pairsOf = recordToPairs opts targs
1081+ {-# INLINE recordToPairs #-}
1082+
1083+instance ( Selector s
1084+ , GToJSON enc arity a
1085+ , KeyValuePair enc pairs
1086+ ) => RecordToPairs enc pairs arity (S1 s a)
1087+ where
1088+ recordToPairs = fieldToPair
1089+ {-# INLINE recordToPairs #-}
1090+
1091+instance INCOHERENT_
1092+ ( Selector s
1093+ , GToJSON enc arity (K1 i (Maybe a))
1094+ , KeyValuePair enc pairs
1095+ , Monoid pairs
1096+ ) => RecordToPairs enc pairs arity (S1 s (K1 i (Maybe a)))
1097+ where
1098+ recordToPairs opts _ (M1 k1) | omitNothingFields opts
1099+ , K1 Nothing <- k1 = mempty
1100+ recordToPairs opts targs m1 = fieldToPair opts targs m1
1101+ {-# INLINE recordToPairs #-}
1102+
1103+instance INCOHERENT_
1104+ ( Selector s
1105+ , GToJSON enc arity (K1 i (Maybe a))
1106+ , KeyValuePair enc pairs
1107+ , Monoid pairs
1108+ ) => RecordToPairs enc pairs arity (S1 s (K1 i (Semigroup.Option a)))
1109+ where
1110+ recordToPairs opts targs = recordToPairs opts targs . unwrap
1111+ where
1112+ unwrap :: S1 s (K1 i (Semigroup.Option a)) p -> S1 s (K1 i (Maybe a)) p
1113+ unwrap (M1 (K1 (Semigroup.Option a))) = M1 (K1 a)
1114+ {-# INLINE recordToPairs #-}
1115+
1116+fieldToPair :: (Selector s
1117+ , GToJSON enc arity a
1118+ , KeyValuePair enc pairs)
1119+ => Options -> ToArgs enc arity p
1120+ -> S1 s a p -> pairs
1121+fieldToPair opts targs m1 =
1122+ let key = fieldLabelModifier opts (selName m1)
1123+ value = gToJSON opts targs (unM1 m1)
1124+ in key `pair` value
1125+{-# INLINE fieldToPair #-}
1126+
1127+--------------------------------------------------------------------------------
1128+
1129+class WriteProduct arity f where
1130+ writeProduct :: Options
1131+ -> ToArgs Value arity a
1132+ -> VM.MVector s Value
1133+ -> Int -- ^ index
1134+ -> Int -- ^ length
1135+ -> f a
1136+ -> ST s ()
1137+
1138+instance ( WriteProduct arity a
1139+ , WriteProduct arity b
1140+ ) => WriteProduct arity (a :*: b) where
1141+ writeProduct opts targs mv ix len (a :*: b) = do
1142+ writeProduct opts targs mv ix lenL a
1143+ writeProduct opts targs mv ixR lenR b
1144+ where
1145+ lenL = len `unsafeShiftR` 1
1146+ lenR = len - lenL
1147+ ixR = ix + lenL
1148+ {-# INLINE writeProduct #-}
1149+
1150+instance OVERLAPPABLE_ (GToJSON Value arity a) => WriteProduct arity a where
1151+ writeProduct opts targs mv ix _ =
1152+ VM.unsafeWrite mv ix . gToJSON opts targs
1153+ {-# INLINE writeProduct #-}
1154+
1155+--------------------------------------------------------------------------------
1156+
1157+class EncodeProduct arity f where
1158+ encodeProduct :: Options -> ToArgs Encoding arity a
1159+ -> f a -> Encoding' E.InArray
1160+
1161+instance ( EncodeProduct arity a
1162+ , EncodeProduct arity b
1163+ ) => EncodeProduct arity (a :*: b) where
1164+ encodeProduct opts targs (a :*: b) | omitNothingFields opts =
1165+ E.econcat $ intersperse E.comma $
1166+ filter (not . E.nullEncoding)
1167+ [encodeProduct opts targs a, encodeProduct opts targs b]
1168+ encodeProduct opts targs (a :*: b) =
1169+ encodeProduct opts targs a >*<
1170+ encodeProduct opts targs b
1171+ {-# INLINE encodeProduct #-}
1172+
1173+instance OVERLAPPABLE_ (GToJSON Encoding arity a) => EncodeProduct arity a where
1174+ encodeProduct opts targs a = E.retagEncoding $ gToJSON opts targs a
1175+ {-# INLINE encodeProduct #-}
1176+
1177+--------------------------------------------------------------------------------
1178+
1179+instance ( GToJSON enc arity a
1180+ , ConsToJSON enc arity a
1181+ , FromPairs enc pairs
1182+ , KeyValuePair enc pairs
1183+ , Constructor c
1184+ ) => SumToJSON' ObjectWithSingleField enc arity (C1 c a)
1185+ where
1186+ sumToJSON' opts targs =
1187+ Tagged . fromPairs . (typ `pair`) . gToJSON opts targs
1188+ where
1189+ typ = constructorTagModifier opts $
1190+ conName (undefined :: t c a p)
1191+
1192+--------------------------------------------------------------------------------
1193+
1194+instance OVERLAPPABLE_
1195+ ( ConsToJSON enc arity a
1196+ ) => SumToJSON' UntaggedValue enc arity (C1 c a)
1197+ where
1198+ sumToJSON' opts targs = Tagged . gToJSON opts targs
1199+
1200+instance OVERLAPPING_
1201+ ( Constructor c
1202+ , FromString enc
1203+ ) => SumToJSON' UntaggedValue enc arity (C1 c U1)
1204+ where
1205+ sumToJSON' opts _ _ = Tagged . fromString $
1206+ constructorTagModifier opts $ conName (undefined :: t c U1 p)
1207+
1208+-------------------------------------------------------------------------------
1209+-- Instances
1210+-------------------------------------------------------------------------------
1211+
1212+-------------------------------------------------------------------------------
1213+-- base
1214+-------------------------------------------------------------------------------
1215+
1216+instance ToJSON2 Const where
1217+ liftToJSON2 t _ _ _ (Const x) = t x
1218+ {-# INLINE liftToJSON2 #-}
1219+
1220+ liftToEncoding2 t _ _ _ (Const x) = t x
1221+ {-# INLINE liftToEncoding2 #-}
1222+
1223+instance ToJSON a => ToJSON1 (Const a) where
1224+ liftToJSON _ _ (Const x) = toJSON x
1225+ {-# INLINE liftToJSON #-}
1226+
1227+ liftToEncoding _ _ (Const x) = toEncoding x
1228+ {-# INLINE liftToEncoding #-}
1229+
1230+instance ToJSON a => ToJSON (Const a b) where
1231+ toJSON (Const x) = toJSON x
1232+ {-# INLINE toJSON #-}
1233+
1234+ toEncoding (Const x) = toEncoding x
1235+ {-# INLINE toEncoding #-}
1236+
1237+
1238+instance ToJSON1 Maybe where
1239+ liftToJSON t _ (Just a) = t a
1240+ liftToJSON _ _ Nothing = Null
1241+ {-# INLINE liftToJSON #-}
1242+
1243+ liftToEncoding t _ (Just a) = t a
1244+ liftToEncoding _ _ Nothing = E.null_
1245+ {-# INLINE liftToEncoding #-}
1246+
1247+instance (ToJSON a) => ToJSON (Maybe a) where
1248+ toJSON = toJSON1
1249+ {-# INLINE toJSON #-}
1250+
1251+ toEncoding = toEncoding1
1252+ {-# INLINE toEncoding #-}
1253+
1254+
1255+instance ToJSON2 Either where
1256+ liftToJSON2 toA _ _toB _ (Left a) = Object $ H.singleton "Left" (toA a)
1257+ liftToJSON2 _toA _ toB _ (Right b) = Object $ H.singleton "Right" (toB b)
1258+ {-# INLINE liftToJSON2 #-}
1259+
1260+ liftToEncoding2 toA _ _toB _ (Left a) = E.pairs $ E.pair "Left" $ toA a
1261+
1262+ liftToEncoding2 _toA _ toB _ (Right b) = E.pairs $ E.pair "Right" $ toB b
1263+ {-# INLINE liftToEncoding2 #-}
1264+
1265+instance (ToJSON a) => ToJSON1 (Either a) where
1266+ liftToJSON = liftToJSON2 toJSON toJSONList
1267+ {-# INLINE liftToJSON #-}
1268+
1269+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
1270+ {-# INLINE liftToEncoding #-}
1271+
1272+instance (ToJSON a, ToJSON b) => ToJSON (Either a b) where
1273+ toJSON = toJSON2
1274+ {-# INLINE toJSON #-}
1275+
1276+ toEncoding = toEncoding2
1277+ {-# INLINE toEncoding #-}
1278+
1279+instance ToJSON Void where
1280+ toJSON = absurd
1281+ {-# INLINE toJSON #-}
1282+
1283+ toEncoding = absurd
1284+ {-# INLINE toEncoding #-}
1285+
1286+
1287+instance ToJSON Bool where
1288+ toJSON = Bool
1289+ {-# INLINE toJSON #-}
1290+
1291+ toEncoding = E.bool
1292+ {-# INLINE toEncoding #-}
1293+
1294+instance ToJSONKey Bool where
1295+ toJSONKey = toJSONKeyText $ \x -> if x then "true" else "false"
1296+
1297+
1298+instance ToJSON Ordering where
1299+ toJSON = toJSON . orderingToText
1300+ toEncoding = toEncoding . orderingToText
1301+
1302+orderingToText :: Ordering -> T.Text
1303+orderingToText o = case o of
1304+ LT -> "LT"
1305+ EQ -> "EQ"
1306+ GT -> "GT"
1307+
1308+instance ToJSON () where
1309+ toJSON _ = emptyArray
1310+ {-# INLINE toJSON #-}
1311+
1312+ toEncoding _ = emptyArray_
1313+ {-# INLINE toEncoding #-}
1314+
1315+
1316+instance ToJSON Char where
1317+ toJSON = String . T.singleton
1318+ {-# INLINE toJSON #-}
1319+
1320+ toJSONList = String . T.pack
1321+ {-# INLINE toJSONList #-}
1322+
1323+ toEncoding = E.string . (:[])
1324+ {-# INLINE toEncoding #-}
1325+
1326+ toEncodingList = E.string
1327+ {-# INLINE toEncodingList #-}
1328+
1329+
1330+instance ToJSON Double where
1331+ toJSON = realFloatToJSON
1332+ {-# INLINE toJSON #-}
1333+
1334+ toEncoding = E.double
1335+ {-# INLINE toEncoding #-}
1336+
1337+instance ToJSONKey Double where
1338+ toJSONKey = toJSONKeyTextEnc E.doubleText
1339+ {-# INLINE toJSONKey #-}
1340+
1341+
1342+instance ToJSON Number where
1343+ toJSON (D d) = toJSON d
1344+ toJSON (I i) = toJSON i
1345+ {-# INLINE toJSON #-}
1346+
1347+ toEncoding (D d) = toEncoding d
1348+ toEncoding (I i) = toEncoding i
1349+ {-# INLINE toEncoding #-}
1350+
1351+
1352+instance ToJSON Float where
1353+ toJSON = realFloatToJSON
1354+ {-# INLINE toJSON #-}
1355+
1356+ toEncoding = E.float
1357+ {-# INLINE toEncoding #-}
1358+
1359+instance ToJSONKey Float where
1360+ toJSONKey = toJSONKeyTextEnc E.floatText
1361+ {-# INLINE toJSONKey #-}
1362+
1363+
1364+instance (ToJSON a, Integral a) => ToJSON (Ratio a) where
1365+ toJSON r = object [ "numerator" .= numerator r
1366+ , "denominator" .= denominator r
1367+ ]
1368+ {-# INLINE toJSON #-}
1369+
1370+ toEncoding r = E.pairs $
1371+ "numerator" .= numerator r <>
1372+ "denominator" .= denominator r
1373+ {-# INLINE toEncoding #-}
1374+
1375+
1376+instance HasResolution a => ToJSON (Fixed a) where
1377+ toJSON = Number . realToFrac
1378+ {-# INLINE toJSON #-}
1379+
1380+ toEncoding = E.scientific . realToFrac
1381+ {-# INLINE toEncoding #-}
1382+
1383+instance HasResolution a => ToJSONKey (Fixed a) where
1384+ toJSONKey = toJSONKeyTextEnc (E.scientificText . realToFrac)
1385+ {-# INLINE toJSONKey #-}
1386+
1387+
1388+instance ToJSON Int where
1389+ toJSON = Number . fromIntegral
1390+ {-# INLINE toJSON #-}
1391+
1392+ toEncoding = E.int
1393+ {-# INLINE toEncoding #-}
1394+
1395+instance ToJSONKey Int where
1396+ toJSONKey = toJSONKeyTextEnc E.intText
1397+ {-# INLINE toJSONKey #-}
1398+
1399+
1400+instance ToJSON Integer where
1401+ toJSON = Number . fromInteger
1402+ {-# INLINE toJSON #-}
1403+
1404+ toEncoding = E.integer
1405+ {-# INLINE toEncoding #-}
1406+
1407+instance ToJSONKey Integer where
1408+ toJSONKey = toJSONKeyTextEnc E.integerText
1409+ {-# INLINE toJSONKey #-}
1410+
1411+
1412+instance ToJSON Natural where
1413+ toJSON = toJSON . toInteger
1414+ {-# INLINE toJSON #-}
1415+
1416+ toEncoding = toEncoding . toInteger
1417+ {-# INLINE toEncoding #-}
1418+
1419+instance ToJSONKey Natural where
1420+ toJSONKey = toJSONKeyTextEnc (E.integerText . toInteger)
1421+ {-# INLINE toJSONKey #-}
1422+
1423+
1424+instance ToJSON Int8 where
1425+ toJSON = Number . fromIntegral
1426+ {-# INLINE toJSON #-}
1427+
1428+ toEncoding = E.int8
1429+ {-# INLINE toEncoding #-}
1430+
1431+instance ToJSONKey Int8 where
1432+ toJSONKey = toJSONKeyTextEnc E.int8Text
1433+ {-# INLINE toJSONKey #-}
1434+
1435+
1436+instance ToJSON Int16 where
1437+ toJSON = Number . fromIntegral
1438+ {-# INLINE toJSON #-}
1439+
1440+ toEncoding = E.int16
1441+ {-# INLINE toEncoding #-}
1442+
1443+instance ToJSONKey Int16 where
1444+ toJSONKey = toJSONKeyTextEnc E.int16Text
1445+ {-# INLINE toJSONKey #-}
1446+
1447+
1448+instance ToJSON Int32 where
1449+ toJSON = Number . fromIntegral
1450+ {-# INLINE toJSON #-}
1451+
1452+ toEncoding = E.int32
1453+ {-# INLINE toEncoding #-}
1454+
1455+instance ToJSONKey Int32 where
1456+ toJSONKey = toJSONKeyTextEnc E.int32Text
1457+ {-# INLINE toJSONKey #-}
1458+
1459+
1460+instance ToJSON Int64 where
1461+ toJSON = Number . fromIntegral
1462+ {-# INLINE toJSON #-}
1463+
1464+ toEncoding = E.int64
1465+ {-# INLINE toEncoding #-}
1466+
1467+instance ToJSONKey Int64 where
1468+ toJSONKey = toJSONKeyTextEnc E.int64Text
1469+ {-# INLINE toJSONKey #-}
1470+
1471+instance ToJSON Word where
1472+ toJSON = Number . fromIntegral
1473+ {-# INLINE toJSON #-}
1474+
1475+ toEncoding = E.word
1476+ {-# INLINE toEncoding #-}
1477+
1478+instance ToJSONKey Word where
1479+ toJSONKey = toJSONKeyTextEnc E.wordText
1480+ {-# INLINE toJSONKey #-}
1481+
1482+
1483+instance ToJSON Word8 where
1484+ toJSON = Number . fromIntegral
1485+ {-# INLINE toJSON #-}
1486+
1487+ toEncoding = E.word8
1488+ {-# INLINE toEncoding #-}
1489+
1490+instance ToJSONKey Word8 where
1491+ toJSONKey = toJSONKeyTextEnc E.word8Text
1492+ {-# INLINE toJSONKey #-}
1493+
1494+
1495+instance ToJSON Word16 where
1496+ toJSON = Number . fromIntegral
1497+ {-# INLINE toJSON #-}
1498+
1499+ toEncoding = E.word16
1500+ {-# INLINE toEncoding #-}
1501+
1502+instance ToJSONKey Word16 where
1503+ toJSONKey = toJSONKeyTextEnc E.word16Text
1504+ {-# INLINE toJSONKey #-}
1505+
1506+
1507+instance ToJSON Word32 where
1508+ toJSON = Number . fromIntegral
1509+ {-# INLINE toJSON #-}
1510+
1511+ toEncoding = E.word32
1512+ {-# INLINE toEncoding #-}
1513+
1514+instance ToJSONKey Word32 where
1515+ toJSONKey = toJSONKeyTextEnc E.word32Text
1516+ {-# INLINE toJSONKey #-}
1517+
1518+
1519+instance ToJSON Word64 where
1520+ toJSON = Number . fromIntegral
1521+ {-# INLINE toJSON #-}
1522+
1523+ toEncoding = E.word64
1524+ {-# INLINE toEncoding #-}
1525+
1526+instance ToJSONKey Word64 where
1527+ toJSONKey = toJSONKeyTextEnc E.word64Text
1528+ {-# INLINE toJSONKey #-}
1529+
1530+instance ToJSON CTime where
1531+ toJSON (CTime i) = toJSON i
1532+ {-# INLINE toJSON #-}
1533+
1534+ toEncoding (CTime i) = toEncoding i
1535+ {-# INLINE toEncoding #-}
1536+
1537+instance ToJSON Text where
1538+ toJSON = String
1539+ {-# INLINE toJSON #-}
1540+
1541+ toEncoding = E.text
1542+ {-# INLINE toEncoding #-}
1543+
1544+instance ToJSONKey Text where
1545+ toJSONKey = toJSONKeyText id
1546+ {-# INLINE toJSONKey #-}
1547+
1548+
1549+instance ToJSON LT.Text where
1550+ toJSON = String . LT.toStrict
1551+ {-# INLINE toJSON #-}
1552+
1553+ toEncoding = E.lazyText
1554+ {-# INLINE toEncoding #-}
1555+
1556+instance ToJSONKey LT.Text where
1557+ toJSONKey = toJSONKeyText LT.toStrict
1558+
1559+
1560+instance ToJSON Version where
1561+ toJSON = toJSON . showVersion
1562+ {-# INLINE toJSON #-}
1563+
1564+ toEncoding = toEncoding . showVersion
1565+ {-# INLINE toEncoding #-}
1566+
1567+instance ToJSONKey Version where
1568+ toJSONKey = toJSONKeyText (T.pack . showVersion)
1569+
1570+-------------------------------------------------------------------------------
1571+-- semigroups NonEmpty
1572+-------------------------------------------------------------------------------
1573+
1574+instance ToJSON1 NonEmpty where
1575+ liftToJSON t _ = listValue t . NE.toList
1576+ {-# INLINE liftToJSON #-}
1577+
1578+ liftToEncoding t _ = listEncoding t . NE.toList
1579+ {-# INLINE liftToEncoding #-}
1580+
1581+instance (ToJSON a) => ToJSON (NonEmpty a) where
1582+ toJSON = toJSON1
1583+ {-# INLINE toJSON #-}
1584+
1585+ toEncoding = toEncoding1
1586+ {-# INLINE toEncoding #-}
1587+
1588+-------------------------------------------------------------------------------
1589+-- scientific
1590+-------------------------------------------------------------------------------
1591+
1592+instance ToJSON Scientific where
1593+ toJSON = Number
1594+ {-# INLINE toJSON #-}
1595+
1596+ toEncoding = E.scientific
1597+ {-# INLINE toEncoding #-}
1598+
1599+instance ToJSONKey Scientific where
1600+ toJSONKey = toJSONKeyTextEnc E.scientificText
1601+
1602+-------------------------------------------------------------------------------
1603+-- DList
1604+-------------------------------------------------------------------------------
1605+
1606+instance ToJSON1 DList.DList where
1607+ liftToJSON t _ = listValue t . toList
1608+ {-# INLINE liftToJSON #-}
1609+
1610+ liftToEncoding t _ = listEncoding t . toList
1611+ {-# INLINE liftToEncoding #-}
1612+
1613+instance (ToJSON a) => ToJSON (DList.DList a) where
1614+ toJSON = toJSON1
1615+ {-# INLINE toJSON #-}
1616+
1617+ toEncoding = toEncoding1
1618+ {-# INLINE toEncoding #-}
1619+
1620+-------------------------------------------------------------------------------
1621+-- transformers - Functors
1622+-------------------------------------------------------------------------------
1623+
1624+instance ToJSON1 Identity where
1625+ liftToJSON t _ (Identity a) = t a
1626+ {-# INLINE liftToJSON #-}
1627+
1628+ liftToJSONList _ tl xs = tl (map runIdentity xs)
1629+ {-# INLINE liftToJSONList #-}
1630+
1631+ liftToEncoding t _ (Identity a) = t a
1632+ {-# INLINE liftToEncoding #-}
1633+
1634+ liftToEncodingList _ tl xs = tl (map runIdentity xs)
1635+ {-# INLINE liftToEncodingList #-}
1636+
1637+instance (ToJSON a) => ToJSON (Identity a) where
1638+ toJSON = toJSON1
1639+ {-# INLINE toJSON #-}
1640+
1641+ toJSONList = liftToJSONList toJSON toJSONList
1642+ {-# INLINE toJSONList #-}
1643+
1644+ toEncoding = toEncoding1
1645+ {-# INLINE toEncoding #-}
1646+
1647+ toEncodingList = liftToEncodingList toEncoding toEncodingList
1648+ {-# INLINE toEncodingList #-}
1649+
1650+instance (ToJSONKey a) => ToJSONKey (Identity a) where
1651+ toJSONKey = contramapToJSONKeyFunction runIdentity toJSONKey
1652+ toJSONKeyList = contramapToJSONKeyFunction (map runIdentity) toJSONKeyList
1653+
1654+
1655+instance (ToJSON1 f, ToJSON1 g) => ToJSON1 (Compose f g) where
1656+ liftToJSON tv tvl (Compose x) = liftToJSON g gl x
1657+ where
1658+ g = liftToJSON tv tvl
1659+ gl = liftToJSONList tv tvl
1660+ {-# INLINE liftToJSON #-}
1661+
1662+ liftToJSONList te tel xs = liftToJSONList g gl (map getCompose xs)
1663+ where
1664+ g = liftToJSON te tel
1665+ gl = liftToJSONList te tel
1666+ {-# INLINE liftToJSONList #-}
1667+
1668+ liftToEncoding te tel (Compose x) = liftToEncoding g gl x
1669+ where
1670+ g = liftToEncoding te tel
1671+ gl = liftToEncodingList te tel
1672+ {-# INLINE liftToEncoding #-}
1673+
1674+ liftToEncodingList te tel xs = liftToEncodingList g gl (map getCompose xs)
1675+ where
1676+ g = liftToEncoding te tel
1677+ gl = liftToEncodingList te tel
1678+ {-# INLINE liftToEncodingList #-}
1679+
1680+instance (ToJSON1 f, ToJSON1 g, ToJSON a) => ToJSON (Compose f g a) where
1681+ toJSON = toJSON1
1682+ {-# INLINE toJSON #-}
1683+
1684+ toJSONList = liftToJSONList toJSON toJSONList
1685+ {-# INLINE toJSONList #-}
1686+
1687+ toEncoding = toEncoding1
1688+ {-# INLINE toEncoding #-}
1689+
1690+ toEncodingList = liftToEncodingList toEncoding toEncodingList
1691+ {-# INLINE toEncodingList #-}
1692+
1693+
1694+instance (ToJSON1 f, ToJSON1 g) => ToJSON1 (Product f g) where
1695+ liftToJSON tv tvl (Pair x y) = liftToJSON2 tx txl ty tyl (x, y)
1696+ where
1697+ tx = liftToJSON tv tvl
1698+ txl = liftToJSONList tv tvl
1699+ ty = liftToJSON tv tvl
1700+ tyl = liftToJSONList tv tvl
1701+
1702+ liftToEncoding te tel (Pair x y) = liftToEncoding2 tx txl ty tyl (x, y)
1703+ where
1704+ tx = liftToEncoding te tel
1705+ txl = liftToEncodingList te tel
1706+ ty = liftToEncoding te tel
1707+ tyl = liftToEncodingList te tel
1708+
1709+instance (ToJSON1 f, ToJSON1 g, ToJSON a) => ToJSON (Product f g a) where
1710+ toJSON = toJSON1
1711+ {-# INLINE toJSON #-}
1712+
1713+ toEncoding = toEncoding1
1714+ {-# INLINE toEncoding #-}
1715+
1716+instance (ToJSON1 f, ToJSON1 g) => ToJSON1 (Sum f g) where
1717+ liftToJSON tv tvl (InL x) = Object $ H.singleton "InL" (liftToJSON tv tvl x)
1718+ liftToJSON tv tvl (InR y) = Object $ H.singleton "InR" (liftToJSON tv tvl y)
1719+
1720+ liftToEncoding te tel (InL x) = E.pairs $ E.pair "InL" $ liftToEncoding te tel x
1721+ liftToEncoding te tel (InR y) = E.pairs $ E.pair "InR" $ liftToEncoding te tel y
1722+
1723+instance (ToJSON1 f, ToJSON1 g, ToJSON a) => ToJSON (Sum f g a) where
1724+ toJSON = toJSON1
1725+ {-# INLINE toJSON #-}
1726+
1727+ toEncoding = toEncoding1
1728+ {-# INLINE toEncoding #-}
1729+
1730+-------------------------------------------------------------------------------
1731+-- containers
1732+-------------------------------------------------------------------------------
1733+
1734+instance ToJSON1 Seq.Seq where
1735+ liftToJSON t _ = listValue t . toList
1736+ {-# INLINE liftToJSON #-}
1737+
1738+ liftToEncoding t _ = listEncoding t . toList
1739+ {-# INLINE liftToEncoding #-}
1740+
1741+instance (ToJSON a) => ToJSON (Seq.Seq a) where
1742+ toJSON = toJSON1
1743+ {-# INLINE toJSON #-}
1744+
1745+ toEncoding = toEncoding1
1746+ {-# INLINE toEncoding #-}
1747+
1748+
1749+instance ToJSON1 Set.Set where
1750+ liftToJSON t _ = listValue t . Set.toList
1751+ {-# INLINE liftToJSON #-}
1752+
1753+ liftToEncoding t _ = listEncoding t . Set.toList
1754+ {-# INLINE liftToEncoding #-}
1755+
1756+instance (ToJSON a) => ToJSON (Set.Set a) where
1757+ toJSON = toJSON1
1758+ {-# INLINE toJSON #-}
1759+
1760+ toEncoding = toEncoding1
1761+ {-# INLINE toEncoding #-}
1762+
1763+
1764+instance ToJSON IntSet.IntSet where
1765+ toJSON = toJSON . IntSet.toList
1766+ {-# INLINE toJSON #-}
1767+
1768+ toEncoding = toEncoding . IntSet.toList
1769+ {-# INLINE toEncoding #-}
1770+
1771+
1772+instance ToJSON1 IntMap.IntMap where
1773+ liftToJSON t tol = liftToJSON to' tol' . IntMap.toList
1774+ where
1775+ to' = liftToJSON2 toJSON toJSONList t tol
1776+ tol' = liftToJSONList2 toJSON toJSONList t tol
1777+ {-# INLINE liftToJSON #-}
1778+
1779+ liftToEncoding t tol = liftToEncoding to' tol' . IntMap.toList
1780+ where
1781+ to' = liftToEncoding2 toEncoding toEncodingList t tol
1782+ tol' = liftToEncodingList2 toEncoding toEncodingList t tol
1783+ {-# INLINE liftToEncoding #-}
1784+
1785+instance ToJSON a => ToJSON (IntMap.IntMap a) where
1786+ toJSON = toJSON1
1787+ {-# INLINE toJSON #-}
1788+
1789+ toEncoding = toEncoding1
1790+ {-# INLINE toEncoding #-}
1791+
1792+
1793+instance ToJSONKey k => ToJSON1 (M.Map k) where
1794+ liftToJSON g _ = case toJSONKey of
1795+ ToJSONKeyText f _ -> Object . mapHashKeyVal f g
1796+ ToJSONKeyValue f _ -> Array . V.fromList . map (toJSONPair f g) . M.toList
1797+ {-# INLINE liftToJSON #-}
1798+
1799+ liftToEncoding g _ = case toJSONKey of
1800+ ToJSONKeyText _ f -> dict f g M.foldrWithKey
1801+ ToJSONKeyValue _ f -> listEncoding (pairEncoding f) . M.toList
1802+ where
1803+ pairEncoding f (a, b) = E.list id [f a, g b]
1804+ {-# INLINE liftToEncoding #-}
1805+
1806+
1807+instance (ToJSON v, ToJSONKey k) => ToJSON (M.Map k v) where
1808+ toJSON = toJSON1
1809+ {-# INLINE toJSON #-}
1810+
1811+ toEncoding = toEncoding1
1812+ {-# INLINE toEncoding #-}
1813+
1814+
1815+instance ToJSON1 Tree.Tree where
1816+ liftToJSON t tol = go
1817+ where
1818+ go (Tree.Node root branches) =
1819+ liftToJSON2 t tol to' tol' (root, branches)
1820+
1821+ to' = liftToJSON go (listValue go)
1822+ tol' = liftToJSONList go (listValue go)
1823+ {-# INLINE liftToJSON #-}
1824+
1825+ liftToEncoding t tol = go
1826+ where
1827+ go (Tree.Node root branches) =
1828+ liftToEncoding2 t tol to' tol' (root, branches)
1829+
1830+ to' = liftToEncoding go (listEncoding go)
1831+ tol' = liftToEncodingList go (listEncoding go)
1832+ {-# INLINE liftToEncoding #-}
1833+
1834+instance (ToJSON v) => ToJSON (Tree.Tree v) where
1835+ toJSON = toJSON1
1836+ {-# INLINE toJSON #-}
1837+
1838+ toEncoding = toEncoding1
1839+ {-# INLINE toEncoding #-}
1840+
1841+-------------------------------------------------------------------------------
1842+-- uuid
1843+-------------------------------------------------------------------------------
1844+
1845+instance ToJSON UUID.UUID where
1846+ toJSON = toJSON . UUID.toText
1847+ toEncoding = E.unsafeToEncoding . EB.quote . B.byteString . UUID.toASCIIBytes
1848+
1849+instance ToJSONKey UUID.UUID where
1850+ toJSONKey = ToJSONKeyText UUID.toText $
1851+ E.unsafeToEncoding . EB.quote . B.byteString . UUID.toASCIIBytes
1852+
1853+-------------------------------------------------------------------------------
1854+-- vector
1855+-------------------------------------------------------------------------------
1856+
1857+instance ToJSON1 Vector where
1858+ liftToJSON t _ = Array . V.map t
1859+ {-# INLINE liftToJSON #-}
1860+
1861+ liftToEncoding t _ = listEncoding t . V.toList
1862+ {-# INLINE liftToEncoding #-}
1863+
1864+instance (ToJSON a) => ToJSON (Vector a) where
1865+ {-# SPECIALIZE instance ToJSON Array #-}
1866+
1867+ toJSON = toJSON1
1868+ {-# INLINE toJSON #-}
1869+
1870+ toEncoding = toEncoding1
1871+ {-# INLINE toEncoding #-}
1872+
1873+encodeVector :: (ToJSON a, VG.Vector v a) => v a -> Encoding
1874+encodeVector = listEncoding toEncoding . VG.toList
1875+{-# INLINE encodeVector #-}
1876+
1877+vectorToJSON :: (VG.Vector v a, ToJSON a) => v a -> Value
1878+vectorToJSON = Array . V.map toJSON . V.convert
1879+{-# INLINE vectorToJSON #-}
1880+
1881+instance (Storable a, ToJSON a) => ToJSON (VS.Vector a) where
1882+ toJSON = vectorToJSON
1883+ {-# INLINE toJSON #-}
1884+
1885+ toEncoding = encodeVector
1886+ {-# INLINE toEncoding #-}
1887+
1888+
1889+instance (VP.Prim a, ToJSON a) => ToJSON (VP.Vector a) where
1890+ toJSON = vectorToJSON
1891+ {-# INLINE toJSON #-}
1892+
1893+ toEncoding = encodeVector
1894+ {-# INLINE toEncoding #-}
1895+
1896+
1897+instance (VG.Vector VU.Vector a, ToJSON a) => ToJSON (VU.Vector a) where
1898+ toJSON = vectorToJSON
1899+ {-# INLINE toJSON #-}
1900+
1901+ toEncoding = encodeVector
1902+ {-# INLINE toEncoding #-}
1903+
1904+-------------------------------------------------------------------------------
1905+-- unordered-containers
1906+-------------------------------------------------------------------------------
1907+
1908+instance ToJSON1 HashSet.HashSet where
1909+ liftToJSON t _ = listValue t . HashSet.toList
1910+ {-# INLINE liftToJSON #-}
1911+
1912+ liftToEncoding t _ = listEncoding t . HashSet.toList
1913+ {-# INLINE liftToEncoding #-}
1914+
1915+instance (ToJSON a) => ToJSON (HashSet.HashSet a) where
1916+ toJSON = toJSON1
1917+ {-# INLINE toJSON #-}
1918+
1919+ toEncoding = toEncoding1
1920+ {-# INLINE toEncoding #-}
1921+
1922+
1923+instance ToJSONKey k => ToJSON1 (H.HashMap k) where
1924+ liftToJSON g _ = case toJSONKey of
1925+ ToJSONKeyText f _ -> Object . mapKeyVal f g
1926+ ToJSONKeyValue f _ -> Array . V.fromList . map (toJSONPair f g) . H.toList
1927+ {-# INLINE liftToJSON #-}
1928+
1929+ -- liftToEncoding :: forall a. (a -> Encoding) -> ([a] -> Encoding) -> H.HashMap k a -> Encoding
1930+ liftToEncoding g _ = case toJSONKey of
1931+ ToJSONKeyText _ f -> dict f g H.foldrWithKey
1932+ ToJSONKeyValue _ f -> listEncoding (pairEncoding f) . H.toList
1933+ where
1934+ pairEncoding f (a, b) = E.list id [f a, g b]
1935+ {-# INLINE liftToEncoding #-}
1936+
1937+instance (ToJSON v, ToJSONKey k) => ToJSON (H.HashMap k v) where
1938+ {-# SPECIALIZE instance ToJSON Object #-}
1939+
1940+ toJSON = toJSON1
1941+ {-# INLINE toJSON #-}
1942+
1943+ toEncoding = toEncoding1
1944+ {-# INLINE toEncoding #-}
1945+
1946+-------------------------------------------------------------------------------
1947+-- aeson
1948+-------------------------------------------------------------------------------
1949+
1950+instance ToJSON Value where
1951+ toJSON a = a
1952+ {-# INLINE toJSON #-}
1953+
1954+ toEncoding = E.value
1955+ {-# INLINE toEncoding #-}
1956+
1957+instance ToJSON DotNetTime where
1958+ toJSON = toJSON . dotNetTime
1959+
1960+ toEncoding = toEncoding . dotNetTime
1961+
1962+dotNetTime :: DotNetTime -> String
1963+dotNetTime (DotNetTime t) = secs ++ formatMillis t ++ ")/"
1964+ where secs = formatTime defaultTimeLocale "/Date(%s" t
1965+
1966+formatMillis :: (FormatTime t) => t -> String
1967+formatMillis = take 3 . formatTime defaultTimeLocale "%q"
1968+
1969+-------------------------------------------------------------------------------
1970+-- primitive
1971+-------------------------------------------------------------------------------
1972+
1973+instance ToJSON a => ToJSON (PM.Array a) where
1974+ -- note: we could do better than this if vector exposed the data
1975+ -- constructor in Data.Vector.
1976+ toJSON = toJSON . Exts.toList
1977+ toEncoding = toEncoding . Exts.toList
1978+
1979+instance ToJSON a => ToJSON (PM.SmallArray a) where
1980+ toJSON = toJSON . Exts.toList
1981+ toEncoding = toEncoding . Exts.toList
1982+
1983+#if (MIN_VERSION_primitive(0,6,4))
1984+instance (PM.Prim a,ToJSON a) => ToJSON (PM.PrimArray a) where
1985+ toJSON = toJSON . Exts.toList
1986+ toEncoding = toEncoding . Exts.toList
1987+
1988+#if !MIN_VERSION_primitive(0,7,0)
1989+instance (PM.PrimUnlifted a,ToJSON a) => ToJSON (PM.UnliftedArray a) where
1990+ toJSON = toJSON . Exts.toList
1991+ toEncoding = toEncoding . Exts.toList
1992+#endif
1993+#endif
1994+
1995+-------------------------------------------------------------------------------
1996+-- time
1997+-------------------------------------------------------------------------------
1998+
1999+instance ToJSON Day where
2000+ toJSON = stringEncoding . E.day
2001+ toEncoding = E.day
2002+
2003+instance ToJSONKey Day where
2004+ toJSONKey = toJSONKeyTextEnc E.day
2005+
2006+
2007+instance ToJSON TimeOfDay where
2008+ toJSON = stringEncoding . E.timeOfDay
2009+ toEncoding = E.timeOfDay
2010+
2011+instance ToJSONKey TimeOfDay where
2012+ toJSONKey = toJSONKeyTextEnc E.timeOfDay
2013+
2014+
2015+instance ToJSON LocalTime where
2016+ toJSON = stringEncoding . E.localTime
2017+ toEncoding = E.localTime
2018+
2019+instance ToJSONKey LocalTime where
2020+ toJSONKey = toJSONKeyTextEnc E.localTime
2021+
2022+
2023+instance ToJSON ZonedTime where
2024+ toJSON = stringEncoding . E.zonedTime
2025+ toEncoding = E.zonedTime
2026+
2027+instance ToJSONKey ZonedTime where
2028+ toJSONKey = toJSONKeyTextEnc E.zonedTime
2029+
2030+
2031+instance ToJSON UTCTime where
2032+ toJSON = stringEncoding . E.utcTime
2033+ toEncoding = E.utcTime
2034+
2035+instance ToJSONKey UTCTime where
2036+ toJSONKey = toJSONKeyTextEnc E.utcTime
2037+
2038+-- | Encode something t a JSON string.
2039+stringEncoding :: Encoding' Text -> Value
2040+stringEncoding = String
2041+ . T.dropAround (== '"')
2042+ . T.decodeLatin1
2043+ . L.toStrict
2044+ . E.encodingToLazyByteString
2045+{-# INLINE stringEncoding #-}
2046+
2047+
2048+instance ToJSON NominalDiffTime where
2049+ toJSON = Number . realToFrac
2050+ {-# INLINE toJSON #-}
2051+
2052+ toEncoding = E.scientific . realToFrac
2053+ {-# INLINE toEncoding #-}
2054+
2055+
2056+instance ToJSON DiffTime where
2057+ toJSON = Number . realToFrac
2058+ {-# INLINE toJSON #-}
2059+
2060+ toEncoding = E.scientific . realToFrac
2061+ {-# INLINE toEncoding #-}
2062+
2063+-- | Encoded as number
2064+instance ToJSON SystemTime where
2065+ toJSON (MkSystemTime secs nsecs) =
2066+ toJSON (fromIntegral secs + fromIntegral nsecs / 1000000000 :: Nano)
2067+ toEncoding (MkSystemTime secs nsecs) =
2068+ toEncoding (fromIntegral secs + fromIntegral nsecs / 1000000000 :: Nano)
2069+
2070+instance ToJSON CalendarDiffTime where
2071+ toJSON (CalendarDiffTime m nt) = object
2072+ [ "months" .= m
2073+ , "time" .= nt
2074+ ]
2075+ toEncoding (CalendarDiffTime m nt) = E.pairs
2076+ ("months" .= m <> "time" .= nt)
2077+
2078+instance ToJSON CalendarDiffDays where
2079+ toJSON (CalendarDiffDays m d) = object
2080+ [ "months" .= m
2081+ , "days" .= d
2082+ ]
2083+ toEncoding (CalendarDiffDays m d) = E.pairs
2084+ ("months" .= m <> "days" .= d)
2085+
2086+instance ToJSON DayOfWeek where
2087+ toJSON Monday = "monday"
2088+ toJSON Tuesday = "tuesday"
2089+ toJSON Wednesday = "wednesday"
2090+ toJSON Thursday = "thursday"
2091+ toJSON Friday = "friday"
2092+ toJSON Saturday = "saturday"
2093+ toJSON Sunday = "sunday"
2094+
2095+toEncodingDayOfWeek :: DayOfWeek -> E.Encoding' Text
2096+toEncodingDayOfWeek Monday = E.unsafeToEncoding "\"monday\""
2097+toEncodingDayOfWeek Tuesday = E.unsafeToEncoding "\"tuesday\""
2098+toEncodingDayOfWeek Wednesday = E.unsafeToEncoding "\"wednesday\""
2099+toEncodingDayOfWeek Thursday = E.unsafeToEncoding "\"thursday\""
2100+toEncodingDayOfWeek Friday = E.unsafeToEncoding "\"friday\""
2101+toEncodingDayOfWeek Saturday = E.unsafeToEncoding "\"saturday\""
2102+toEncodingDayOfWeek Sunday = E.unsafeToEncoding "\"sunday\""
2103+
2104+instance ToJSONKey DayOfWeek where
2105+ toJSONKey = toJSONKeyTextEnc toEncodingDayOfWeek
2106+
2107+-------------------------------------------------------------------------------
2108+-- base Monoid/Semigroup
2109+-------------------------------------------------------------------------------
2110+
2111+instance ToJSON1 Monoid.Dual where
2112+ liftToJSON t _ = t . Monoid.getDual
2113+ {-# INLINE liftToJSON #-}
2114+
2115+ liftToEncoding t _ = t . Monoid.getDual
2116+ {-# INLINE liftToEncoding #-}
2117+
2118+instance ToJSON a => ToJSON (Monoid.Dual a) where
2119+ toJSON = toJSON1
2120+ {-# INLINE toJSON #-}
2121+
2122+ toEncoding = toEncoding1
2123+ {-# INLINE toEncoding #-}
2124+
2125+
2126+instance ToJSON1 Monoid.First where
2127+ liftToJSON t to' = liftToJSON t to' . Monoid.getFirst
2128+ {-# INLINE liftToJSON #-}
2129+
2130+ liftToEncoding t to' = liftToEncoding t to' . Monoid.getFirst
2131+ {-# INLINE liftToEncoding #-}
2132+
2133+instance ToJSON a => ToJSON (Monoid.First a) where
2134+ toJSON = toJSON1
2135+ {-# INLINE toJSON #-}
2136+
2137+ toEncoding = toEncoding1
2138+ {-# INLINE toEncoding #-}
2139+
2140+
2141+instance ToJSON1 Monoid.Last where
2142+ liftToJSON t to' = liftToJSON t to' . Monoid.getLast
2143+ {-# INLINE liftToJSON #-}
2144+
2145+ liftToEncoding t to' = liftToEncoding t to' . Monoid.getLast
2146+ {-# INLINE liftToEncoding #-}
2147+
2148+instance ToJSON a => ToJSON (Monoid.Last a) where
2149+ toJSON = toJSON1
2150+ {-# INLINE toJSON #-}
2151+
2152+ toEncoding = toEncoding1
2153+ {-# INLINE toEncoding #-}
2154+
2155+
2156+instance ToJSON1 Semigroup.Min where
2157+ liftToJSON t _ (Semigroup.Min x) = t x
2158+ {-# INLINE liftToJSON #-}
2159+
2160+ liftToEncoding t _ (Semigroup.Min x) = t x
2161+ {-# INLINE liftToEncoding #-}
2162+
2163+instance ToJSON a => ToJSON (Semigroup.Min a) where
2164+ toJSON = toJSON1
2165+ {-# INLINE toJSON #-}
2166+
2167+ toEncoding = toEncoding1
2168+ {-# INLINE toEncoding #-}
2169+
2170+
2171+instance ToJSON1 Semigroup.Max where
2172+ liftToJSON t _ (Semigroup.Max x) = t x
2173+ {-# INLINE liftToJSON #-}
2174+
2175+ liftToEncoding t _ (Semigroup.Max x) = t x
2176+ {-# INLINE liftToEncoding #-}
2177+
2178+instance ToJSON a => ToJSON (Semigroup.Max a) where
2179+ toJSON = toJSON1
2180+ {-# INLINE toJSON #-}
2181+
2182+ toEncoding = toEncoding1
2183+ {-# INLINE toEncoding #-}
2184+
2185+instance ToJSON1 Semigroup.First where
2186+ liftToJSON t _ (Semigroup.First x) = t x
2187+ {-# INLINE liftToJSON #-}
2188+
2189+ liftToEncoding t _ (Semigroup.First x) = t x
2190+ {-# INLINE liftToEncoding #-}
2191+
2192+instance ToJSON a => ToJSON (Semigroup.First a) where
2193+ toJSON = toJSON1
2194+ {-# INLINE toJSON #-}
2195+
2196+ toEncoding = toEncoding1
2197+ {-# INLINE toEncoding #-}
2198+
2199+
2200+instance ToJSON1 Semigroup.Last where
2201+ liftToJSON t _ (Semigroup.Last x) = t x
2202+ {-# INLINE liftToJSON #-}
2203+
2204+ liftToEncoding t _ (Semigroup.Last x) = t x
2205+ {-# INLINE liftToEncoding #-}
2206+
2207+instance ToJSON a => ToJSON (Semigroup.Last a) where
2208+ toJSON = toJSON1
2209+ {-# INLINE toJSON #-}
2210+
2211+ toEncoding = toEncoding1
2212+ {-# INLINE toEncoding #-}
2213+
2214+
2215+instance ToJSON1 Semigroup.WrappedMonoid where
2216+ liftToJSON t _ (Semigroup.WrapMonoid x) = t x
2217+ {-# INLINE liftToJSON #-}
2218+
2219+ liftToEncoding t _ (Semigroup.WrapMonoid x) = t x
2220+ {-# INLINE liftToEncoding #-}
2221+
2222+instance ToJSON a => ToJSON (Semigroup.WrappedMonoid a) where
2223+ toJSON = toJSON1
2224+ {-# INLINE toJSON #-}
2225+
2226+ toEncoding = toEncoding1
2227+ {-# INLINE toEncoding #-}
2228+
2229+
2230+instance ToJSON1 Semigroup.Option where
2231+ liftToJSON t to' = liftToJSON t to' . Semigroup.getOption
2232+ {-# INLINE liftToJSON #-}
2233+
2234+ liftToEncoding t to' = liftToEncoding t to' . Semigroup.getOption
2235+ {-# INLINE liftToEncoding #-}
2236+
2237+instance ToJSON a => ToJSON (Semigroup.Option a) where
2238+ toJSON = toJSON1
2239+ {-# INLINE toJSON #-}
2240+
2241+ toEncoding = toEncoding1
2242+ {-# INLINE toEncoding #-}
2243+
2244+-------------------------------------------------------------------------------
2245+-- tagged
2246+-------------------------------------------------------------------------------
2247+
2248+instance ToJSON1 Proxy where
2249+ liftToJSON _ _ _ = Null
2250+ {-# INLINE liftToJSON #-}
2251+
2252+ liftToEncoding _ _ _ = E.null_
2253+ {-# INLINE liftToEncoding #-}
2254+
2255+instance ToJSON (Proxy a) where
2256+ toJSON _ = Null
2257+ {-# INLINE toJSON #-}
2258+
2259+ toEncoding _ = E.null_
2260+ {-# INLINE toEncoding #-}
2261+
2262+
2263+instance ToJSON2 Tagged where
2264+ liftToJSON2 _ _ t _ (Tagged x) = t x
2265+ {-# INLINE liftToJSON2 #-}
2266+
2267+ liftToEncoding2 _ _ t _ (Tagged x) = t x
2268+ {-# INLINE liftToEncoding2 #-}
2269+
2270+instance ToJSON1 (Tagged a) where
2271+ liftToJSON t _ (Tagged x) = t x
2272+ {-# INLINE liftToJSON #-}
2273+
2274+ liftToEncoding t _ (Tagged x) = t x
2275+ {-# INLINE liftToEncoding #-}
2276+
2277+instance ToJSON b => ToJSON (Tagged a b) where
2278+ toJSON = toJSON1
2279+ {-# INLINE toJSON #-}
2280+
2281+ toEncoding = toEncoding1
2282+ {-# INLINE toEncoding #-}
2283+
2284+instance ToJSONKey b => ToJSONKey (Tagged a b) where
2285+ toJSONKey = contramapToJSONKeyFunction unTagged toJSONKey
2286+ toJSONKeyList = contramapToJSONKeyFunction (fmap unTagged) toJSONKeyList
2287+
2288+-------------------------------------------------------------------------------
2289+-- Instances for converting t map keys
2290+-------------------------------------------------------------------------------
2291+
2292+instance (ToJSON a, ToJSON b) => ToJSONKey (a,b)
2293+instance (ToJSON a, ToJSON b, ToJSON c) => ToJSONKey (a,b,c)
2294+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d) => ToJSONKey (a,b,c,d)
2295+
2296+instance ToJSONKey Char where
2297+ toJSONKey = ToJSONKeyText T.singleton (E.string . (:[]))
2298+ toJSONKeyList = toJSONKeyText T.pack
2299+
2300+instance (ToJSONKey a, ToJSON a) => ToJSONKey [a] where
2301+ toJSONKey = toJSONKeyList
2302+
2303+-------------------------------------------------------------------------------
2304+-- Tuple instances
2305+-------------------------------------------------------------------------------
2306+
2307+instance ToJSON2 (,) where
2308+ liftToJSON2 toA _ toB _ (a, b) = Array $ V.create $ do
2309+ mv <- VM.unsafeNew 2
2310+ VM.unsafeWrite mv 0 (toA a)
2311+ VM.unsafeWrite mv 1 (toB b)
2312+ return mv
2313+ {-# INLINE liftToJSON2 #-}
2314+
2315+ liftToEncoding2 toA _ toB _ (a, b) = E.list id [toA a, toB b]
2316+ {-# INLINE liftToEncoding2 #-}
2317+
2318+instance (ToJSON a) => ToJSON1 ((,) a) where
2319+ liftToJSON = liftToJSON2 toJSON toJSONList
2320+ {-# INLINE liftToJSON #-}
2321+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2322+ {-# INLINE liftToEncoding #-}
2323+
2324+instance (ToJSON a, ToJSON b) => ToJSON (a, b) where
2325+ toJSON = toJSON2
2326+ {-# INLINE toJSON #-}
2327+ toEncoding = toEncoding2
2328+ {-# INLINE toEncoding #-}
2329+
2330+instance (ToJSON a) => ToJSON2 ((,,) a) where
2331+ liftToJSON2 toB _ toC _ (a, b, c) = Array $ V.create $ do
2332+ mv <- VM.unsafeNew 3
2333+ VM.unsafeWrite mv 0 (toJSON a)
2334+ VM.unsafeWrite mv 1 (toB b)
2335+ VM.unsafeWrite mv 2 (toC c)
2336+ return mv
2337+ {-# INLINE liftToJSON2 #-}
2338+
2339+ liftToEncoding2 toB _ toC _ (a, b, c) = E.list id
2340+ [ toEncoding a
2341+ , toB b
2342+ , toC c
2343+ ]
2344+ {-# INLINE liftToEncoding2 #-}
2345+
2346+instance (ToJSON a, ToJSON b) => ToJSON1 ((,,) a b) where
2347+ liftToJSON = liftToJSON2 toJSON toJSONList
2348+ {-# INLINE liftToJSON #-}
2349+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2350+ {-# INLINE liftToEncoding #-}
2351+
2352+instance (ToJSON a, ToJSON b, ToJSON c) => ToJSON (a, b, c) where
2353+ toJSON = toJSON2
2354+ {-# INLINE toJSON #-}
2355+ toEncoding = toEncoding2
2356+ {-# INLINE toEncoding #-}
2357+
2358+instance (ToJSON a, ToJSON b) => ToJSON2 ((,,,) a b) where
2359+ liftToJSON2 toC _ toD _ (a, b, c, d) = Array $ V.create $ do
2360+ mv <- VM.unsafeNew 4
2361+ VM.unsafeWrite mv 0 (toJSON a)
2362+ VM.unsafeWrite mv 1 (toJSON b)
2363+ VM.unsafeWrite mv 2 (toC c)
2364+ VM.unsafeWrite mv 3 (toD d)
2365+ return mv
2366+ {-# INLINE liftToJSON2 #-}
2367+
2368+ liftToEncoding2 toC _ toD _ (a, b, c, d) = E.list id
2369+ [ toEncoding a
2370+ , toEncoding b
2371+ , toC c
2372+ , toD d
2373+ ]
2374+ {-# INLINE liftToEncoding2 #-}
2375+
2376+instance (ToJSON a, ToJSON b, ToJSON c) => ToJSON1 ((,,,) a b c) where
2377+ liftToJSON = liftToJSON2 toJSON toJSONList
2378+ {-# INLINE liftToJSON #-}
2379+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2380+ {-# INLINE liftToEncoding #-}
2381+
2382+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d) => ToJSON (a, b, c, d) where
2383+ toJSON = toJSON2
2384+ {-# INLINE toJSON #-}
2385+ toEncoding = toEncoding2
2386+ {-# INLINE toEncoding #-}
2387+
2388+instance (ToJSON a, ToJSON b, ToJSON c) => ToJSON2 ((,,,,) a b c) where
2389+ liftToJSON2 toD _ toE _ (a, b, c, d, e) = Array $ V.create $ do
2390+ mv <- VM.unsafeNew 5
2391+ VM.unsafeWrite mv 0 (toJSON a)
2392+ VM.unsafeWrite mv 1 (toJSON b)
2393+ VM.unsafeWrite mv 2 (toJSON c)
2394+ VM.unsafeWrite mv 3 (toD d)
2395+ VM.unsafeWrite mv 4 (toE e)
2396+ return mv
2397+ {-# INLINE liftToJSON2 #-}
2398+
2399+ liftToEncoding2 toD _ toE _ (a, b, c, d, e) = E.list id
2400+ [ toEncoding a
2401+ , toEncoding b
2402+ , toEncoding c
2403+ , toD d
2404+ , toE e
2405+ ]
2406+ {-# INLINE liftToEncoding2 #-}
2407+
2408+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d) => ToJSON1 ((,,,,) a b c d) where
2409+ liftToJSON = liftToJSON2 toJSON toJSONList
2410+ {-# INLINE liftToJSON #-}
2411+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2412+ {-# INLINE liftToEncoding #-}
2413+
2414+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e) => ToJSON (a, b, c, d, e) where
2415+ toJSON = toJSON2
2416+ {-# INLINE toJSON #-}
2417+ toEncoding = toEncoding2
2418+ {-# INLINE toEncoding #-}
2419+
2420+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d) => ToJSON2 ((,,,,,) a b c d) where
2421+ liftToJSON2 toE _ toF _ (a, b, c, d, e, f) = Array $ V.create $ do
2422+ mv <- VM.unsafeNew 6
2423+ VM.unsafeWrite mv 0 (toJSON a)
2424+ VM.unsafeWrite mv 1 (toJSON b)
2425+ VM.unsafeWrite mv 2 (toJSON c)
2426+ VM.unsafeWrite mv 3 (toJSON d)
2427+ VM.unsafeWrite mv 4 (toE e)
2428+ VM.unsafeWrite mv 5 (toF f)
2429+ return mv
2430+ {-# INLINE liftToJSON2 #-}
2431+
2432+ liftToEncoding2 toE _ toF _ (a, b, c, d, e, f) = E.list id
2433+ [ toEncoding a
2434+ , toEncoding b
2435+ , toEncoding c
2436+ , toEncoding d
2437+ , toE e
2438+ , toF f
2439+ ]
2440+ {-# INLINE liftToEncoding2 #-}
2441+
2442+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e) => ToJSON1 ((,,,,,) a b c d e) where
2443+ liftToJSON = liftToJSON2 toJSON toJSONList
2444+ {-# INLINE liftToJSON #-}
2445+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2446+ {-# INLINE liftToEncoding #-}
2447+
2448+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f) => ToJSON (a, b, c, d, e, f) where
2449+ toJSON = toJSON2
2450+ {-# INLINE toJSON #-}
2451+ toEncoding = toEncoding2
2452+ {-# INLINE toEncoding #-}
2453+
2454+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e) => ToJSON2 ((,,,,,,) a b c d e) where
2455+ liftToJSON2 toF _ toG _ (a, b, c, d, e, f, g) = Array $ V.create $ do
2456+ mv <- VM.unsafeNew 7
2457+ VM.unsafeWrite mv 0 (toJSON a)
2458+ VM.unsafeWrite mv 1 (toJSON b)
2459+ VM.unsafeWrite mv 2 (toJSON c)
2460+ VM.unsafeWrite mv 3 (toJSON d)
2461+ VM.unsafeWrite mv 4 (toJSON e)
2462+ VM.unsafeWrite mv 5 (toF f)
2463+ VM.unsafeWrite mv 6 (toG g)
2464+ return mv
2465+ {-# INLINE liftToJSON2 #-}
2466+
2467+ liftToEncoding2 toF _ toG _ (a, b, c, d, e, f, g) = E.list id
2468+ [ toEncoding a
2469+ , toEncoding b
2470+ , toEncoding c
2471+ , toEncoding d
2472+ , toEncoding e
2473+ , toF f
2474+ , toG g
2475+ ]
2476+ {-# INLINE liftToEncoding2 #-}
2477+
2478+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f) => ToJSON1 ((,,,,,,) a b c d e f) where
2479+ liftToJSON = liftToJSON2 toJSON toJSONList
2480+ {-# INLINE liftToJSON #-}
2481+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2482+ {-# INLINE liftToEncoding #-}
2483+
2484+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g) => ToJSON (a, b, c, d, e, f, g) where
2485+ toJSON = toJSON2
2486+ {-# INLINE toJSON #-}
2487+ toEncoding = toEncoding2
2488+ {-# INLINE toEncoding #-}
2489+
2490+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f) => ToJSON2 ((,,,,,,,) a b c d e f) where
2491+ liftToJSON2 toG _ toH _ (a, b, c, d, e, f, g, h) = Array $ V.create $ do
2492+ mv <- VM.unsafeNew 8
2493+ VM.unsafeWrite mv 0 (toJSON a)
2494+ VM.unsafeWrite mv 1 (toJSON b)
2495+ VM.unsafeWrite mv 2 (toJSON c)
2496+ VM.unsafeWrite mv 3 (toJSON d)
2497+ VM.unsafeWrite mv 4 (toJSON e)
2498+ VM.unsafeWrite mv 5 (toJSON f)
2499+ VM.unsafeWrite mv 6 (toG g)
2500+ VM.unsafeWrite mv 7 (toH h)
2501+ return mv
2502+ {-# INLINE liftToJSON2 #-}
2503+
2504+ liftToEncoding2 toG _ toH _ (a, b, c, d, e, f, g, h) = E.list id
2505+ [ toEncoding a
2506+ , toEncoding b
2507+ , toEncoding c
2508+ , toEncoding d
2509+ , toEncoding e
2510+ , toEncoding f
2511+ , toG g
2512+ , toH h
2513+ ]
2514+ {-# INLINE liftToEncoding2 #-}
2515+
2516+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g) => ToJSON1 ((,,,,,,,) a b c d e f g) where
2517+ liftToJSON = liftToJSON2 toJSON toJSONList
2518+ {-# INLINE liftToJSON #-}
2519+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2520+ {-# INLINE liftToEncoding #-}
2521+
2522+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h) => ToJSON (a, b, c, d, e, f, g, h) where
2523+ toJSON = toJSON2
2524+ {-# INLINE toJSON #-}
2525+ toEncoding = toEncoding2
2526+ {-# INLINE toEncoding #-}
2527+
2528+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g) => ToJSON2 ((,,,,,,,,) a b c d e f g) where
2529+ liftToJSON2 toH _ toI _ (a, b, c, d, e, f, g, h, i) = Array $ V.create $ do
2530+ mv <- VM.unsafeNew 9
2531+ VM.unsafeWrite mv 0 (toJSON a)
2532+ VM.unsafeWrite mv 1 (toJSON b)
2533+ VM.unsafeWrite mv 2 (toJSON c)
2534+ VM.unsafeWrite mv 3 (toJSON d)
2535+ VM.unsafeWrite mv 4 (toJSON e)
2536+ VM.unsafeWrite mv 5 (toJSON f)
2537+ VM.unsafeWrite mv 6 (toJSON g)
2538+ VM.unsafeWrite mv 7 (toH h)
2539+ VM.unsafeWrite mv 8 (toI i)
2540+ return mv
2541+ {-# INLINE liftToJSON2 #-}
2542+
2543+ liftToEncoding2 toH _ toI _ (a, b, c, d, e, f, g, h, i) = E.list id
2544+ [ toEncoding a
2545+ , toEncoding b
2546+ , toEncoding c
2547+ , toEncoding d
2548+ , toEncoding e
2549+ , toEncoding f
2550+ , toEncoding g
2551+ , toH h
2552+ , toI i
2553+ ]
2554+ {-# INLINE liftToEncoding2 #-}
2555+
2556+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h) => ToJSON1 ((,,,,,,,,) a b c d e f g h) where
2557+ liftToJSON = liftToJSON2 toJSON toJSONList
2558+ {-# INLINE liftToJSON #-}
2559+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2560+ {-# INLINE liftToEncoding #-}
2561+
2562+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i) => ToJSON (a, b, c, d, e, f, g, h, i) where
2563+ toJSON = toJSON2
2564+ {-# INLINE toJSON #-}
2565+ toEncoding = toEncoding2
2566+ {-# INLINE toEncoding #-}
2567+
2568+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h) => ToJSON2 ((,,,,,,,,,) a b c d e f g h) where
2569+ liftToJSON2 toI _ toJ _ (a, b, c, d, e, f, g, h, i, j) = Array $ V.create $ do
2570+ mv <- VM.unsafeNew 10
2571+ VM.unsafeWrite mv 0 (toJSON a)
2572+ VM.unsafeWrite mv 1 (toJSON b)
2573+ VM.unsafeWrite mv 2 (toJSON c)
2574+ VM.unsafeWrite mv 3 (toJSON d)
2575+ VM.unsafeWrite mv 4 (toJSON e)
2576+ VM.unsafeWrite mv 5 (toJSON f)
2577+ VM.unsafeWrite mv 6 (toJSON g)
2578+ VM.unsafeWrite mv 7 (toJSON h)
2579+ VM.unsafeWrite mv 8 (toI i)
2580+ VM.unsafeWrite mv 9 (toJ j)
2581+ return mv
2582+ {-# INLINE liftToJSON2 #-}
2583+
2584+ liftToEncoding2 toI _ toJ _ (a, b, c, d, e, f, g, h, i, j) = E.list id
2585+ [ toEncoding a
2586+ , toEncoding b
2587+ , toEncoding c
2588+ , toEncoding d
2589+ , toEncoding e
2590+ , toEncoding f
2591+ , toEncoding g
2592+ , toEncoding h
2593+ , toI i
2594+ , toJ j
2595+ ]
2596+ {-# INLINE liftToEncoding2 #-}
2597+
2598+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i) => ToJSON1 ((,,,,,,,,,) a b c d e f g h i) where
2599+ liftToJSON = liftToJSON2 toJSON toJSONList
2600+ {-# INLINE liftToJSON #-}
2601+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2602+ {-# INLINE liftToEncoding #-}
2603+
2604+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j) => ToJSON (a, b, c, d, e, f, g, h, i, j) where
2605+ toJSON = toJSON2
2606+ {-# INLINE toJSON #-}
2607+ toEncoding = toEncoding2
2608+ {-# INLINE toEncoding #-}
2609+
2610+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i) => ToJSON2 ((,,,,,,,,,,) a b c d e f g h i) where
2611+ liftToJSON2 toJ _ toK _ (a, b, c, d, e, f, g, h, i, j, k) = Array $ V.create $ do
2612+ mv <- VM.unsafeNew 11
2613+ VM.unsafeWrite mv 0 (toJSON a)
2614+ VM.unsafeWrite mv 1 (toJSON b)
2615+ VM.unsafeWrite mv 2 (toJSON c)
2616+ VM.unsafeWrite mv 3 (toJSON d)
2617+ VM.unsafeWrite mv 4 (toJSON e)
2618+ VM.unsafeWrite mv 5 (toJSON f)
2619+ VM.unsafeWrite mv 6 (toJSON g)
2620+ VM.unsafeWrite mv 7 (toJSON h)
2621+ VM.unsafeWrite mv 8 (toJSON i)
2622+ VM.unsafeWrite mv 9 (toJ j)
2623+ VM.unsafeWrite mv 10 (toK k)
2624+ return mv
2625+ {-# INLINE liftToJSON2 #-}
2626+
2627+ liftToEncoding2 toJ _ toK _ (a, b, c, d, e, f, g, h, i, j, k) = E.list id
2628+ [ toEncoding a
2629+ , toEncoding b
2630+ , toEncoding c
2631+ , toEncoding d
2632+ , toEncoding e
2633+ , toEncoding f
2634+ , toEncoding g
2635+ , toEncoding h
2636+ , toEncoding i
2637+ , toJ j
2638+ , toK k
2639+ ]
2640+ {-# INLINE liftToEncoding2 #-}
2641+
2642+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j) => ToJSON1 ((,,,,,,,,,,) a b c d e f g h i j) where
2643+ liftToJSON = liftToJSON2 toJSON toJSONList
2644+ {-# INLINE liftToJSON #-}
2645+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2646+ {-# INLINE liftToEncoding #-}
2647+
2648+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k) => ToJSON (a, b, c, d, e, f, g, h, i, j, k) where
2649+ toJSON = toJSON2
2650+ {-# INLINE toJSON #-}
2651+ toEncoding = toEncoding2
2652+ {-# INLINE toEncoding #-}
2653+
2654+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j) => ToJSON2 ((,,,,,,,,,,,) a b c d e f g h i j) where
2655+ liftToJSON2 toK _ toL _ (a, b, c, d, e, f, g, h, i, j, k, l) = Array $ V.create $ do
2656+ mv <- VM.unsafeNew 12
2657+ VM.unsafeWrite mv 0 (toJSON a)
2658+ VM.unsafeWrite mv 1 (toJSON b)
2659+ VM.unsafeWrite mv 2 (toJSON c)
2660+ VM.unsafeWrite mv 3 (toJSON d)
2661+ VM.unsafeWrite mv 4 (toJSON e)
2662+ VM.unsafeWrite mv 5 (toJSON f)
2663+ VM.unsafeWrite mv 6 (toJSON g)
2664+ VM.unsafeWrite mv 7 (toJSON h)
2665+ VM.unsafeWrite mv 8 (toJSON i)
2666+ VM.unsafeWrite mv 9 (toJSON j)
2667+ VM.unsafeWrite mv 10 (toK k)
2668+ VM.unsafeWrite mv 11 (toL l)
2669+ return mv
2670+ {-# INLINE liftToJSON2 #-}
2671+
2672+ liftToEncoding2 toK _ toL _ (a, b, c, d, e, f, g, h, i, j, k, l) = E.list id
2673+ [ toEncoding a
2674+ , toEncoding b
2675+ , toEncoding c
2676+ , toEncoding d
2677+ , toEncoding e
2678+ , toEncoding f
2679+ , toEncoding g
2680+ , toEncoding h
2681+ , toEncoding i
2682+ , toEncoding j
2683+ , toK k
2684+ , toL l
2685+ ]
2686+ {-# INLINE liftToEncoding2 #-}
2687+
2688+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k) => ToJSON1 ((,,,,,,,,,,,) a b c d e f g h i j k) where
2689+ liftToJSON = liftToJSON2 toJSON toJSONList
2690+ {-# INLINE liftToJSON #-}
2691+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2692+ {-# INLINE liftToEncoding #-}
2693+
2694+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l) => ToJSON (a, b, c, d, e, f, g, h, i, j, k, l) where
2695+ toJSON = toJSON2
2696+ {-# INLINE toJSON #-}
2697+ toEncoding = toEncoding2
2698+ {-# INLINE toEncoding #-}
2699+
2700+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k) => ToJSON2 ((,,,,,,,,,,,,) a b c d e f g h i j k) where
2701+ liftToJSON2 toL _ toM _ (a, b, c, d, e, f, g, h, i, j, k, l, m) = Array $ V.create $ do
2702+ mv <- VM.unsafeNew 13
2703+ VM.unsafeWrite mv 0 (toJSON a)
2704+ VM.unsafeWrite mv 1 (toJSON b)
2705+ VM.unsafeWrite mv 2 (toJSON c)
2706+ VM.unsafeWrite mv 3 (toJSON d)
2707+ VM.unsafeWrite mv 4 (toJSON e)
2708+ VM.unsafeWrite mv 5 (toJSON f)
2709+ VM.unsafeWrite mv 6 (toJSON g)
2710+ VM.unsafeWrite mv 7 (toJSON h)
2711+ VM.unsafeWrite mv 8 (toJSON i)
2712+ VM.unsafeWrite mv 9 (toJSON j)
2713+ VM.unsafeWrite mv 10 (toJSON k)
2714+ VM.unsafeWrite mv 11 (toL l)
2715+ VM.unsafeWrite mv 12 (toM m)
2716+ return mv
2717+ {-# INLINE liftToJSON2 #-}
2718+
2719+ liftToEncoding2 toL _ toM _ (a, b, c, d, e, f, g, h, i, j, k, l, m) = E.list id
2720+ [ toEncoding a
2721+ , toEncoding b
2722+ , toEncoding c
2723+ , toEncoding d
2724+ , toEncoding e
2725+ , toEncoding f
2726+ , toEncoding g
2727+ , toEncoding h
2728+ , toEncoding i
2729+ , toEncoding j
2730+ , toEncoding k
2731+ , toL l
2732+ , toM m
2733+ ]
2734+ {-# INLINE liftToEncoding2 #-}
2735+
2736+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l) => ToJSON1 ((,,,,,,,,,,,,) a b c d e f g h i j k l) where
2737+ liftToJSON = liftToJSON2 toJSON toJSONList
2738+ {-# INLINE liftToJSON #-}
2739+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2740+ {-# INLINE liftToEncoding #-}
2741+
2742+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l, ToJSON m) => ToJSON (a, b, c, d, e, f, g, h, i, j, k, l, m) where
2743+ toJSON = toJSON2
2744+ {-# INLINE toJSON #-}
2745+ toEncoding = toEncoding2
2746+ {-# INLINE toEncoding #-}
2747+
2748+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l) => ToJSON2 ((,,,,,,,,,,,,,) a b c d e f g h i j k l) where
2749+ liftToJSON2 toM _ toN _ (a, b, c, d, e, f, g, h, i, j, k, l, m, n) = Array $ V.create $ do
2750+ mv <- VM.unsafeNew 14
2751+ VM.unsafeWrite mv 0 (toJSON a)
2752+ VM.unsafeWrite mv 1 (toJSON b)
2753+ VM.unsafeWrite mv 2 (toJSON c)
2754+ VM.unsafeWrite mv 3 (toJSON d)
2755+ VM.unsafeWrite mv 4 (toJSON e)
2756+ VM.unsafeWrite mv 5 (toJSON f)
2757+ VM.unsafeWrite mv 6 (toJSON g)
2758+ VM.unsafeWrite mv 7 (toJSON h)
2759+ VM.unsafeWrite mv 8 (toJSON i)
2760+ VM.unsafeWrite mv 9 (toJSON j)
2761+ VM.unsafeWrite mv 10 (toJSON k)
2762+ VM.unsafeWrite mv 11 (toJSON l)
2763+ VM.unsafeWrite mv 12 (toM m)
2764+ VM.unsafeWrite mv 13 (toN n)
2765+ return mv
2766+ {-# INLINE liftToJSON2 #-}
2767+
2768+ liftToEncoding2 toM _ toN _ (a, b, c, d, e, f, g, h, i, j, k, l, m, n) = E.list id
2769+ [ toEncoding a
2770+ , toEncoding b
2771+ , toEncoding c
2772+ , toEncoding d
2773+ , toEncoding e
2774+ , toEncoding f
2775+ , toEncoding g
2776+ , toEncoding h
2777+ , toEncoding i
2778+ , toEncoding j
2779+ , toEncoding k
2780+ , toEncoding l
2781+ , toM m
2782+ , toN n
2783+ ]
2784+ {-# INLINE liftToEncoding2 #-}
2785+
2786+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l, ToJSON m) => ToJSON1 ((,,,,,,,,,,,,,) a b c d e f g h i j k l m) where
2787+ liftToJSON = liftToJSON2 toJSON toJSONList
2788+ {-# INLINE liftToJSON #-}
2789+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2790+ {-# INLINE liftToEncoding #-}
2791+
2792+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l, ToJSON m, ToJSON n) => ToJSON (a, b, c, d, e, f, g, h, i, j, k, l, m, n) where
2793+ toJSON = toJSON2
2794+ {-# INLINE toJSON #-}
2795+ toEncoding = toEncoding2
2796+ {-# INLINE toEncoding #-}
2797+
2798+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l, ToJSON m) => ToJSON2 ((,,,,,,,,,,,,,,) a b c d e f g h i j k l m) where
2799+ liftToJSON2 toN _ toO _ (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) = Array $ V.create $ do
2800+ mv <- VM.unsafeNew 15
2801+ VM.unsafeWrite mv 0 (toJSON a)
2802+ VM.unsafeWrite mv 1 (toJSON b)
2803+ VM.unsafeWrite mv 2 (toJSON c)
2804+ VM.unsafeWrite mv 3 (toJSON d)
2805+ VM.unsafeWrite mv 4 (toJSON e)
2806+ VM.unsafeWrite mv 5 (toJSON f)
2807+ VM.unsafeWrite mv 6 (toJSON g)
2808+ VM.unsafeWrite mv 7 (toJSON h)
2809+ VM.unsafeWrite mv 8 (toJSON i)
2810+ VM.unsafeWrite mv 9 (toJSON j)
2811+ VM.unsafeWrite mv 10 (toJSON k)
2812+ VM.unsafeWrite mv 11 (toJSON l)
2813+ VM.unsafeWrite mv 12 (toJSON m)
2814+ VM.unsafeWrite mv 13 (toN n)
2815+ VM.unsafeWrite mv 14 (toO o)
2816+ return mv
2817+ {-# INLINE liftToJSON2 #-}
2818+
2819+ liftToEncoding2 toN _ toO _ (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) = E.list id
2820+ [ toEncoding a
2821+ , toEncoding b
2822+ , toEncoding c
2823+ , toEncoding d
2824+ , toEncoding e
2825+ , toEncoding f
2826+ , toEncoding g
2827+ , toEncoding h
2828+ , toEncoding i
2829+ , toEncoding j
2830+ , toEncoding k
2831+ , toEncoding l
2832+ , toEncoding m
2833+ , toN n
2834+ , toO o
2835+ ]
2836+ {-# INLINE liftToEncoding2 #-}
2837+
2838+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l, ToJSON m, ToJSON n) => ToJSON1 ((,,,,,,,,,,,,,,) a b c d e f g h i j k l m n) where
2839+ liftToJSON = liftToJSON2 toJSON toJSONList
2840+ {-# INLINE liftToJSON #-}
2841+ liftToEncoding = liftToEncoding2 toEncoding toEncodingList
2842+ {-# INLINE liftToEncoding #-}
2843+
2844+instance (ToJSON a, ToJSON b, ToJSON c, ToJSON d, ToJSON e, ToJSON f, ToJSON g, ToJSON h, ToJSON i, ToJSON j, ToJSON k, ToJSON l, ToJSON m, ToJSON n, ToJSON o) => ToJSON (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o) where
2845+ toJSON = toJSON2
2846+ {-# INLINE toJSON #-}
2847+ toEncoding = toEncoding2
2848+ {-# INLINE toEncoding #-}
2849+
2850+--------------------------------------------------------------------------------
2851+
2852+-- | Wrap a list of pairs as an object.
2853+class Monoid pairs => FromPairs enc pairs | enc -> pairs where
2854+ fromPairs :: pairs -> enc
2855+
2856+instance (a ~ Value) => FromPairs (Encoding' a) Series where
2857+ fromPairs = E.pairs
2858+
2859+instance FromPairs Value (DList Pair) where
2860+ fromPairs = object . toList
2861+
2862+-- | Like 'KeyValue' but the value is already converted to JSON
2863+-- ('Value' or 'Encoding'), and the result actually represents lists of pairs
2864+-- so it can be readily concatenated.
2865+class Monoid kv => KeyValuePair v kv where
2866+ pair :: String -> v -> kv
2867+
2868+instance (v ~ Value) => KeyValuePair v (DList Pair) where
2869+ pair k v = DList.singleton (pack k .= v)
2870+
2871+instance (e ~ Encoding) => KeyValuePair e Series where
2872+ pair = E.pairStr
Makefilenew file+2
@@ -0,0 +1,2 @@
1+lint:
2+ ./run-hlint.sh --cpp-include include/ --cpp-file travis/cabal_macros.h Data/ attoparsec-iso8601/ benchmarks/ examples/ ffi/ pure/ tests/
README.markdown+10−10
@@ -1,27 +1,27 @@
1−# Welcome to aeson
1+# Welcome to `aeson` [![Hackage](https://img.shields.io/hackage/v/aeson.svg)](https://hackage.haskell.org/package/aeson) [![Build Status](https://travis-ci.org/bos/aeson.svg)](https://travis-ci.org/bos/aeson)
2
2
3aeson is a fast Haskell library for working with JSON data.
3aeson is a fast Haskell library for working with JSON data.
4
4
5+
5# Join in!
6# Join in!
6
7
7We are happy to receive bug reports, fixes, documentation enhancements,
8We are happy to receive bug reports, fixes, documentation enhancements,
8and other improvements.
9and other improvements.
9
10
10Please report bugs via the
11Please report bugs via the
11−[github issue tracker](http://github.com/mailrank/aeson/issues).
12+[github issue tracker](http://github.com/bos/aeson/issues).
12
13
13−Master [git repository](http://github.com/mailrank/aeson):
14+Master [git repository](http://github.com/bos/aeson):
14
15
15−* `git clone git://github.com/mailrank/aeson.git`
16+* `git clone git://github.com/bos/aeson.git`
16
17
17−There's also a [Mercurial mirror](http://bitbucket.org/bos/aeson):
18+See what's changed in recent (and upcoming) releases:
18
19
19−* `hg clone http://bitbucket.org/bos/aeson`
20+* https://github.com/bos/aeson/blob/master/changelog.md
20
21
21(You can create and contribute changes using either git or Mercurial.)
22(You can create and contribute changes using either git or Mercurial.)
22
23
23−Authors
24−-------
25
24
25+# Authors
26+
26−This library is written and maintained by Bryan O'Sullivan,
27+This library was originally written by Bryan O'Sullivan.
27−<bos@mailrank.com>.
aeson.cabal+237−22
@@ -1,51 +1,266 @@
1name: aeson
1name: aeson
2−version: 0.0.0.0
2+version: 1.4.6.0
3license: BSD3
3license: BSD3
4license-file: LICENSE
4license-file: LICENSE
5category: Text, Web, JSON
5category: Text, Web, JSON
6+copyright: (c) 2011-2016 Bryan O'Sullivan
6−copyright: Copyright 2011 MailRank, Inc.
7+ (c) 2011 MailRank, Inc.
7−author: Bryan O'Sullivan <bos@mailrank.com>
8+author: Bryan O'Sullivan <bos@serpentine.com>
8−maintainer: Bryan O'Sullivan <bos@mailrank.com>
9+maintainer: Adam Bergmark <adam@bergmark.nl>
9stability: experimental
10stability: experimental
10−tested-with: GHC == 6.12.3
11+tested-with: GHC == 7.4.2, GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.3, GHC == 8.0.1
11−synopsis: Fast JSON parsing and generation
12+synopsis: Fast JSON parsing and encoding
12−cabal-version: >= 1.8
13+cabal-version: >= 1.10
13−homepage: http://github.com/mailrank/aeson
14+homepage: https://github.com/bos/aeson
14−bug-reports: http://github.com/mailrank/aeson/issues
15+bug-reports: https://github.com/bos/aeson/issues
15build-type: Simple
16build-type: Simple
16description:
17description:
17− A fast JSON parsing and generation library.
18+ A JSON parsing and encoding library optimized for ease of use
19+ and high performance.
20+ .
21+ To get started, see the documentation for the @Data.Aeson@ module
22+ below.
23+ .
24+ (A note on naming: in Greek mythology, Aeson was the father of Jason.)
25+
18extra-source-files:
26extra-source-files:
27+ *.yaml
19 README.markdown
28 README.markdown
29+ benchmarks/*.cabal
30+ benchmarks/*.hs
31+ benchmarks/*.py
32+ benchmarks/Compare/*.hs
33+ benchmarks/Makefile
34+ benchmarks/Typed/*.hs
35+ benchmarks/json-data/*.json
36+ cbits/*.c
37+ changelog.md
38+ examples/*.cabal
39+ examples/*.hs
40+ examples/Twitter/*.hs
41+ ffi/Data/Aeson/Parser/*.hs
42+ include/*.h
43+ tests/JSONTestSuite/test_parsing/*.json
44+ tests/JSONTestSuite/test_transform/*.json
45+ tests/golden/*.expected
46+ pure/Data/Aeson/Parser/*.hs
20
47
21flag developer
48flag developer
22 description: operate in developer mode
49 description: operate in developer mode
23 default: False
50 default: False
51+ manual: True
52+
53+flag fast
54+ description: compile without optimizations
55+ default: False
56+ manual: True
57+
58+flag bytestring-builder
59+ description: Depend on the bytestring-builder package for backwards compatibility.
60+ default: False
61+ manual: False
62+
63+flag cffi
64+ description: Controls whether to include c-ffi bits or pure haskell. Default to False for security.
65+ default: False
66+ manual: True
24
67
25library
68library
69+ default-language: Haskell2010
70+ hs-source-dirs: . attoparsec-iso8601/
71+
26 exposed-modules:
72 exposed-modules:
27 Data.Aeson
73 Data.Aeson
28− Data.Aeson.Encode
74+ Data.Aeson.Encoding
29 Data.Aeson.Parser
75 Data.Aeson.Parser
76+ Data.Aeson.Text
30 Data.Aeson.Types
77 Data.Aeson.Types
78+ Data.Aeson.TH
79+ Data.Aeson.QQ.Simple
80+
81+ Data.Aeson.Encoding.Internal
82+ Data.Aeson.Internal
83+ Data.Aeson.Internal.Time
84+ Data.Aeson.Parser.Internal
31
85
86+ -- Deprecated modules
87+ exposed-modules:
88+ Data.Aeson.Encode
89+
90+ other-modules:
91+ Data.Aeson.Encoding.Builder
92+ Data.Aeson.Internal.Functions
93+ Data.Aeson.Parser.Unescape
94+ Data.Aeson.Parser.Time
95+ Data.Aeson.Types.FromJSON
96+ Data.Aeson.Types.Generic
97+ Data.Aeson.Types.ToJSON
98+ Data.Aeson.Types.Class
99+ Data.Aeson.Types.Internal
100+ Data.Attoparsec.Time
101+ Data.Attoparsec.Time.Internal
102+
103+ -- GHC bundled libs
32 build-depends:
104 build-depends:
33− attoparsec >= 0.8.4.0,
105+ base >= 4.7.0.0 && < 5,
34− base == 4.*,
106+ bytestring >= 0.10.4.0 && < 0.11,
35− blaze-builder >= 0.2.1.4,
107+ containers >= 0.5.5.1 && < 0.7,
36− bytestring,
108+ deepseq >= 1.3.0.0 && < 1.5,
37− containers == 0.3.*,
109+ ghc-prim >= 0.2 && < 0.6,
38− old-locale,
110+ template-haskell >= 2.9.0.0 && < 2.16,
39− text >= 0.11.0.2,
111+ text >= 1.2.3.0 && < 1.3,
40− time,
112+ time >= 1.4 && < 1.10
113+
114+ if impl(ghc >= 8.0)
115+ build-depends: bytestring >= 0.10.8.1
116+
117+ -- Compat
118+ build-depends:
119+ base-compat >= 0.9.1 && < 0.12,
120+ time-compat >= 1.9.2.2 && < 1.10
121+
122+ if !impl(ghc >= 8.6)
123+ build-depends:
124+ contravariant >=1.4.1 && <1.6
125+
126+ if !impl(ghc >= 8.0)
127+ -- `Data.Semigroup` and `Control.Monad.Fail` and `Control.Monad.IO.Class` are available in base only since GHC 8.0 / base 4.9
128+ build-depends:
129+ semigroups >= 0.18.5 && < 0.20,
130+ transformers >= 0.3.0.0 && < 0.6,
131+ transformers-compat >= 0.6.2 && < 0.7,
132+ fail == 4.9.*
133+
134+ if !impl(ghc >= 7.10)
135+ -- `Numeric.Natural` is available in base only since GHC 7.10 / base 4.8
136+ build-depends: nats >= 1.1.1 && < 1.2,
137+ void >= 0.7.2 && < 0.8
138+
139+ -- cannot use latest version
140+ build-depends:
141+ unordered-containers >= 0.2.8.0 && < 0.3,
142+
143+ -- not in LTS-12.10
144+ tagged >= 0.8.5 && < 0.9,
145+ primitive >= 0.6.3.0 && < 0.8
146+
147+ -- Other dependencies
148+ build-depends:
149+ attoparsec >= 0.13.2.2 && < 0.14,
150+ dlist >= 0.8.0.4 && < 0.9,
151+ hashable >= 1.2.7.0 && < 1.4,
152+ scientific >= 0.3.6.2 && < 0.4,
153+ th-abstraction >= 0.2.8.0 && < 0.4,
154+ uuid-types >= 1.0.3 && < 1.1,
41− vector >= 0.7
155+ vector >= 0.12.0.1 && < 0.13
156+
157+ ghc-options: -Wall
42
158
43 if flag(developer)
159 if flag(developer)
44 ghc-options: -Werror
160 ghc-options: -Werror
45 ghc-prof-options: -auto-all
161 ghc-prof-options: -auto-all
46
162
163+ if flag(fast)
164+ ghc-options: -O0
165+ else
47− ghc-options: -Wall
166+ ghc-options: -O2
167+
168+ include-dirs: include
169+ if impl(ghcjs) || !flag(cffi)
170+ hs-source-dirs: pure
171+ other-modules: Data.Aeson.Parser.UnescapePure
172+ else
173+ c-sources: cbits/unescape_string.c
174+ cpp-options: -DCFFI
175+ hs-source-dirs: ffi
176+ other-modules: Data.Aeson.Parser.UnescapeFFI
177+
178+test-suite tests
179+ default-language: Haskell2010
180+ type: exitcode-stdio-1.0
181+ hs-source-dirs: tests ffi pure
182+ main-is: Tests.hs
183+ c-sources: cbits/unescape_string.c
184+ ghc-options: -Wall -threaded -rtsopts
185+
186+ other-modules:
187+ Data.Aeson.Parser.UnescapeFFI
188+ Data.Aeson.Parser.UnescapePure
189+ DataFamilies.Properties
190+ DataFamilies.Instances
191+ DataFamilies.Encoders
192+ DataFamilies.Types
193+ Encoders
194+ ErrorMessages
195+ Functions
196+ Instances
197+ Options
198+ PropUtils
199+ Properties
200+ PropertyGeneric
201+ PropertyKeys
202+ PropertyRoundTrip
203+ PropertyRTFunctors
204+ PropertyTH
205+ SerializationFormatSpec
206+ Types
207+ UnitTests
208+ UnitTests.NullaryConstructors
209+
210+ build-depends:
211+ QuickCheck >= 2.10.0.1 && < 2.14,
212+ aeson,
213+ integer-logarithms >= 1 && <1.1,
214+ attoparsec,
215+ base,
216+ base-compat,
217+ base-orphans >= 0.5.3 && <0.9,
218+ base16-bytestring,
219+ containers,
220+ directory,
221+ dlist,
222+ Diff >= 0.4 && < 0.5,
223+ filepath,
224+ generic-deriving >= 1.10 && < 1.14,
225+ ghc-prim >= 0.2,
226+ hashable >= 1.2.4.0,
227+ scientific,
228+ tagged,
229+ template-haskell,
230+ tasty,
231+ tasty-golden,
232+ tasty-hunit,
233+ tasty-quickcheck,
234+ text,
235+ time,
236+ time-compat,
237+ unordered-containers,
238+ uuid-types,
239+ vector,
240+ quickcheck-instances >= 0.3.21 && <0.4
241+
242+ if flag(bytestring-builder)
243+ build-depends: bytestring >= 0.9 && < 0.10.4,
244+ bytestring-builder >= 0.10.4 && < 1
245+ else
246+ build-depends: bytestring >= 0.10.4
247+
248+ if !impl(ghc >= 8.0)
249+ build-depends:
250+ semigroups >= 0.18.2 && < 0.20,
251+ transformers >= 0.2.2.0,
252+ transformers-compat >= 0.3
253+
254+ if !impl(ghc >= 7.10)
255+ build-depends: nats >=1 && <1.2,
256+ void >=0.7.2 && <0.8
257+
258+ if impl(ghc >= 7.8)
259+ build-depends: hashable-time >= 0.2 && <0.3
260+
261+ if flag(fast)
262+ ghc-options: -fno-enable-rewrite-rules
48
263
49source-repository head
264source-repository head
50 type: git
265 type: git
51− location: http://github.com/mailrank/aeson
266+ location: git://github.com/bos/aeson.git
attoparsec-iso8601/Data/Attoparsec/Time.hsnew file+148
@@ -0,0 +1,148 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE ScopedTypeVariables #-}
4+-- |
5+-- Module: Data.Aeson.Parser.Time
6+-- Copyright: (c) 2015-2016 Bryan O'Sullivan
7+-- License: BSD3
8+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
9+-- Stability: experimental
10+-- Portability: portable
11+--
12+-- Parsers for parsing dates and times.
13+
14+module Data.Attoparsec.Time
15+ (
16+ day
17+ , localTime
18+ , timeOfDay
19+ , timeZone
20+ , utcTime
21+ , zonedTime
22+ ) where
23+
24+import Prelude.Compat
25+
26+import Control.Applicative ((<|>))
27+import Control.Monad (void, when)
28+import Data.Attoparsec.Text as A
29+import Data.Attoparsec.Time.Internal (toPico)
30+import Data.Bits ((.&.))
31+import Data.Char (isDigit, ord)
32+import Data.Fixed (Pico)
33+import Data.Int (Int64)
34+import Data.Maybe (fromMaybe)
35+import Data.Time.Calendar (Day, fromGregorianValid)
36+import Data.Time.Clock (UTCTime(..))
37+import qualified Data.Text as T
38+import qualified Data.Time.LocalTime as Local
39+
40+-- | Parse a date of the form @[+,-]YYYY-MM-DD@.
41+day :: Parser Day
42+day = do
43+ absOrNeg <- negate <$ char '-' <|> id <$ char '+' <|> pure id
44+ y <- (decimal <* char '-') <|> fail "date must be of form [+,-]YYYY-MM-DD"
45+ m <- (twoDigits <* char '-') <|> fail "date must be of form [+,-]YYYY-MM-DD"
46+ d <- twoDigits <|> fail "date must be of form [+,-]YYYY-MM-DD"
47+ maybe (fail "invalid date") return (fromGregorianValid (absOrNeg y) m d)
48+
49+-- | Parse a two-digit integer (e.g. day of month, hour).
50+twoDigits :: Parser Int
51+twoDigits = do
52+ a <- digit
53+ b <- digit
54+ let c2d c = ord c .&. 15
55+ return $! c2d a * 10 + c2d b
56+
57+-- | Parse a time of the form @HH:MM[:SS[.SSS]]@.
58+timeOfDay :: Parser Local.TimeOfDay
59+timeOfDay = do
60+ h <- twoDigits
61+ m <- char ':' *> twoDigits
62+ s <- option 0 (char ':' *> seconds)
63+ if h < 24 && m < 60 && s < 61
64+ then return (Local.TimeOfDay h m s)
65+ else fail "invalid time"
66+
67+data T = T {-# UNPACK #-} !Int {-# UNPACK #-} !Int64
68+
69+-- | Parse a count of seconds, with the integer part being two digits
70+-- long.
71+seconds :: Parser Pico
72+seconds = do
73+ real <- twoDigits
74+ mc <- peekChar
75+ case mc of
76+ Just '.' -> do
77+ t <- anyChar *> takeWhile1 isDigit
78+ return $! parsePicos real t
79+ _ -> return $! fromIntegral real
80+ where
81+ parsePicos a0 t = toPico (fromIntegral (t' * 10^n))
82+ where T n t' = T.foldl' step (T 12 (fromIntegral a0)) t
83+ step ma@(T m a) c
84+ | m <= 0 = ma
85+ | otherwise = T (m-1) (10 * a + fromIntegral (ord c) .&. 15)
86+
87+-- | Parse a time zone, and return 'Nothing' if the offset from UTC is
88+-- zero. (This makes some speedups possible.)
89+timeZone :: Parser (Maybe Local.TimeZone)
90+timeZone = do
91+ let maybeSkip c = do ch <- peekChar'; when (ch == c) (void anyChar)
92+ maybeSkip ' '
93+ ch <- satisfy $ \c -> c == 'Z' || c == '+' || c == '-'
94+ if ch == 'Z'
95+ then return Nothing
96+ else do
97+ h <- twoDigits
98+ mm <- peekChar
99+ m <- case mm of
100+ Just ':' -> anyChar *> twoDigits
101+ Just d | isDigit d -> twoDigits
102+ _ -> return 0
103+ let off | ch == '-' = negate off0
104+ | otherwise = off0
105+ off0 = h * 60 + m
106+ case undefined of
107+ _ | off == 0 ->
108+ return Nothing
109+ | off < -720 || off > 840 || m > 59 ->
110+ fail "invalid time zone offset"
111+ | otherwise ->
112+ let !tz = Local.minutesToTimeZone off
113+ in return (Just tz)
114+
115+-- | Parse a date and time, of the form @YYYY-MM-DD HH:MM[:SS[.SSS]]@.
116+-- The space may be replaced with a @T@. The number of seconds is optional
117+-- and may be followed by a fractional component.
118+localTime :: Parser Local.LocalTime
119+localTime = Local.LocalTime <$> day <* daySep <*> timeOfDay
120+ where daySep = satisfy (\c -> c == 'T' || c == ' ')
121+
122+-- | Behaves as 'zonedTime', but converts any time zone offset into a
123+-- UTC time.
124+utcTime :: Parser UTCTime
125+utcTime = do
126+ lt@(Local.LocalTime d t) <- localTime
127+ mtz <- timeZone
128+ case mtz of
129+ Nothing -> let !tt = Local.timeOfDayToTime t
130+ in return (UTCTime d tt)
131+ Just tz -> return $! Local.localTimeToUTC tz lt
132+
133+-- | Parse a date with time zone info. Acceptable formats:
134+--
135+-- @YYYY-MM-DD HH:MM Z@
136+-- @YYYY-MM-DD HH:MM:SS Z@
137+-- @YYYY-MM-DD HH:MM:SS.SSS Z@
138+--
139+-- The first space may instead be a @T@, and the second space is
140+-- optional. The @Z@ represents UTC. The @Z@ may be replaced with a
141+-- time zone offset of the form @+0000@ or @-08:00@, where the first
142+-- two digits are hours, the @:@ is optional and the second two digits
143+-- (also optional) are minutes.
144+zonedTime :: Parser Local.ZonedTime
145+zonedTime = Local.ZonedTime <$> localTime <*> (fromMaybe utc <$> timeZone)
146+
147+utc :: Local.TimeZone
148+utc = Local.TimeZone 0 False ""
attoparsec-iso8601/Data/Attoparsec/Time/Internal.hsnew file+64
@@ -0,0 +1,64 @@
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+-- |
4+-- Module: Data.Aeson.Internal.Time
5+-- Copyright: (c) 2015-2016 Bryan O'Sullivan
6+-- License: BSD3
7+-- Maintainer: Bryan O'Sullivan <bos@serpentine.com>
8+-- Stability: experimental
9+-- Portability: portable
10+
11+module Data.Attoparsec.Time.Internal
12+ (
13+ TimeOfDay64(..)
14+ , fromPico
15+ , toPico
16+ , diffTimeOfDay64
17+ , toTimeOfDay64
18+ ) where
19+
20+import Prelude.Compat
21+
22+import Data.Int (Int64)
23+import Data.Time
24+import Unsafe.Coerce (unsafeCoerce)
25+
26+#if MIN_VERSION_time(1,6,0)
27+
28+import Data.Time.Clock (diffTimeToPicoseconds)
29+
30+#endif
31+
32+import Data.Fixed (Pico, Fixed(MkFixed))
33+
34+#if !MIN_VERSION_time(1,6,0)
35+
36+diffTimeToPicoseconds :: DiffTime -> Integer
37+diffTimeToPicoseconds = unsafeCoerce
38+
39+#endif
40+
41+toPico :: Integer -> Pico
42+toPico = MkFixed
43+
44+fromPico :: Pico -> Integer
45+fromPico (MkFixed i) = i
46+
47+-- | Like TimeOfDay, but using a fixed-width integer for seconds.
48+data TimeOfDay64 = TOD {-# UNPACK #-} !Int
49+ {-# UNPACK #-} !Int
50+ {-# UNPACK #-} !Int64
51+
52+posixDayLength :: DiffTime
53+posixDayLength = 86400
54+
55+diffTimeOfDay64 :: DiffTime -> TimeOfDay64
56+diffTimeOfDay64 t
57+ | t >= posixDayLength = TOD 23 59 (60000000000000 + pico (t - posixDayLength))
58+ | otherwise = TOD (fromIntegral h) (fromIntegral m) s
59+ where (h,mp) = pico t `quotRem` 3600000000000000
60+ (m,s) = mp `quotRem` 60000000000000
61+ pico = fromIntegral . diffTimeToPicoseconds
62+
63+toTimeOfDay64 :: TimeOfDay -> TimeOfDay64
64+toTimeOfDay64 (TimeOfDay h m s) = TOD h m (fromIntegral (fromPico s))
attoparsec-iso8601/LICENSEnew file+30
@@ -0,0 +1,30 @@
1+Copyright (c) 2011, MailRank, Inc.
2+
3+All rights reserved.
4+
5+Redistribution and use in source and binary forms, with or without
6+modification, are permitted provided that the following conditions
7+are met:
8+
9+1. Redistributions of source code must retain the above copyright
10+ notice, this list of conditions and the following disclaimer.
11+
12+2. Redistributions in binary form must reproduce the above copyright
13+ notice, this list of conditions and the following disclaimer in the
14+ documentation and/or other materials provided with the distribution.
15+
16+3. Neither the name of the author nor the names of his contributors
17+ may be used to endorse or promote products derived from this software
18+ without specific prior written permission.
19+
20+THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTORS ``AS IS'' AND ANY EXPRESS
21+OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
22+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
23+DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR
24+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26+OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27+HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
28+STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
29+ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
30+POSSIBILITY OF SUCH DAMAGE.
attoparsec-iso8601/README.mdnew file+19
@@ -0,0 +1,19 @@
1+Parsing of ISO 8601 dates.
2+
3+This package is used to parse dates in aeson. It is split into a
4+separate package to be shared by other projects that want to parse
5+dates like aeson does.
6+
7+For now, this project is located in the aeson repository and aeson
8+itself uses the source of this package without pulling in the package
9+as a dependency.
10+
11+## Stability
12+
13+Since aeson depends on this package we want to be very careful about
14+changing the format.
15+
16+There may be breaking changes if we find that the format is
17+incorrectly too lenient. We consider widening of the allowed input a
18+non-breaking addition since all previously valid input will still
19+parse correctly.
attoparsec-iso8601/attoparsec-iso8601.cabalnew file+55
@@ -0,0 +1,55 @@
1+name: attoparsec-iso8601
2+version: 1.0.1.0
3+synopsis: Parsing of ISO 8601 dates, originally from aeson.
4+description: Parsing of ISO 8601 dates, originally from aeson.
5+license: BSD3
6+license-file: LICENSE
7+category: Parsing
8+copyright: (c) 2011-2016 Bryan O'Sullivan
9+ (c) 2011 MailRank, Inc.
10+author: Bryan O'Sullivan <bos@serpentine.com>
11+maintainer: Adam Bergmark <adam@bergmark.nl>
12+stability: experimental
13+cabal-version: >=1.10
14+homepage: https://github.com/bos/aeson
15+bug-reports: https://github.com/bos/aeson/issues
16+build-type: Simple
17+extra-source-files:
18+ README.md
19+
20+flag developer
21+ description: operate in developer mode
22+ default: False
23+ manual: True
24+
25+flag fast
26+ description: compile without optimizations
27+ default: False
28+ manual: True
29+
30+library
31+ hs-source-dirs: .
32+ default-language: Haskell2010
33+ ghc-options: -Wall
34+ exposed-modules:
35+ Data.Attoparsec.Time.Internal
36+ Data.Attoparsec.Time
37+ build-depends:
38+ attoparsec >= 0.13.0.1,
39+ base >= 4.7 && < 5,
40+ base-compat >= 0.9.1 && < 0.12,
41+ text >= 1.1.1.0,
42+ time >= 1.1.1.4
43+
44+ if flag(fast)
45+ ghc-options: -O0
46+ else
47+ ghc-options: -O2
48+
49+ if flag(developer)
50+ ghc-options: -Werror
51+ ghc-prof-options: -auto-all
52+
53+source-repository head
54+ type: git
55+ location: git://github.com/bos/aeson.git
attoparsec-iso8601/changelog.mdnew file+5
@@ -0,0 +1,5 @@
1+For the latest version of this document, please see [https://github.com/bos/aeson/blob/master/attoparsec-iso8601/changelog.md](https://github.com/bos/aeson/blob/master/attoparsec-iso8601/changelog.md).
2+
3+### 1.0.1.0
4+
5+* Fixes handling of `UTCTime` wrt. leap seconds , thanks to Adam Schønemann
benchmarks/AesonEncode.hsnew file+43
@@ -0,0 +1,43 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE OverloadedStrings #-}
4+
5+module Main (main) where
6+
7+import Prelude.Compat
8+
9+import Control.DeepSeq
10+import Control.Monad (forM_)
11+import Data.Aeson
12+import Data.Attoparsec.ByteString (IResult(..), parseWith)
13+import Data.Char (isDigit)
14+import Data.Time.Clock
15+import System.Environment (getArgs)
16+import System.IO
17+import qualified Data.ByteString as B
18+
19+main :: IO ()
20+main = do
21+ args0 <- getArgs
22+ let (cnt,args) = case args0 of
23+ (i:c:a) | all isDigit i && all isDigit c -> (c,a)
24+ (c:a) -> (c,a)
25+ [] -> error "Unexpected empty list"
26+ let count = read cnt :: Int
27+ forM_ args $ \arg -> withFile arg ReadMode $ \h -> do
28+ putStrLn $ arg ++ ":"
29+ let refill = B.hGet h 16384
30+ result0 <- parseWith refill json =<< refill
31+ r0 <- case result0 of
32+ Done _ r -> return r
33+ _ -> fail $ "failed to read " ++ show arg
34+ start <- getCurrentTime
35+ let loop !n r
36+ | n >= count = return ()
37+ | otherwise = {-# SCC "loop" #-}
38+ rnf (encode r) `seq` loop (n+1) r
39+ loop 0 r0
40+ delta <- flip diffUTCTime start `fmap` getCurrentTime
41+ let rate = fromIntegral count / realToFrac delta :: Double
42+ putStrLn $ " " ++ cnt ++ " good, " ++ show delta
43+ putStrLn $ " " ++ show (round rate :: Int) ++ " per second"
benchmarks/AesonFoldable.hsnew file+86
@@ -0,0 +1,86 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+{-# LANGUAGE OverloadedStrings #-}
3+
4+module Main (main) where
5+
6+import Criterion.Main
7+
8+import Prelude.Compat
9+
10+import Data.Foldable (toList)
11+import qualified Data.Aeson as A
12+import qualified Data.Sequence as S
13+import qualified Data.Vector as V
14+import qualified Data.Vector.Unboxed as U
15+
16+-------------------------------------------------------------------------------
17+-- List
18+-------------------------------------------------------------------------------
19+
20+newtype L f = L { getL :: f Int }
21+
22+instance Foldable f => A.ToJSON (L f) where
23+ toJSON = error "do not use this"
24+ toEncoding = A.toEncoding . toList . getL
25+
26+-------------------------------------------------------------------------------
27+-- Foldable
28+-------------------------------------------------------------------------------
29+
30+newtype F f = F { getF :: f Int }
31+
32+instance Foldable f => A.ToJSON (F f) where
33+ toJSON = error "do not use this"
34+ toEncoding = A.foldable . getF
35+
36+-------------------------------------------------------------------------------
37+-- Values
38+-------------------------------------------------------------------------------
39+
40+valueList :: [Int]
41+valueList = [1..1000]
42+
43+valueSeq :: S.Seq Int
44+valueSeq = S.fromList valueList
45+
46+valueVector :: V.Vector Int
47+valueVector = V.fromList valueList
48+
49+valueUVector :: U.Vector Int
50+valueUVector = U.fromList valueList
51+
52+-------------------------------------------------------------------------------
53+-- Main
54+-------------------------------------------------------------------------------
55+
56+benchEncode
57+ :: A.ToJSON a
58+ => String
59+ -> a
60+ -> Benchmark
61+benchEncode name val
62+ = bench ("A " ++ name) $ nf A.encode val
63+
64+main :: IO ()
65+main = defaultMain
66+ [ bgroup "encode"
67+ [ bgroup "List"
68+ [ benchEncode "-" valueList
69+ , benchEncode "L" $ L valueList
70+ , benchEncode "F" $ F valueList
71+ ]
72+ , bgroup "Seq"
73+ [ benchEncode "-" valueSeq
74+ , benchEncode "L" $ L valueSeq
75+ , benchEncode "F" $ F valueSeq
76+ ]
77+ , bgroup "Vector"
78+ [ benchEncode "-" valueVector
79+ , benchEncode "L" $ L valueVector
80+ , benchEncode "F" $ F valueVector
81+ ]
82+ , bgroup "Vector.Unboxed"
83+ [ benchEncode "-" valueUVector
84+ ]
85+ ]
86+ ]
benchmarks/AesonMap.hsnew file+214
@@ -0,0 +1,214 @@
1+{-# LANGUAGE FlexibleContexts #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE RankNTypes #-}
4+
5+{-# OPTIONS_GHC -fno-warn-orphans #-}
6+
7+module Main (main) where
8+
9+import Prelude.Compat
10+
11+import Control.DeepSeq
12+import Criterion.Main
13+import Data.Hashable
14+import Data.Proxy (Proxy (..))
15+import Data.Tagged (Tagged (..))
16+import Data.Aeson
17+import Data.Aeson.Types (fromJSONKeyCoerce)
18+import qualified Data.ByteString.Lazy as LBS
19+import qualified Data.HashMap.Strict as HM
20+import qualified Data.Map as M
21+import qualified Data.Text as T
22+
23+value :: Int -> HM.HashMap T.Text T.Text
24+value n = HM.fromList $ map f [1..n]
25+ where
26+ f m = let t = T.pack (show m) in (t, t)
27+
28+-------------------------------------------------------------------------------
29+-- Orphans
30+-------------------------------------------------------------------------------
31+
32+instance Hashable b => Hashable (Tagged a b) where
33+ hashWithSalt salt (Tagged a) = hashWithSalt salt a
34+
35+-------------------------------------------------------------------------------
36+-- Text
37+-------------------------------------------------------------------------------
38+
39+newtype T1 = T1 T.Text
40+ deriving (Eq, Ord)
41+
42+instance NFData T1 where
43+ rnf (T1 t) = rnf t
44+instance Hashable T1 where
45+ hashWithSalt salt (T1 t) = hashWithSalt salt t
46+
47+instance FromJSON T1 where
48+ parseJSON = withText "T1" $ pure . T1
49+instance FromJSONKey T1 where
50+ fromJSONKey = FromJSONKeyText T1
51+
52+-------------------------------------------------------------------------------
53+-- Coerce
54+-------------------------------------------------------------------------------
55+
56+newtype T2 = T2 T.Text
57+ deriving (Eq, Ord)
58+
59+instance NFData T2 where
60+ rnf (T2 t) = rnf t
61+instance Hashable T2 where
62+ hashWithSalt salt (T2 t) = hashWithSalt salt t
63+
64+instance FromJSON T2 where
65+ parseJSON = withText "T2" $ pure . T2
66+instance FromJSONKey T2 where
67+ fromJSONKey = fromJSONKeyCoerce
68+
69+-------------------------------------------------------------------------------
70+-- TextParser
71+-------------------------------------------------------------------------------
72+
73+newtype T3 = T3 T.Text
74+ deriving (Eq, Ord)
75+
76+instance NFData T3 where
77+ rnf (T3 t) = rnf t
78+instance Hashable T3 where
79+ hashWithSalt salt (T3 t) = hashWithSalt salt t
80+
81+instance FromJSON T3 where
82+ parseJSON = withText "T3" $ pure . T3
83+instance FromJSONKey T3 where
84+ fromJSONKey = FromJSONKeyTextParser (pure . T3)
85+
86+-------------------------------------------------------------------------------
87+-- Values
88+-------------------------------------------------------------------------------
89+
90+value10, value100, value1000, value10000 :: HM.HashMap T.Text T.Text
91+value10 = value 10
92+value100 = value 100
93+value1000 = value 1000
94+value10000 = value 10000
95+
96+encodedValue10 :: LBS.ByteString
97+encodedValue10 = encode value10
98+
99+encodedValue100 :: LBS.ByteString
100+encodedValue100 = encode value100
101+
102+encodedValue1000 :: LBS.ByteString
103+encodedValue1000 = encode value1000
104+
105+encodedValue10000 :: LBS.ByteString
106+encodedValue10000 = encode value10000
107+
108+-------------------------------------------------------------------------------
109+-- Helpers
110+-------------------------------------------------------------------------------
111+
112+decodeHM
113+ :: (FromJSON (HM.HashMap k T.Text), Eq k, Hashable k)
114+ => Proxy k -> LBS.ByteString -> Maybe (HM.HashMap k T.Text)
115+decodeHM _ = decode
116+
117+decodeMap
118+ :: (FromJSON (M.Map k T.Text), Ord k)
119+ => Proxy k -> LBS.ByteString -> Maybe (M.Map k T.Text)
120+decodeMap _ = decode
121+
122+proxyText :: Proxy T.Text
123+proxyText = Proxy
124+
125+proxyT1 :: Proxy T1
126+proxyT1 = Proxy
127+
128+proxyT2 :: Proxy T2
129+proxyT2 = Proxy
130+
131+proxyT3 :: Proxy T3
132+proxyT3 = Proxy
133+
134+proxyTagged :: Proxy a -> Proxy (Tagged () a)
135+proxyTagged _ = Proxy
136+
137+-------------------------------------------------------------------------------
138+-- Main
139+-------------------------------------------------------------------------------
140+
141+benchDecodeHM
142+ :: String
143+ -> LBS.ByteString
144+ -> Benchmark
145+benchDecodeHM name val = bgroup name
146+ [ bench "Text" $ nf (decodeHM proxyText) val
147+ , bench "Identity" $ nf (decodeHM proxyT1) val
148+ , bench "Coerce" $ nf (decodeHM proxyT2) val
149+ , bench "Parser" $ nf (decodeHM proxyT3) val
150+ , bench "Tagged Text" $ nf (decodeHM $ proxyTagged proxyText) val
151+ , bench "Tagged Identity" $ nf (decodeHM $ proxyTagged proxyT1) val
152+ , bench "Tagged Coerce" $ nf (decodeHM $ proxyTagged proxyT2) val
153+ , bench "Tagged Parser" $ nf (decodeHM $ proxyTagged proxyT3) val
154+ ]
155+
156+benchDecodeMap
157+ :: String
158+ -> LBS.ByteString
159+ -> Benchmark
160+benchDecodeMap name val = bgroup name
161+ [ bench "Text" $ nf (decodeMap proxyText) val
162+ , bench "Identity" $ nf (decodeMap proxyT1) val
163+ , bench "Coerce" $ nf (decodeMap proxyT2) val
164+ , bench "Parser" $ nf (decodeMap proxyT3) val
165+ ]
166+
167+benchEncodeHM
168+ :: String
169+ -> HM.HashMap T.Text T.Text
170+ -> Benchmark
171+benchEncodeHM name val = bgroup name
172+ [ bench "Text" $ nf encode val
173+ ]
174+
175+benchEncodeMap
176+ :: String
177+ -> HM.HashMap T.Text T.Text
178+ -> Benchmark
179+benchEncodeMap name val = bgroup name
180+ [ bench "Text" $ nf encode val'
181+ ]
182+ where
183+ val' :: M.Map T.Text T.Text
184+ val' = M.fromList . HM.toList $ val
185+
186+main :: IO ()
187+main = defaultMain
188+ [ bgroup "decode"
189+ [ bgroup "HashMap"
190+ [ benchDecodeHM "10" encodedValue10
191+ , benchDecodeHM "100" encodedValue100
192+ , benchDecodeHM "1000" encodedValue1000
193+ , benchDecodeHM "10000" encodedValue10000
194+ ]
195+ , bgroup "Map"
196+ [ benchDecodeMap "10" encodedValue10
197+ , benchDecodeMap "100" encodedValue100
198+ , benchDecodeMap "1000" encodedValue1000
199+ , benchDecodeMap "10000" encodedValue10000
200+ ]
201+ ]
202+ , bgroup "encode"
203+ [ bgroup "HashMap"
204+ [ benchEncodeHM "100" value100
205+ , benchEncodeHM "1000" value1000
206+ , benchEncodeHM "10000" value10000
207+ ]
208+ , bgroup "Map"
209+ [ benchEncodeMap "100" value100
210+ , benchEncodeMap "1000" value1000
211+ , benchEncodeMap "10000" value10000
212+ ]
213+ ]
214+ ]
benchmarks/AesonParse.hsnew file+38
@@ -0,0 +1,38 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE OverloadedStrings #-}
4+
5+module Main (main) where
6+
7+import Prelude.Compat
8+
9+import Data.Aeson
10+import Control.Monad
11+import Data.Attoparsec.ByteString (IResult(..), parseWith)
12+import Data.Time.Clock
13+import System.Environment (getArgs)
14+import System.IO
15+import qualified Data.ByteString as B
16+
17+main :: IO ()
18+main = do
19+ (bs:cnt:args) <- getArgs
20+ let count = read cnt :: Int
21+ blkSize = read bs
22+ forM_ args $ \arg -> withFile arg ReadMode $ \h -> do
23+ putStrLn $ arg ++ ":"
24+ start <- getCurrentTime
25+ let loop !good !bad
26+ | good+bad >= count = return (good, bad)
27+ | otherwise = do
28+ hSeek h AbsoluteSeek 0
29+ let refill = B.hGet h blkSize
30+ result <- parseWith refill json =<< refill
31+ case result of
32+ Done _ _ -> loop (good+1) bad
33+ _ -> loop good (bad+1)
34+ (good, _) <- loop 0 0
35+ delta <- flip diffUTCTime start `fmap` getCurrentTime
36+ putStrLn $ " " ++ show good ++ " good, " ++ show delta
37+ let rate = fromIntegral count / realToFrac delta :: Double
38+ putStrLn $ " " ++ show (round rate :: Int) ++ " per second"
benchmarks/AesonTuples.hsnew file+47
@@ -0,0 +1,47 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+module Main (main) where
4+
5+import Prelude.Compat
6+
7+import Control.DeepSeq (deepseq)
8+import Criterion.Main
9+import Data.Aeson
10+
11+--------------------------------------------------------------------------------
12+
13+type FJ a = Value -> Result a
14+
15+type T2 = (Int, Int)
16+type T3 = (Int, Int, Int)
17+type T4 = (Int, Int, Int, Int)
18+
19+t2 :: T2
20+t2 = (1, 2)
21+
22+t3 :: T3
23+t3 = (1, 2, 3)
24+
25+t4 :: T4
26+t4 = (1, 2, 3, 4)
27+
28+main :: IO ()
29+main = let v2 = toJSON t2
30+ v3 = toJSON t3
31+ v4 = toJSON t4
32+ in t2 `deepseq` t3 `deepseq` t4 `deepseq`
33+ v2 `deepseq` v3 `deepseq` v4 `deepseq`
34+ defaultMain
35+ [ bgroup "t2"
36+ [ bench "toJSON" (nf toJSON t2)
37+ , bench "fromJSON" (nf (fromJSON :: FJ T2) v2)
38+ ]
39+ , bgroup "t3"
40+ [ bench "toJSON" (nf toJSON t3)
41+ , bench "fromJSON" (nf (fromJSON :: FJ T3) v3)
42+ ]
43+ , bgroup "t4"
44+ [ bench "toJSON" (nf toJSON t4)
45+ , bench "fromJSON" (nf (fromJSON :: FJ T4) v4)
46+ ]
47+ ]
benchmarks/Auto/G/BigProduct.hsnew file+33
@@ -0,0 +1,33 @@
1+{-# LANGUAGE DeriveGeneric #-}
2+
3+module Auto.G.BigProduct where
4+
5+import Control.DeepSeq
6+import Data.Aeson
7+import GHC.Generics (Generic)
8+import Options
9+
10+data BigProduct = BigProduct
11+ !Int !Int !Int !Int !Int
12+ !Int !Int !Int !Int !Int
13+ !Int !Int !Int !Int !Int
14+ !Int !Int !Int !Int !Int
15+ !Int !Int !Int !Int !Int
16+ deriving (Show, Eq, Generic)
17+
18+instance NFData BigProduct where
19+ rnf a = a `seq` ()
20+
21+instance ToJSON BigProduct where
22+ toJSON = genericToJSON opts
23+ toEncoding = genericToEncoding opts
24+
25+instance FromJSON BigProduct where
26+ parseJSON = genericParseJSON opts
27+
28+bigProduct :: BigProduct
29+bigProduct = BigProduct 1 2 3 4 5
30+ 6 7 8 9 10
31+ 11 12 13 14 15
32+ 16 17 18 19 20
33+ 21 22 23 24 25
benchmarks/Auto/G/BigRecord.hsnew file+33
@@ -0,0 +1,33 @@
1+{-# LANGUAGE DeriveGeneric #-}
2+
3+module Auto.G.BigRecord where
4+
5+import Control.DeepSeq
6+import Data.Aeson
7+import GHC.Generics (Generic)
8+import Options
9+
10+data BigRecord = BigRecord
11+ { field01 :: !Int, field02 :: !Int, field03 :: !Int, field04 :: !Int, field05 :: !Int
12+ , field06 :: !Int, field07 :: !Int, field08 :: !Int, field09 :: !Int, field10 :: !Int
13+ , field11 :: !Int, field12 :: !Int, field13 :: !Int, field14 :: !Int, field15 :: !Int
14+ , field16 :: !Int, field17 :: !Int, field18 :: !Int, field19 :: !Int, field20 :: !Int
15+ , field21 :: !Int, field22 :: !Int, field23 :: !Int, field24 :: !Int, field25 :: !Int
16+ } deriving (Show, Eq, Generic)
17+
18+instance NFData BigRecord where
19+ rnf a = a `seq` ()
20+
21+instance ToJSON BigRecord where
22+ toJSON = genericToJSON opts
23+ toEncoding = genericToEncoding opts
24+
25+instance FromJSON BigRecord where
26+ parseJSON = genericParseJSON opts
27+
28+bigRecord :: BigRecord
29+bigRecord = BigRecord 1 2 3 4 5
30+ 6 7 8 9 10
31+ 11 12 13 14 15
32+ 16 17 18 19 20
33+ 21 22 23 24 25
benchmarks/Auto/G/BigSum.hsnew file+28
@@ -0,0 +1,28 @@
1+{-# LANGUAGE DeriveGeneric #-}
2+
3+module Auto.G.BigSum where
4+
5+import Control.DeepSeq
6+import Data.Aeson
7+import GHC.Generics (Generic)
8+import Options
9+
10+data BigSum = F01 | F02 | F03 | F04 | F05
11+ | F06 | F07 | F08 | F09 | F10
12+ | F11 | F12 | F13 | F14 | F15
13+ | F16 | F17 | F18 | F19 | F20
14+ | F21 | F22 | F23 | F24 | F25
15+ deriving (Show, Eq, Generic)
16+
17+instance NFData BigSum where
18+ rnf a = a `seq` ()
19+
20+instance ToJSON BigSum where
21+ toJSON = genericToJSON opts
22+ toEncoding = genericToEncoding opts
23+
24+instance FromJSON BigSum where
25+ parseJSON = genericParseJSON opts
26+
27+bigSum :: BigSum
28+bigSum = F25
benchmarks/Auto/G/D.hsnew file+44
@@ -0,0 +1,44 @@
1+{-# LANGUAGE DeriveGeneric #-}
2+
3+module Auto.G.D where
4+
5+import Control.DeepSeq
6+import Data.Aeson
7+import GHC.Generics (Generic)
8+import Options
9+
10+data D a = Nullary
11+ | Unary Int
12+ | Product String Char a
13+ | Record { testOne :: Double
14+ , testTwo :: Bool
15+ , testThree :: D a
16+ }
17+ deriving (Show, Eq, Generic)
18+
19+instance NFData a => NFData (D a) where
20+ rnf Nullary = ()
21+ rnf (Unary n) = rnf n
22+ rnf (Product s c x) = s `deepseq` c `deepseq` rnf x
23+ rnf (Record a b y) = a `deepseq` b `deepseq` rnf y
24+
25+instance ToJSON a => ToJSON (D a) where
26+ toJSON = genericToJSON opts
27+ toEncoding = genericToEncoding opts
28+
29+instance FromJSON a => FromJSON (D a) where
30+ parseJSON = genericParseJSON opts
31+
32+type T = D (D (D ()))
33+
34+d :: T
35+d = Record
36+ { testOne = 1234.56789
37+ , testTwo = True
38+ , testThree = Product "Hello World!" 'a'
39+ Record
40+ { testOne = 9876.54321
41+ , testTwo = False
42+ , testThree = Product "Yeehaa!!!" '\n' Nullary
43+ }
44+ }
benchmarks/Auto/T/BigProduct.hsnew file+27
@@ -0,0 +1,27 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+
3+module Auto.T.BigProduct where
4+
5+import Control.DeepSeq
6+import Data.Aeson.TH
7+import Options
8+
9+data BigProduct = BigProduct
10+ !Int !Int !Int !Int !Int
11+ !Int !Int !Int !Int !Int
12+ !Int !Int !Int !Int !Int
13+ !Int !Int !Int !Int !Int
14+ !Int !Int !Int !Int !Int
15+ deriving (Show, Eq)
16+
17+instance NFData BigProduct where
18+ rnf a = a `seq` ()
19+
20+deriveJSON opts ''BigProduct
21+
22+bigProduct :: BigProduct
23+bigProduct = BigProduct 1 2 3 4 5
24+ 6 7 8 9 10
25+ 11 12 13 14 15
26+ 16 17 18 19 20
27+ 21 22 23 24 25
benchmarks/Auto/T/BigRecord.hsnew file+27
@@ -0,0 +1,27 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+
3+module Auto.T.BigRecord where
4+
5+import Control.DeepSeq
6+import Data.Aeson.TH
7+import Options
8+
9+data BigRecord = BigRecord
10+ { field01 :: !Int, field02 :: !Int, field03 :: !Int, field04 :: !Int, field05 :: !Int
11+ , field06 :: !Int, field07 :: !Int, field08 :: !Int, field09 :: !Int, field10 :: !Int
12+ , field11 :: !Int, field12 :: !Int, field13 :: !Int, field14 :: !Int, field15 :: !Int
13+ , field16 :: !Int, field17 :: !Int, field18 :: !Int, field19 :: !Int, field20 :: !Int
14+ , field21 :: !Int, field22 :: !Int, field23 :: !Int, field24 :: !Int, field25 :: !Int
15+ } deriving (Show, Eq)
16+
17+instance NFData BigRecord where
18+ rnf a = a `seq` ()
19+
20+deriveJSON opts ''BigRecord
21+
22+bigRecord :: BigRecord
23+bigRecord = BigRecord 1 2 3 4 5
24+ 6 7 8 9 10
25+ 11 12 13 14 15
26+ 16 17 18 19 20
27+ 21 22 23 24 25
benchmarks/Auto/T/BigSum.hsnew file+22
@@ -0,0 +1,22 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+
3+module Auto.T.BigSum where
4+
5+import Control.DeepSeq
6+import Data.Aeson.TH
7+import Options
8+
9+data BigSum = F01 | F02 | F03 | F04 | F05
10+ | F06 | F07 | F08 | F09 | F10
11+ | F11 | F12 | F13 | F14 | F15
12+ | F16 | F17 | F18 | F19 | F20
13+ | F21 | F22 | F23 | F24 | F25
14+ deriving (Show, Eq)
15+
16+instance NFData BigSum where
17+ rnf a = a `seq` ()
18+
19+deriveJSON opts ''BigSum
20+
21+bigSum :: BigSum
22+bigSum = F25
benchmarks/Auto/T/D.hsnew file+38
@@ -0,0 +1,38 @@
1+{-# LANGUAGE TemplateHaskell #-}
2+
3+module Auto.T.D where
4+
5+import Control.DeepSeq
6+import Data.Aeson.TH
7+import Options
8+
9+data D a = Nullary
10+ | Unary Int
11+ | Product String Char a
12+ | Record { testOne :: Double
13+ , testTwo :: Bool
14+ , testThree :: D a
15+ }
16+ deriving (Show, Eq)
17+
18+instance NFData a => NFData (D a) where
19+ rnf Nullary = ()
20+ rnf (Unary n) = rnf n
21+ rnf (Product s c x) = s `deepseq` c `deepseq` rnf x
22+ rnf (Record a b y) = a `deepseq` b `deepseq` rnf y
23+
24+deriveJSON opts ''D
25+
26+type T = D (D (D ()))
27+
28+d :: T
29+d = Record
30+ { testOne = 1234.56789
31+ , testTwo = True
32+ , testThree = Product "Hello World!" 'a'
33+ Record
34+ { testOne = 9876.54321
35+ , testTwo = False
36+ , testThree = Product "Yeehaa!!!" '\n' Nullary
37+ }
38+ }
benchmarks/AutoCompare.hsnew file+73
@@ -0,0 +1,73 @@
1+{-# LANGUAGE RankNTypes #-}
2+{-# LANGUAGE ScopedTypeVariables #-}
3+
4+module Main (main) where
5+
6+import Control.DeepSeq
7+import Control.Monad
8+import Criterion.Main
9+import Data.Aeson
10+
11+import qualified Auto.T.D as T
12+import qualified Auto.T.BigRecord as T
13+import qualified Auto.T.BigProduct as T
14+import qualified Auto.T.BigSum as T
15+import qualified Auto.G.D as G
16+import qualified Auto.G.BigRecord as G
17+import qualified Auto.G.BigProduct as G
18+import qualified Auto.G.BigSum as G
19+
20+--------------------------------------------------------------------------------
21+
22+runBench :: IO ()
23+runBench = defaultMain
24+ [ compareBench "D" T.d G.d
25+ , compareBench "BigRecord" T.bigRecord G.bigRecord
26+ , compareBench "BigProduct" T.bigProduct G.bigProduct
27+ , compareBench "BigSum" T.bigSum G.bigSum
28+ ]
29+
30+group :: String -> Benchmarkable -> Benchmarkable -> Benchmark
31+group n th gen = bgroup n [ bench "th" th
32+ , bench "generic" gen
33+ ]
34+
35+compareBench
36+ :: forall a b
37+ . (ToJSON a, FromJSON a, NFData a, ToJSON b, FromJSON b, NFData b)
38+ => String -> a -> b -> Benchmark
39+compareBench name a b = v `deepseq` bgroup name
40+ [ group "toJSON" (nf toJSON a)
41+ (nf toJSON b)
42+ , group "encode" (nf encode a)
43+ (nf encode b)
44+ , group "fromJSON" (nf (fromJSON :: Value -> Result a) v)
45+ (nf (fromJSON :: Value -> Result b) v)
46+ ] where
47+ v = toJSON a -- == toJSON b
48+
49+sanityCheck :: IO ()
50+sanityCheck = do
51+ check T.d
52+ check G.d
53+ check T.bigRecord
54+ check G.bigRecord
55+ check T.bigProduct
56+ check G.bigProduct
57+ check T.bigSum
58+ check G.bigSum
59+
60+check :: (Show a, Eq a, FromJSON a, ToJSON a)
61+ => a -> IO ()
62+check x = do
63+ unless (Success x == (fromJSON . toJSON) x) $ fail $ "toJSON: " ++ show x
64+ unless (Success x == (decode_ . encode) x) $ fail $ "encode: " ++ show x
65+ where
66+ decode_ s = case decode s of
67+ Just v -> fromJSON v
68+ Nothing -> fail ""
69+
70+main :: IO ()
71+main = do
72+ sanityCheck
73+ runBench
benchmarks/Compare.hsnew file+35
@@ -0,0 +1,35 @@
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE ScopedTypeVariables #-}
4+
5+module Main (main) where
6+
7+import Prelude.Compat
8+
9+import Compare.BufferBuilder ()
10+import Criterion.Main
11+import Data.BufferBuilder.Json
12+import Twitter
13+import Twitter.Manual ()
14+import Typed.Common
15+import qualified Data.Aeson as Aeson
16+import qualified Compare.JsonBench as JsonBench
17+
18+#ifdef MIN_VERSION_json_builder
19+import Data.Json.Builder
20+import Compare.JsonBuilder ()
21+#endif
22+
23+main :: IO ()
24+main =
25+ defaultMain [
26+ env (load "json-data/twitter100.json") $ \ ~(twtr :: Result) ->
27+ bgroup "twitter" [
28+ bench "aeson" $ nf Aeson.encode twtr
29+ , bench "buffer-builder" $ nf encodeJson twtr
30+#ifdef MIN_VERSION_json_builder
31+ , bench "json-builder" $ nf toJsonLBS twtr
32+#endif
33+ ]
34+ , JsonBench.benchmarks
35+ ]
benchmarks/Compare/BufferBuilder.hsnew file+64
@@ -0,0 +1,64 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+{-# LANGUAGE OverloadedStrings #-}
3+{-# LANGUAGE RecordWildCards #-}
4+
5+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
6+{-# OPTIONS_GHC -fno-warn-orphans #-}
7+
8+module Compare.BufferBuilder () where
9+
10+import Prelude.Compat hiding ((<>))
11+
12+import Data.BufferBuilder.Json
13+import Data.Int (Int64)
14+import Data.Monoid ((<>))
15+import Twitter
16+import qualified Data.BufferBuilder.Utf8 as UB
17+
18+instance (ToJson a, ToJson b) => ToJson (a,b) where
19+ toJson (a,b) = array [toJson a, toJson b]
20+
21+instance ToJson Int64 where
22+ toJson a = unsafeValueUtf8Builder $
23+ UB.appendDecimalSignedInt (fromIntegral a)
24+ {-# INLINE toJson #-}
25+
26+instance ToJson Metadata where
27+ toJson Metadata{..} = toJson $
28+ "result_type" .= result_type
29+
30+instance ToJson Geo where
31+ toJson Geo{..} = toJson $
32+ "type_" .= type_
33+ <> "coordinates" .= coordinates
34+
35+instance ToJson Story where
36+ toJson Story{..} = toJson $
37+ "from_user_id_str" .= from_user_id_str
38+ <> "profile_image_url" .= profile_image_url
39+ <> "created_at" .= created_at
40+ <> "from_user" .= from_user
41+ <> "id_str" .= id_str
42+ <> "metadata" .= metadata
43+ <> "to_user_id" .= to_user_id
44+ <> "text" .= text
45+ <> "id" .= id_
46+ <> "from_user_id" .= from_user_id
47+ <> "geo" .= geo
48+ <> "iso_language_code" .= iso_language_code
49+ <> "to_user_id_str" .= to_user_id_str
50+ <> "source" .= source
51+
52+instance ToJson Result where
53+ toJson Result{..} = toJson $
54+ "results" .= results
55+ <> "max_id" .= max_id
56+ <> "since_id" .= since_id
57+ <> "refresh_url" .= refresh_url
58+ <> "next_page" .= next_page
59+ <> "results_per_page" .= results_per_page
60+ <> "page" .= page
61+ <> "completed_in" .= completed_in
62+ <> "since_id_str" .= since_id_str
63+ <> "max_id_str" .= max_id_str
64+ <> "query" .= query
benchmarks/Compare/JsonBench.hsnew file+339
@@ -0,0 +1,339 @@
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE BangPatterns #-}
3+{-# LANGUAGE MagicHash #-}
4+{-# LANGUAGE NoImplicitPrelude #-}
5+{-# LANGUAGE OverloadedStrings #-}
6+{-# LANGUAGE RecordWildCards #-}
7+{-# LANGUAGE ScopedTypeVariables #-}
8+
9+-- Adapted from a buffer-builder benchmark:
10+--
11+-- https://github.com/chadaustin/buffer-builder/blob/master/test.json
12+
13+module Compare.JsonBench (benchmarks) where
14+
15+import Prelude.Compat hiding ((<>))
16+
17+import Control.DeepSeq (NFData(..))
18+import Criterion
19+import Data.Aeson ((.:))
20+import Data.Monoid ((<>))
21+import Data.Text (Text)
22+import Typed.Common (load)
23+import qualified Control.Monad.Fail as Fail
24+import qualified Data.Aeson as Aeson
25+import qualified Data.BufferBuilder.Json as Json
26+
27+#ifdef MIN_VERSION_json_builder
28+import qualified Data.Json.Builder as JB
29+#endif
30+
31+data EyeColor = Green | Blue | Brown
32+ deriving (Eq, Show)
33+data Gender = Male | Female
34+ deriving (Eq, Show)
35+data Fruit = Apple | Strawberry | Banana
36+ deriving (Eq, Show)
37+data Friend = Friend
38+ { fId :: !Int
39+ , fName :: !Text
40+ } deriving (Eq, Show)
41+
42+data User = User
43+ { uId :: !Text
44+ , uIndex :: !Int
45+ , uGuid :: !Text
46+ , uIsActive :: !Bool
47+ , uBalance :: !Text
48+ , uPicture :: !Text
49+ , uAge :: !Int
50+ , uEyeColor :: !EyeColor
51+ , uName :: !Text
52+ , uGender :: !Gender
53+ , uCompany :: !Text
54+ , uEmail :: !Text
55+ , uPhone :: !Text
56+ , uAddress :: !Text
57+ , uAbout :: !Text
58+ , uRegistered :: !Text -- UTCTime?
59+ , uLatitude :: !Double
60+ , uLongitude :: !Double
61+ , uTags :: ![Text]
62+ , uFriends :: ![Friend]
63+ , uGreeting :: !Text
64+ , uFavouriteFruit :: !Fruit
65+ } deriving (Eq, Show)
66+
67+instance NFData EyeColor where rnf !_ = ()
68+instance NFData Gender where rnf !_ = ()
69+instance NFData Fruit where rnf !_ = ()
70+
71+instance NFData Friend where
72+ rnf Friend {..} = rnf fId `seq` rnf fName
73+
74+instance NFData User where
75+ rnf User {..} = rnf uId `seq` rnf uIndex `seq` rnf uGuid `seq` rnf uIsActive `seq` rnf uBalance `seq` rnf uPicture `seq` rnf uAge `seq` rnf uEyeColor `seq` rnf uName `seq` rnf uGender `seq` rnf uCompany `seq` rnf uEmail `seq` rnf uPhone `seq` rnf uAddress `seq` rnf uAbout `seq` rnf uRegistered `seq` rnf uLatitude `seq` rnf uLongitude `seq` rnf uTags `seq` rnf uFriends `seq` rnf uGreeting `seq` rnf uFavouriteFruit
76+
77+eyeColorTable :: [(Text, EyeColor)]
78+eyeColorTable = [("brown", Brown), ("green", Green), ("blue", Blue)]
79+
80+genderTable :: [(Text, Gender)]
81+genderTable = [("male", Male), ("female", Female)]
82+
83+fruitTable :: [(Text, Fruit)]
84+fruitTable = [("apple", Apple), ("strawberry", Strawberry), ("banana", Banana)]
85+
86+enumFromJson :: Fail.MonadFail m => String -> [(Text, enum)] -> (json -> m Text) -> json -> m enum
87+enumFromJson enumName table extract v = do
88+ s <- extract v
89+ case lookup s table of
90+ Just r -> return r
91+ Nothing -> fail $ "Bad " ++ enumName ++ ": " ++ show s
92+
93+--- Aeson instances ---
94+
95+instance Aeson.FromJSON EyeColor where
96+ parseJSON = enumFromJson "EyeColor" eyeColorTable Aeson.parseJSON
97+
98+instance Aeson.FromJSON Gender where
99+ parseJSON = enumFromJson "Gender" genderTable Aeson.parseJSON
100+
101+instance Aeson.FromJSON Fruit where
102+ parseJSON = enumFromJson "Fruit" fruitTable Aeson.parseJSON
103+
104+instance Aeson.FromJSON Friend where
105+ parseJSON = Aeson.withObject "Friend" $ \o -> do
106+ fId <- o .: "id"
107+ fName <- o .: "name"
108+ return Friend {..}
109+
110+instance Aeson.FromJSON User where
111+ parseJSON = Aeson.withObject "User" $ \o -> do
112+ uId <- o .: "_id"
113+ uIndex <- o .: "index"
114+ uGuid <- o .: "guid"
115+ uIsActive <- o .: "isActive"
116+ uBalance <- o .: "balance"
117+ uPicture <- o .: "picture"
118+ uAge <- o .: "age"
119+ uEyeColor <- o .: "eyeColor"
120+ uName <- o .: "name"
121+ uGender <- o .: "gender"
122+ uCompany <- o .: "company"
123+ uEmail <- o .: "email"
124+ uPhone <- o .: "phone"
125+ uAddress <- o .: "address"
126+ uAbout <- o .: "about"
127+ uRegistered <- o .: "registered"
128+ uLatitude <- o .: "latitude"
129+ uLongitude <- o .: "longitude"
130+ uTags <- o .: "tags"
131+ uFriends <- o .: "friends"
132+ uGreeting <- o .: "greeting"
133+ uFavouriteFruit <- o .: "favoriteFruit"
134+ return User {..}
135+
136+instance Aeson.ToJSON EyeColor where
137+ toJSON ec = Aeson.toJSON $ case ec of
138+ Green -> "green" :: Text
139+ Blue -> "blue"
140+ Brown -> "brown"
141+
142+ toEncoding ec = Aeson.toEncoding $ case ec of
143+ Green -> "green" :: Text
144+ Blue -> "blue"
145+ Brown -> "brown"
146+
147+instance Aeson.ToJSON Gender where
148+ toJSON g = Aeson.toJSON $ case g of
149+ Male -> "male" :: Text
150+ Female -> "female"
151+
152+ toEncoding g = Aeson.toEncoding $ case g of
153+ Male -> "male" :: Text
154+ Female -> "female"
155+
156+instance Aeson.ToJSON Fruit where
157+ toJSON f = Aeson.toJSON $ case f of
158+ Apple -> "apple" :: Text
159+ Banana -> "banana"
160+ Strawberry -> "strawberry"
161+
162+ toEncoding f = Aeson.toEncoding $ case f of
163+ Apple -> "apple" :: Text
164+ Banana -> "banana"
165+ Strawberry -> "strawberry"
166+
167+instance Aeson.ToJSON Friend where
168+ toJSON Friend {..} = Aeson.object
169+ [ "id" Aeson..= fId
170+ , "name" Aeson..= fName
171+ ]
172+
173+ toEncoding Friend {..} = Aeson.pairs $
174+ "id" Aeson..= fId
175+ <> "name" Aeson..= fName
176+
177+instance Aeson.ToJSON User where
178+ toJSON User{..} = Aeson.object
179+ [ "_id" Aeson..= uId
180+ , "index" Aeson..= uIndex
181+ , "guid" Aeson..= uGuid
182+ , "isActive" Aeson..= uIsActive
183+ , "balance" Aeson..= uBalance
184+ , "picture" Aeson..= uPicture
185+ , "age" Aeson..= uAge
186+ , "eyeColor" Aeson..= uEyeColor
187+ , "name" Aeson..= uName
188+ , "gender" Aeson..= uGender
189+ , "company" Aeson..= uCompany
190+ , "email" Aeson..= uEmail
191+ , "phone" Aeson..= uPhone
192+ , "address" Aeson..= uAddress
193+ , "about" Aeson..= uAbout
194+ , "registered" Aeson..= uRegistered
195+ , "latitude" Aeson..= uLatitude
196+ , "longitude" Aeson..= uLongitude
197+ , "tags" Aeson..= uTags
198+ , "friends" Aeson..= uFriends
199+ , "greeting" Aeson..= uGreeting
200+ , "favoriteFruit" Aeson..= uFavouriteFruit
201+ ]
202+
203+ toEncoding User{..} = Aeson.pairs $
204+ "_id" Aeson..= uId
205+ <> "index" Aeson..= uIndex
206+ <> "guid" Aeson..= uGuid
207+ <> "isActive" Aeson..= uIsActive
208+ <> "balance" Aeson..= uBalance
209+ <> "picture" Aeson..= uPicture
210+ <> "age" Aeson..= uAge
211+ <> "eyeColor" Aeson..= uEyeColor
212+ <> "name" Aeson..= uName
213+ <> "gender" Aeson..= uGender
214+ <> "company" Aeson..= uCompany
215+ <> "email" Aeson..= uEmail
216+ <> "phone" Aeson..= uPhone
217+ <> "address" Aeson..= uAddress
218+ <> "about" Aeson..= uAbout
219+ <> "registered" Aeson..= uRegistered
220+ <> "latitude" Aeson..= uLatitude
221+ <> "longitude" Aeson..= uLongitude
222+ <> "tags" Aeson..= uTags
223+ <> "friends" Aeson..= uFriends
224+ <> "greeting" Aeson..= uGreeting
225+ <> "favoriteFruit" Aeson..= uFavouriteFruit
226+
227+--- BufferBuilder instances ---
228+
229+instance Json.ToJson EyeColor where
230+ toJson ec = Json.toJson $ case ec of
231+ Green -> "green" :: Text
232+ Blue -> "blue"
233+ Brown -> "brown"
234+
235+instance Json.ToJson Gender where
236+ toJson g = Json.toJson $ case g of
237+ Male -> "male" :: Text
238+ Female -> "female"
239+
240+instance Json.ToJson Fruit where
241+ toJson f = Json.toJson $ case f of
242+ Apple -> "apple" :: Text
243+ Strawberry -> "strawberry"
244+ Banana -> "banana"
245+
246+instance Json.ToJson Friend where
247+ toJson Friend{..} = Json.toJson $
248+ "_id" Json..= fId
249+ <> "name" Json..= fName
250+
251+instance Json.ToJson User where
252+ toJson User{..} = Json.toJson $
253+ "_id"# Json..=# uId
254+ <> "index"# Json..=# uIndex
255+ <> "guid"# Json..=# uGuid
256+ <> "isActive"# Json..=# uIsActive
257+ <> "balance"# Json..=# uBalance
258+ <> "picture"# Json..=# uPicture
259+ <> "age"# Json..=# uAge
260+ <> "eyeColor"# Json..=# uEyeColor
261+ <> "name"# Json..=# uName
262+ <> "gender"# Json..=# uGender
263+ <> "company"# Json..=# uCompany
264+ <> "email"# Json..=# uEmail
265+ <> "phone"# Json..=# uPhone
266+ <> "address"# Json..=# uAddress
267+ <> "about"# Json..=# uAbout
268+ <> "registered"# Json..=# uRegistered
269+ <> "latitude"# Json..=# uLatitude
270+ <> "longitude"# Json..=# uLongitude
271+ <> "tags"# Json..=# uTags
272+ <> "friends"# Json..=# uFriends
273+ <> "greeting"# Json..=# uGreeting
274+ <> "favoriteFruit"# Json..=# uFavouriteFruit
275+
276+#ifdef MIN_VERSION_json_builder
277+---- json-builder instances ----
278+
279+instance JB.Value EyeColor where
280+ toJson ec = JB.toJson $ case ec of
281+ Green -> "green" :: Text
282+ Blue -> "blue"
283+ Brown -> "brown"
284+
285+instance JB.Value Gender where
286+ toJson g = JB.toJson $ case g of
287+ Male -> "male" :: Text
288+ Female -> "female"
289+
290+instance JB.Value Fruit where
291+ toJson f = JB.toJson $ case f of
292+ Apple -> "apple" :: Text
293+ Strawberry -> "strawberry"
294+ Banana -> "banana"
295+
296+instance JB.Value Friend where
297+ toJson Friend{..} = JB.toJson $
298+ ("_id" :: Text) `JB.row` fId
299+ <> ("name" :: Text) `JB.row` fName
300+
301+instance JB.Value User where
302+ toJson User{..} =
303+ let t :: Text -> Text
304+ t = id
305+ in JB.toJson $
306+ t "_id" `JB.row` uId
307+ <> t "index" `JB.row` uIndex
308+ <> t "guid" `JB.row` uGuid
309+ <> t "isActive" `JB.row` uIsActive
310+ <> t "balance" `JB.row` uBalance
311+ <> t "picture" `JB.row` uPicture
312+ <> t "age" `JB.row` uAge
313+ <> t "eyeColor" `JB.row` uEyeColor
314+ <> t "name" `JB.row` uName
315+ <> t "gender" `JB.row` uGender
316+ <> t "company" `JB.row` uCompany
317+ <> t "email" `JB.row` uEmail
318+ <> t "phone" `JB.row` uPhone
319+ <> t "address" `JB.row` uAddress
320+ <> t "about" `JB.row` uAbout
321+ <> t "registered" `JB.row` uRegistered
322+ <> t "latitude" `JB.row` uLatitude
323+ <> t "longitude" `JB.row` uLongitude
324+ <> t "tags" `JB.row` uTags
325+ <> t "friends" `JB.row` uFriends
326+ <> t "greeting" `JB.row` uGreeting
327+ <> t "favoriteFruit" `JB.row` uFavouriteFruit
328+#endif
329+
330+benchmarks :: Benchmark
331+benchmarks = env (load "json-data/buffer-builder.json") $
332+ \ ~(parsedUserList :: [User]) ->
333+ bgroup "json-bench" [
334+ bench "aeson" $ nf Aeson.encode parsedUserList
335+ , bench "buffer-builder" $ nf Json.encodeJson parsedUserList
336+#ifdef MIN_VERSION_json_builder
337+ , bench "json-builder" $ nf JB.toJsonLBS parsedUserList
338+#endif
339+ ]
benchmarks/Compare/JsonBuilder.hsnew file+68
@@ -0,0 +1,68 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+{-# LANGUAGE RecordWildCards #-}
3+
4+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
5+{-# OPTIONS_GHC -fno-warn-orphans #-}
6+
7+module Compare.JsonBuilder () where
8+
9+import Prelude.Compat hiding ((<>))
10+
11+import Data.Json.Builder
12+import Data.Monoid ((<>))
13+import Twitter
14+
15+instance JsObject Metadata where
16+ toObject Metadata{..} = row "result_type" result_type
17+
18+instance Value Metadata where
19+ toJson = toJson . toObject
20+
21+instance JsObject Geo where
22+ toObject Geo{..} =
23+ row "type_" type_ <>
24+ row "coordinates" coordinates
25+
26+instance Value Geo where
27+ toJson = toJson . toObject
28+
29+instance Value a => Value (Maybe a) where
30+ toJson (Just a) = toJson a
31+ toJson Nothing = jsNull
32+
33+instance JsObject Story where
34+ toObject Story{..} =
35+ row "from_user_id_str" from_user_id_str <>
36+ row "profile_image_url" profile_image_url <>
37+ row "created_at" created_at <>
38+ row "from_user" from_user <>
39+ row "id_str" id_str <>
40+ row "metadata" metadata <>
41+ row "to_user_id" to_user_id <>
42+ row "text" text <>
43+ row "id" id_ <>
44+ row "from_user_id" from_user_id <>
45+ row "geo" geo <>
46+ row "iso_language_code" iso_language_code <>
47+ row "to_user_id_str" to_user_id_str <>
48+ row "source" source
49+
50+instance Value Story where
51+ toJson = toJson . toObject
52+
53+instance JsObject Result where
54+ toObject Result{..} =
55+ row "results" results <>
56+ row "max_id" max_id <>
57+ row "since_id" since_id <>
58+ row "refresh_url" refresh_url <>
59+ row "next_page" next_page <>
60+ row "results_per_page" results_per_page <>
61+ row "page" page <>
62+ row "completed_in" completed_in <>
63+ row "since_id_str" since_id_str <>
64+ row "max_id_str" max_id_str <>
65+ row "query" query
66+
67+instance Value Result where
68+ toJson = toJson . toObject
benchmarks/CompareWithJSON.hsnew file+102
@@ -0,0 +1,102 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+{-# OPTIONS_GHC -fno-warn-orphans #-}
4+
5+module Main (main) where
6+
7+import Prelude.Compat
8+
9+import Blaze.ByteString.Builder (toLazyByteString)
10+import Blaze.ByteString.Builder.Char.Utf8 (fromString)
11+import Control.DeepSeq (NFData(rnf))
12+import Criterion.Main
13+import Data.Maybe (fromMaybe)
14+import qualified Data.Aeson as A
15+import qualified Data.Aeson.Text as A
16+import qualified Data.Aeson.Parser.Internal as I
17+import qualified Data.ByteString as BS
18+import qualified Data.ByteString.Lazy as BL
19+import qualified Data.Text.Lazy as TL
20+import qualified Data.Text.Lazy.Builder as TLB
21+import qualified Data.Text.Lazy.Encoding as TLE
22+import qualified Text.JSON as J
23+
24+instance (NFData v) => NFData (J.JSObject v) where
25+ rnf o = rnf (J.fromJSObject o)
26+
27+instance NFData J.JSValue where
28+ rnf J.JSNull = ()
29+ rnf (J.JSBool b) = rnf b
30+ rnf (J.JSRational a b) = rnf a `seq` rnf b
31+ rnf (J.JSString s) = rnf (J.fromJSString s)
32+ rnf (J.JSArray lst) = rnf lst
33+ rnf (J.JSObject o) = rnf o
34+
35+decodeJ :: String -> J.JSValue
36+decodeJ s =
37+ case J.decodeStrict s of
38+ J.Ok v -> v
39+ J.Error _ -> error "fail to parse via JSON"
40+
41+decode :: BL.ByteString -> A.Value
42+decode s = fromMaybe (error "fail to parse via Aeson") $ A.decode s
43+
44+decode' :: BL.ByteString -> A.Value
45+decode' s = fromMaybe (error "fail to parse via Aeson") $ A.decode' s
46+
47+decodeS :: BS.ByteString -> A.Value
48+decodeS s = fromMaybe (error "fail to parse via Aeson") $ A.decodeStrict' s
49+
50+decodeIP :: BL.ByteString -> A.Value
51+decodeIP s = fromMaybe (error "fail to parse via Parser.decodeWith") $
52+ I.decodeWith I.jsonEOF A.fromJSON s
53+
54+encodeJ :: J.JSValue -> BL.ByteString
55+encodeJ = toLazyByteString . fromString . J.encode
56+
57+encodeToText :: A.Value -> TL.Text
58+encodeToText = TLB.toLazyText . A.encodeToTextBuilder . A.toJSON
59+
60+encodeViaText :: A.Value -> BL.ByteString
61+encodeViaText = TLE.encodeUtf8 . encodeToText
62+
63+main :: IO ()
64+main = do
65+ let enFile = "json-data/twitter100.json"
66+ jpFile = "json-data/jp100.json"
67+ enA <- BL.readFile enFile
68+ enS <- BS.readFile enFile
69+ enJ <- readFile enFile
70+ jpA <- BL.readFile jpFile
71+ jpS <- BS.readFile jpFile
72+ jpJ <- readFile jpFile
73+ defaultMain [
74+ bgroup "decode" [
75+ bgroup "en" [
76+ bench "aeson/lazy" $ nf decode enA
77+ , bench "aeson/strict" $ nf decode' enA
78+ , bench "aeson/stricter" $ nf decodeS enS
79+ , bench "aeson/parser" $ nf decodeIP enA
80+ , bench "json" $ nf decodeJ enJ
81+ ]
82+ , bgroup "jp" [
83+ bench "aeson" $ nf decode jpA
84+ , bench "aeson/stricter" $ nf decodeS jpS
85+ , bench "json" $ nf decodeJ jpJ
86+ ]
87+ ]
88+ , bgroup "encode" [
89+ bgroup "en" [
90+ bench "aeson-to-bytestring" $ nf A.encode (decode enA)
91+ , bench "aeson-via-text-to-bytestring" $ nf encodeViaText (decode enA)
92+ , bench "aeson-to-text" $ nf encodeToText (decode enA)
93+ , bench "json" $ nf encodeJ (decodeJ enJ)
94+ ]
95+ , bgroup "jp" [
96+ bench "aeson-to-bytestring" $ nf A.encode (decode jpA)
97+ , bench "aeson-via-text-to-bytestring" $ nf encodeViaText (decode jpA)
98+ , bench "aeson-to-text" $ nf encodeToText (decode jpA)
99+ , bench "json" $ nf encodeJ (decodeJ jpJ)
100+ ]
101+ ]
102+ ]
benchmarks/Dates.hsnew file+44
@@ -0,0 +1,44 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+module Main (main) where
4+
5+import Prelude.Compat
6+
7+import Criterion.Main
8+import Data.Aeson (decode, encode)
9+import Data.Time.Clock (UTCTime)
10+import Data.Time.LocalTime (ZonedTime)
11+import qualified Data.ByteString.Lazy as BL
12+
13+utcTime :: BL.ByteString -> Maybe [UTCTime]
14+utcTime = decode
15+
16+zTime :: BL.ByteString -> Maybe [ZonedTime]
17+zTime = decode
18+
19+main :: IO ()
20+main = do
21+ let file1 = BL.readFile "json-data/dates.json"
22+ let file2 = BL.readFile "json-data/dates-fract.json"
23+ defaultMain [
24+ bgroup "decode" [
25+ bgroup "UTCTime" [
26+ env file1 $ \bs -> bench "whole" $ nf utcTime bs
27+ , env file2 $ \bs -> bench "fractional" $ nf utcTime bs
28+ ]
29+ , bgroup "ZonedTime" [
30+ env file1 $ \bs -> bench "whole" $ nf zTime bs
31+ , env file2 $ \bs -> bench "fractional" $ nf zTime bs
32+ ]
33+ ]
34+ , bgroup "encode" [
35+ bgroup "UTCTime" [
36+ env (utcTime <$> file1) $ \ts -> bench "whole" $ nf encode ts
37+ , env (utcTime <$> file2) $ \ts -> bench "fractional" $ nf encode ts
38+ ]
39+ , bgroup "ZonedTime" [
40+ env (zTime <$> file1) $ \ts -> bench "whole" $ nf encode ts
41+ , env (zTime <$> file2) $ \ts -> bench "fractional" $ nf encode ts
42+ ]
43+ ]
44+ ]
benchmarks/Escape.hsnew file+32
@@ -0,0 +1,32 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+{-# LANGUAGE ScopedTypeVariables #-}
3+
4+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
5+
6+module Main (main) where
7+
8+import Prelude.Compat
9+
10+import Criterion.Main
11+import qualified Data.Aeson.Parser.UnescapeFFI as FFI
12+import qualified Data.Aeson.Parser.UnescapePure as Pure
13+
14+import qualified Data.ByteString.Char8 as BS
15+import System.Environment (getArgs, withArgs)
16+
17+main :: IO ()
18+main = do
19+ args_ <- getArgs
20+ let (args, p, n) =
21+ case args_ of
22+ "--pattern" : p : args_ -> k p args_
23+ _ -> k "\\\"" args_
24+ k p args_ =
25+ case args_ of
26+ "--repeat" : n : args_ -> (args_, p, read n)
27+ args_ -> (args_, p, 10000)
28+ input = BS.concat $ replicate n $ BS.pack p
29+ withArgs args $ defaultMain
30+ [ bench "ffi" $ whnf FFI.unescapeText input
31+ , bench "pure" $ whnf Pure.unescapeText input
32+ ]
benchmarks/Issue673.hsnew file+165
@@ -0,0 +1,165 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+{-# LANGUAGE OverloadedStrings #-}
3+
4+module Main (
5+ main,
6+ input17,
7+ input32,
8+ input64,
9+ input128,
10+ input256,
11+ input2048,
12+ input4096,
13+ input8192,
14+ input16384,
15+ ) where
16+
17+import Criterion.Main
18+import Prelude.Compat
19+import Data.Int (Int64)
20+import Data.Scientific (Scientific)
21+import Data.Semigroup ((<>))
22+import Data.Aeson.Parser (scientific)
23+
24+import qualified Data.Attoparsec.ByteString.Lazy as AttoL
25+import qualified Data.Attoparsec.ByteString.Char8 as Atto8
26+import qualified Data.Aeson as A
27+import qualified Data.ByteString as BS
28+import qualified Data.ByteString.Lazy as LBS
29+import qualified Data.ByteString.Lazy.Char8 as LBS8
30+
31+decodeInt :: LBS.ByteString -> Maybe Int
32+decodeInt = A.decode
33+
34+decodeString :: LBS.ByteString -> Maybe String
35+decodeString = A.decode
36+
37+decodeScientific :: LBS.ByteString -> Maybe Scientific
38+decodeScientific = A.decode
39+
40+decodeViaRead :: LBS.ByteString -> Integer
41+decodeViaRead = read . LBS8.unpack
42+
43+decodeAtto :: LBS.ByteString -> Maybe Scientific
44+decodeAtto
45+ = parseOnly (scientific <* AttoL.endOfInput)
46+ where
47+ parseOnly p lbs = case AttoL.parse p lbs of
48+ AttoL.Done _ r -> Just r
49+ AttoL.Fail {} -> Nothing
50+
51+decodeAtto8 :: LBS.ByteString -> Maybe Scientific
52+decodeAtto8
53+ = parseOnly (Atto8.scientific <* AttoL.endOfInput)
54+ where
55+ parseOnly p lbs = case AttoL.parse p lbs of
56+ AttoL.Done _ r -> Just r
57+ AttoL.Fail {} -> Nothing
58+
59+generate :: Int64 -> LBS.ByteString
60+generate n = LBS8.replicate n '1'
61+
62+input17 :: LBS.ByteString
63+input17 = generate 17
64+
65+input32 :: LBS.ByteString
66+input32 = generate 32
67+
68+input64 :: LBS.ByteString
69+input64 = generate 64
70+
71+input128 :: LBS.ByteString
72+input128 = generate 128
73+
74+input256 :: LBS.ByteString
75+input256 = generate 256
76+
77+input2048 :: LBS.ByteString
78+input2048 = generate 2048
79+
80+input4096 :: LBS.ByteString
81+input4096 = generate 4096
82+
83+input8192 :: LBS.ByteString
84+input8192 = generate 8192
85+
86+input16384 :: LBS.ByteString
87+input16384 = generate 16384
88+
89+
90+main :: IO ()
91+main = defaultMain
92+ -- works on 64bit
93+ [ benchPair "17" input17
94+ -- , benchPair "32" input32
95+ -- , benchPair "64" input64
96+ -- , benchPair "128" input128
97+ -- , benchPair "256" input256
98+ , benchPair "2048" input2048
99+ , benchPair "4096" input4096
100+ , benchPair "8192" input8192
101+ , benchPair "16384" input16384
102+ ]
103+ where
104+ benchPair name input = bgroup name
105+ [ bench "Int" $ whnf decodeInt input
106+ , bench "Simple" $ whnf bsToIntegerSimple (LBS.toStrict input)
107+ , bench "Optim" $ whnf bsToInteger (LBS.toStrict input)
108+ , bench "Read" $ whnf decodeViaRead input
109+ , bench "Scientific" $ whnf decodeScientific input
110+ , bench "parserA" $ whnf decodeAtto input
111+ , bench "parserS" $ whnf decodeAtto8 input
112+ , bench "String" $ whnf decodeString $ "\"" <> input <> "\""
113+ ]
114+
115+-------------------------------------------------------------------------------
116+-- better fromInteger
117+-------------------------------------------------------------------------------
118+
119+bsToInteger :: BS.ByteString -> Integer
120+bsToInteger bs
121+ | l > 40 = valInteger 10 l [ fromIntegral (w - 48) | w <- BS.unpack bs ]
122+ | otherwise = bsToIntegerSimple bs
123+ where
124+ l = BS.length bs
125+
126+bsToIntegerSimple :: BS.ByteString -> Integer
127+bsToIntegerSimple = BS.foldl' step 0 where
128+ step a b = a * 10 + fromIntegral (b - 48) -- 48 = '0'
129+
130+-- A sub-quadratic algorithm for Integer. Pairs of adjacent radix b
131+-- digits are combined into a single radix b^2 digit. This process is
132+-- repeated until we are left with a single digit. This algorithm
133+-- performs well only on large inputs, so we use the simple algorithm
134+-- for smaller inputs.
135+valInteger :: Integer -> Int -> [Integer] -> Integer
136+valInteger = go
137+ where
138+ go :: Integer -> Int -> [Integer] -> Integer
139+ go _ _ [] = 0
140+ go _ _ [d] = d
141+ go b l ds
142+ | l > 40 = b' `seq` go b' l' (combine b ds')
143+ | otherwise = valSimple b ds
144+ where
145+ -- ensure that we have an even number of digits
146+ -- before we call combine:
147+ ds' = if even l then ds else 0 : ds
148+ b' = b * b
149+ l' = (l + 1) `quot` 2
150+
151+ combine b (d1 : d2 : ds) = d `seq` (d : combine b ds)
152+ where
153+ d = d1 * b + d2
154+ combine _ [] = []
155+ combine _ [_] = errorWithoutStackTrace "this should not happen"
156+
157+-- The following algorithm is only linear for types whose Num operations
158+-- are in constant time.
159+valSimple :: Integer -> [Integer] -> Integer
160+valSimple base = go 0
161+ where
162+ go r [] = r
163+ go r (d : ds) = r' `seq` go r' ds
164+ where
165+ r' = r * base + fromIntegral d
benchmarks/JsonParse.hsnew file+41
@@ -0,0 +1,41 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE ScopedTypeVariables #-}
4+
5+{-# OPTIONS_GHC -fno-warn-orphans #-}
6+
7+module Main (main) where
8+
9+import Prelude.Compat
10+
11+import Control.DeepSeq
12+import Control.Monad
13+import Data.Time.Clock
14+import System.Environment (getArgs)
15+import Text.JSON
16+
17+instance NFData JSValue where
18+ rnf JSNull = ()
19+ rnf (JSBool b) = rnf b
20+ rnf (JSRational b r) = rnf b `seq` rnf r
21+ rnf (JSString s) = rnf (fromJSString s)
22+ rnf (JSArray vs) = rnf vs
23+ rnf (JSObject kvs) = rnf (fromJSObject kvs)
24+
25+main :: IO ()
26+main = do
27+ (cnt:args) <- getArgs
28+ let count = read cnt :: Int
29+ forM_ args $ \arg -> do
30+ putStrLn $ arg ++ ":"
31+ start <- getCurrentTime
32+ let loop !good !bad
33+ | good+bad >= count = return (good, bad)
34+ | otherwise = do
35+ s <- readFile arg
36+ case decodeStrict s of
37+ Ok (_::JSValue) -> loop (good+1) 0
38+ _ -> loop 0 (bad+1)
39+ (good, _) <- loop 0 0
40+ end <- getCurrentTime
41+ putStrLn $ " " ++ show good ++ " good, " ++ show (diffUTCTime end start)
benchmarks/Makefilenew file+15
@@ -0,0 +1,15 @@
1+ghc := ghc
2+ghcflags := -O
3+
4+binaries := AesonParse AesonEncode JsonParse AesonCompareAutoInstances
5+
6+all: $(binaries) $(binaries:%=%_p)
7+
8+%_p: %.hs
9+ $(ghc) $(ghcflags) -prof -auto-all -rtsopts --make -o $@ $^
10+
11+%: %.hs
12+ $(ghc) $(ghcflags) --make -rtsopts -o $@ $^
13+
14+clean:
15+ -rm -f *.o *.hi $(binaries) $(binaries:%=%_p)
benchmarks/Micro.hsnew file+22
@@ -0,0 +1,22 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+module Main (main) where
4+
5+import Prelude.Compat
6+
7+import Criterion.Main
8+
9+-- Encoding is a newtype wrapper around Builder
10+import Data.Aeson.Encoding (text, string, encodingToLazyByteString)
11+import qualified Data.Text as T
12+
13+main :: IO ()
14+main = do
15+ let txt = "append (append b (primBounded w1 x1)) (primBounded w2 x2)"
16+ defaultMain [
17+ bgroup "string" [
18+ bench "text" $ nf (encodingToLazyByteString . text) (T.pack txt)
19+ , bench "string direct" $ nf (encodingToLazyByteString . string) txt
20+ , bench "string via text" $ nf (encodingToLazyByteString . text . T.pack) txt
21+ ]
22+ ]
benchmarks/Options.hsnew file+8
@@ -0,0 +1,8 @@
1+module Options (opts) where
2+
3+import Data.Aeson.Types
4+
5+opts :: Options
6+opts = defaultOptions
7+ { sumEncoding = ObjectWithSingleField
8+ }
benchmarks/ReadFile.hsnew file+37
@@ -0,0 +1,37 @@
1+{-# LANGUAGE BangPatterns #-}
2+{-# LANGUAGE NoImplicitPrelude #-}
3+{-# LANGUAGE OverloadedStrings #-}
4+
5+module Main (main) where
6+
7+import Prelude.Compat
8+
9+import Control.DeepSeq
10+import Control.Exception
11+import Control.Monad
12+import Data.Aeson
13+import Data.Aeson.Parser
14+import Data.Attoparsec
15+import Data.Time.Clock
16+import System.Environment (getArgs)
17+import System.IO
18+import qualified Data.ByteString as B
19+
20+main = do
21+ (cnt:args) <- getArgs
22+ let count = read cnt :: Int
23+ forM_ args $ \arg -> withFile arg ReadMode $ \h -> do
24+ putStrLn $ arg ++ ":"
25+ start <- getCurrentTime
26+ let loop !n
27+ | n >= count = return ()
28+ | otherwise = do
29+ let go = do
30+ s <- B.hGet h 16384
31+ if B.null s
32+ then loop (n+1)
33+ else go
34+ go
35+ loop 0
36+ end <- getCurrentTime
37+ putStrLn $ " " ++ show (diffUTCTime end start)
benchmarks/Typed.hsnew file+20
@@ -0,0 +1,20 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+module Main (main) where
4+
5+import Prelude.Compat
6+
7+import Criterion.Main
8+import qualified Typed.Generic as Generic
9+import qualified Typed.Manual as Manual
10+import qualified Typed.TH as TH
11+
12+main :: IO ()
13+main = defaultMain [
14+ Generic.benchmarks
15+ , Manual.benchmarks
16+ , TH.benchmarks
17+ , Generic.decodeBenchmarks
18+ , Manual.decodeBenchmarks
19+ , TH.decodeBenchmarks
20+ ]
benchmarks/Typed/Common.hsnew file+22
@@ -0,0 +1,22 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
4+
5+module Typed.Common (load) where
6+
7+import Prelude.Compat
8+
9+import Data.ByteString.Lazy as L
10+import System.Exit
11+import System.IO
12+
13+import Data.Aeson hiding (Result)
14+
15+load :: FromJSON a => FilePath -> IO a
16+load fileName = do
17+ mv <- eitherDecode' <$> L.readFile fileName
18+ case mv of
19+ Right v -> return v
20+ Left err -> do
21+ hPutStrLn stderr $ fileName ++ ": JSON decode failed - " ++ err
22+ exitWith (ExitFailure 1)
benchmarks/Typed/Generic.hsnew file+44
@@ -0,0 +1,44 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+module Typed.Generic (benchmarks, decodeBenchmarks) where
4+
5+import Prelude.Compat
6+
7+import Data.Aeson hiding (Result)
8+import Criterion
9+import Data.ByteString.Lazy as L
10+import Twitter.Generic
11+import Typed.Common
12+
13+encodeDirect :: Result -> L.ByteString
14+encodeDirect = encode
15+
16+encodeViaValue :: Result -> L.ByteString
17+encodeViaValue = encode . toJSON
18+
19+benchmarks :: Benchmark
20+benchmarks =
21+ env ((,) <$> load "json-data/twitter100.json" <*> load "json-data/jp100.json") $ \ ~(twitter100, jp100) ->
22+ bgroup "encodeGeneric" [
23+ bgroup "direct" [
24+ bench "twitter100" $ nf encodeDirect twitter100
25+ , bench "jp100" $ nf encodeDirect jp100
26+ ]
27+ , bgroup "viaValue" [
28+ bench "twitter100" $ nf encodeViaValue twitter100
29+ , bench "jp100" $ nf encodeViaValue jp100
30+ ]
31+ ]
32+
33+decodeDirect :: L.ByteString -> Maybe Result
34+decodeDirect = decode
35+
36+decodeBenchmarks :: Benchmark
37+decodeBenchmarks =
38+ env ((,) <$> L.readFile "json-data/twitter100.json" <*> L.readFile "json-data/jp100.json") $ \ ~(twitter100, jp100) ->
39+ bgroup "decodeGeneric"
40+ [ bgroup "direct"
41+ [ bench "twitter100" $ nf decodeDirect twitter100
42+ , bench "jp100" $ nf decodeDirect jp100
43+ ]
44+ ]
benchmarks/Typed/Manual.hsnew file+44
@@ -0,0 +1,44 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+module Typed.Manual (benchmarks, decodeBenchmarks) where
4+
5+import Prelude.Compat
6+
7+import Data.Aeson hiding (Result)
8+import Criterion
9+import Data.ByteString.Lazy as L
10+import Twitter.Manual
11+import Typed.Common
12+
13+encodeDirect :: Result -> L.ByteString
14+encodeDirect = encode
15+
16+encodeViaValue :: Result -> L.ByteString
17+encodeViaValue = encode . toJSON
18+
19+benchmarks :: Benchmark
20+benchmarks =
21+ env ((,) <$> load "json-data/twitter100.json" <*> load "json-data/jp100.json") $ \ ~(twitter100, jp100) ->
22+ bgroup "encodeManual" [
23+ bgroup "direct" [
24+ bench "twitter100" $ nf encodeDirect twitter100
25+ , bench "jp100" $ nf encodeDirect jp100
26+ ]
27+ , bgroup "viaValue" [
28+ bench "twitter100" $ nf encodeViaValue twitter100
29+ , bench "jp100" $ nf encodeViaValue jp100
30+ ]
31+ ]
32+
33+decodeDirect :: L.ByteString -> Maybe Result
34+decodeDirect = decode
35+
36+decodeBenchmarks :: Benchmark
37+decodeBenchmarks =
38+ env ((,) <$> L.readFile "json-data/twitter100.json" <*> L.readFile "json-data/jp100.json") $ \ ~(twitter100, jp100) ->
39+ bgroup "decodeManual"
40+ [ bgroup "direct"
41+ [ bench "twitter100" $ nf decodeDirect twitter100
42+ , bench "jp100" $ nf decodeDirect jp100
43+ ]
44+ ]
benchmarks/Typed/TH.hsnew file+44
@@ -0,0 +1,44 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+
3+module Typed.TH (benchmarks, decodeBenchmarks) where
4+
5+import Prelude.Compat
6+
7+import Data.Aeson hiding (Result)
8+import Criterion
9+import Data.ByteString.Lazy as L
10+import Twitter.TH
11+import Typed.Common
12+
13+encodeDirect :: Result -> L.ByteString
14+encodeDirect = encode
15+
16+encodeViaValue :: Result -> L.ByteString
17+encodeViaValue = encode . toJSON
18+
19+benchmarks :: Benchmark
20+benchmarks =
21+ env ((,) <$> load "json-data/twitter100.json" <*> load "json-data/jp100.json") $ \ ~(twitter100, jp100) ->
22+ bgroup "encodeTH" [
23+ bgroup "direct" [
24+ bench "twitter100" $ nf encodeDirect twitter100
25+ , bench "jp100" $ nf encodeDirect jp100
26+ ]
27+ , bgroup "viaValue" [
28+ bench "twitter100" $ nf encodeViaValue twitter100
29+ , bench "jp100" $ nf encodeViaValue jp100
30+ ]
31+ ]
32+
33+decodeDirect :: L.ByteString -> Maybe Result
34+decodeDirect = decode
35+
36+decodeBenchmarks :: Benchmark
37+decodeBenchmarks =
38+ env ((,) <$> L.readFile "json-data/twitter100.json" <*> L.readFile "json-data/jp100.json") $ \ ~(twitter100, jp100) ->
39+ bgroup "decodeTH"
40+ [ bgroup "direct"
41+ [ bench "twitter100" $ nf decodeDirect twitter100
42+ , bench "jp100" $ nf decodeDirect jp100
43+ ]
44+ ]
benchmarks/aeson-benchmarks.cabalnew file+345
@@ -0,0 +1,345 @@
1+name: aeson-benchmarks
2+version: 0
3+build-type: Simple
4+cabal-version: >=1.10
5+
6+flag bytestring-builder
7+ description: Depend on the bytestring-builder package for backwards compatibility.
8+ default: False
9+ manual: False
10+
11+flag local-aeson
12+ description: Build the local version of aeson, to avoid rebuilding aeson's
13+ reverse dependencies for benchmarking (statistics, criterion).
14+ default: True
15+ manual: True
16+
17+library
18+ default-language: Haskell2010
19+
20+ if flag(bytestring-builder)
21+ build-depends: bytestring >= 0.9 && < 0.10.4,
22+ bytestring-builder >= 0.10.4 && < 1
23+ else
24+ build-depends: bytestring >= 0.10.4
25+
26+ if flag(local-aeson)
27+
28+ hs-source-dirs: .. ../ffi ../pure ../attoparsec-iso8601
29+ c-sources: ../cbits/unescape_string.c
30+ build-depends:
31+ attoparsec,
32+ base,
33+ base-compat,
34+ containers,
35+ deepseq,
36+ dlist,
37+ fail,
38+ ghc-prim,
39+ hashable,
40+ mtl,
41+ primitive,
42+ scientific,
43+ syb,
44+ tagged,
45+ template-haskell,
46+ text,
47+ th-abstraction,
48+ time-compat,
49+ time,
50+ transformers,
51+ unordered-containers,
52+ uuid-types,
53+ vector
54+
55+ if !impl(ghc >= 8.6)
56+ build-depends: contravariant
57+
58+ if !impl(ghc >= 8.0)
59+ -- `Data.Semigroup` is available in base only since GHC 8.0 / base 4.9
60+ build-depends: semigroups,
61+ transformers-compat
62+
63+ if !impl(ghc >= 7.10)
64+ -- `Numeric.Natural` is available in base only since GHC 7.10 / base 4.8
65+ build-depends: nats,
66+ void
67+
68+ include-dirs: ../include
69+
70+ ghc-options: -O2 -Wall
71+ cpp-options: -DGENERICS
72+
73+ exposed-modules:
74+ Data.Aeson
75+ Data.Aeson.Encoding
76+ Data.Aeson.Encoding.Builder
77+ Data.Aeson.Encoding.Internal
78+ Data.Aeson.Internal
79+ Data.Aeson.Internal.Functions
80+ Data.Aeson.Internal.Time
81+ Data.Aeson.Parser
82+ Data.Aeson.Parser.Internal
83+ Data.Aeson.Parser.Time
84+ Data.Aeson.Parser.Unescape
85+ Data.Aeson.Parser.UnescapeFFI
86+ Data.Aeson.Parser.UnescapePure
87+ Data.Aeson.TH
88+ Data.Aeson.Text
89+ Data.Aeson.Types
90+ Data.Aeson.Types.Class
91+ Data.Aeson.Types.FromJSON
92+ Data.Aeson.Types.Generic
93+ Data.Aeson.Types.Internal
94+ Data.Aeson.Types.ToJSON
95+ Data.Attoparsec.Time
96+ Data.Attoparsec.Time.Internal
97+
98+ else
99+
100+ build-depends: aeson
101+
102+ reexported-modules:
103+ Data.Aeson,
104+ Data.Aeson.Encoding,
105+ Data.Aeson.Parser.Internal,
106+ Data.Aeson.Text,
107+ Data.Aeson.TH,
108+ Data.Aeson.Types
109+
110+executable aeson-benchmark-auto-compare
111+ default-language: Haskell2010
112+ main-is: AutoCompare.hs
113+ hs-source-dirs: .
114+ ghc-options: -Wall -O2 -rtsopts
115+ other-modules:
116+ Auto.T.D
117+ Auto.T.BigRecord
118+ Auto.T.BigProduct
119+ Auto.T.BigSum
120+ Auto.G.D
121+ Auto.G.BigRecord
122+ Auto.G.BigProduct
123+ Auto.G.BigSum
124+ Options
125+ build-depends:
126+ aeson-benchmarks,
127+ base,
128+ criterion,
129+ deepseq,
130+ template-haskell
131+
132+executable aeson-benchmark-escape
133+ default-language: Haskell2010
134+ main-is: Escape.hs
135+ hs-source-dirs: ../examples .
136+ ghc-options: -Wall -O2 -rtsopts
137+ if flag(local-aeson)
138+ build-depends:
139+ aeson-benchmarks,
140+ base,
141+ base-compat,
142+ bytestring,
143+ criterion >= 1.0,
144+ deepseq,
145+ ghc-prim,
146+ text
147+ else
148+ -- Disabled because of inaccessible internals
149+ buildable: False
150+
151+executable aeson-benchmark-compare
152+ default-language: Haskell2010
153+ main-is: Compare.hs
154+ hs-source-dirs: ../examples .
155+ ghc-options: -Wall -O2 -rtsopts
156+ other-modules:
157+ Compare.BufferBuilder
158+ Compare.JsonBench
159+ Twitter
160+ Twitter.Manual
161+ Typed.Common
162+ build-depends:
163+ aeson-benchmarks,
164+ base,
165+ base-compat,
166+ buffer-builder,
167+ bytestring,
168+ criterion >= 1.0,
169+ deepseq,
170+ ghc-prim,
171+ text
172+
173+ if impl(ghc < 8.4)
174+ other-modules:
175+ Compare.JsonBuilder
176+ build-depends:
177+ json-builder
178+ if impl(ghc < 8.0)
179+ build-depends:
180+ semigroups
181+
182+executable aeson-benchmark-micro
183+ default-language: Haskell2010
184+ main-is: Micro.hs
185+ hs-source-dirs: ../examples .
186+ ghc-options: -Wall -O2 -rtsopts
187+ build-depends:
188+ aeson-benchmarks,
189+ base,
190+ base-compat,
191+ bytestring,
192+ criterion >= 1.0,
193+ deepseq,
194+ ghc-prim,
195+ text
196+
197+executable aeson-benchmark-typed
198+ default-language: Haskell2010
199+ main-is: Typed.hs
200+ hs-source-dirs: ../examples .
201+ ghc-options: -Wall -O2 -rtsopts
202+ other-modules:
203+ Twitter
204+ Twitter.Generic
205+ Twitter.Manual
206+ Twitter.Options
207+ Twitter.TH
208+ Typed.Common
209+ Typed.Generic
210+ Typed.Manual
211+ Typed.TH
212+ build-depends:
213+ aeson-benchmarks,
214+ base,
215+ base-compat,
216+ criterion >= 1.0,
217+ deepseq,
218+ ghc-prim,
219+ text,
220+ time
221+
222+ if flag(bytestring-builder)
223+ build-depends: bytestring >= 0.9 && < 0.10.4,
224+ bytestring-builder >= 0.10.4 && < 1
225+ else
226+ build-depends: bytestring >= 0.10.4
227+ if impl(ghc < 8.0)
228+ build-depends: semigroups
229+
230+executable aeson-benchmark-compare-with-json
231+ default-language: Haskell2010
232+ main-is: CompareWithJSON.hs
233+ ghc-options: -Wall -O2 -rtsopts
234+ build-depends:
235+ aeson-benchmarks,
236+ base,
237+ base-compat,
238+ blaze-builder,
239+ bytestring,
240+ criterion,
241+ deepseq,
242+ json,
243+ text
244+
245+executable aeson-benchmark-aeson-encode
246+ default-language: Haskell2010
247+ main-is: AesonEncode.hs
248+ ghc-options: -Wall -O2 -rtsopts
249+ build-depends:
250+ aeson-benchmarks,
251+ attoparsec,
252+ base,
253+ base-compat,
254+ bytestring,
255+ deepseq,
256+ time
257+
258+executable aeson-benchmark-aeson-parse
259+ default-language: Haskell2010
260+ main-is: AesonParse.hs
261+ ghc-options: -Wall -O2 -rtsopts
262+ build-depends:
263+ aeson-benchmarks,
264+ attoparsec,
265+ base,
266+ base-compat,
267+ bytestring,
268+ time
269+
270+executable aeson-benchmark-json-parse
271+ default-language: Haskell2010
272+ main-is: JsonParse.hs
273+ ghc-options: -Wall -O2 -rtsopts
274+ build-depends:
275+ base,
276+ base-compat,
277+ deepseq,
278+ json,
279+ time
280+
281+executable aeson-benchmark-dates
282+ default-language: Haskell2010
283+ main-is: Dates.hs
284+ ghc-options: -Wall -O2 -rtsopts
285+ build-depends:
286+ base,
287+ base-compat,
288+ bytestring,
289+ criterion,
290+ deepseq,
291+ aeson-benchmarks,
292+ text,
293+ time
294+ if impl(ghc >= 8.2)
295+ ghc-options: -Wno-simplifiable-class-constraints
296+
297+executable aeson-benchmark-map
298+ default-language: Haskell2010
299+ main-is: AesonMap.hs
300+ ghc-options: -Wall -O2 -rtsopts
301+ build-depends:
302+ aeson-benchmarks,
303+ base,
304+ base-compat,
305+ criterion >= 1.0,
306+ bytestring,
307+ containers,
308+ deepseq,
309+ hashable,
310+ tagged,
311+ text,
312+ unordered-containers
313+
314+executable aeson-benchmark-foldable
315+ default-language: Haskell2010
316+ main-is: AesonFoldable.hs
317+ ghc-options: -Wall -O2 -rtsopts
318+ build-depends:
319+ aeson-benchmarks,
320+ base,
321+ base-compat,
322+ criterion >= 1.0,
323+ bytestring,
324+ containers,
325+ deepseq,
326+ hashable,
327+ tagged,
328+ text,
329+ unordered-containers,
330+ vector
331+
332+executable aeson-issue-673
333+ default-language: Haskell2010
334+ main-is: Issue673.hs
335+ ghc-options: -Wall -O1 -rtsopts
336+ build-depends:
337+ aeson-benchmarks,
338+ attoparsec,
339+ base,
340+ bytestring,
341+ scientific,
342+ base-compat,
343+ criterion >= 1.0
344+ if impl(ghc < 8.0)
345+ build-depends: semigroups
benchmarks/bench-parse.pynew file+56
@@ -0,0 +1,56 @@
1+#!/usr/bin/env python
2+
3+import os, re, subprocess, sys
4+
5+result_re = re.compile(r'^\s*(\d+) good, (\d+\.\d+)s$', re.M)
6+
7+if len(sys.argv) > 1:
8+ parser_exe = sys.argv[1]
9+else:
10+ parser_exe = ('dist/build/aeson-benchmark-aeson-parse/' +
11+ 'aeson-benchmark-aeson-parse')
12+
13+def run(count, filename):
14+ print ' %s :: %s times' % (filename, count)
15+ p = subprocess.Popen([parser_exe, '65536', str(count), filename],
16+ stdout=subprocess.PIPE)
17+ output = p.stdout.read()
18+ p.wait()
19+ m = result_re.search(output)
20+ if not m:
21+ print >> sys.stderr, 'run gave confusing output!?'
22+ sys.stderr.write(output)
23+ return
24+ else:
25+ #sys.stdout.write(output)
26+ pass
27+ good, elapsed = m.groups()
28+ good, elapsed = int(good), float(elapsed)
29+ st = os.stat(filename)
30+ parses_per_second = good / elapsed
31+ mb_per_second = st.st_size * parses_per_second / 1048576
32+ print (' %.3f seconds, %d parses/sec, %.3f MB/sec' %
33+ (elapsed, parses_per_second, mb_per_second))
34+ return parses_per_second, mb_per_second, st.st_size, elapsed
35+
36+def runtimes(count, filename, times=1):
37+ for i in xrange(times):
38+ yield run(count, filename)
39+
40+info = '''
41+json-data/twitter1.json 60000
42+json-data/twitter10.json 13000
43+json-data/twitter20.json 7500
44+json-data/twitter50.json 2500
45+json-data/twitter100.json 1000
46+json-data/jp10.json 4000
47+json-data/jp50.json 1200
48+json-data/jp100.json 700
49+'''
50+
51+for i in info.strip().splitlines():
52+ name, count = i.split()
53+ best = sorted(runtimes(int(count), name, times=3), reverse=True)[0]
54+ parses_per_second, mb_per_second, size, elapsed = best
55+ print ('%.1f KB: %d msg\\/sec (%.1f MB\\/sec)' %
56+ (size / 1024.0, int(round(parses_per_second)), mb_per_second))
benchmarks/encode.pynew file+24
@@ -0,0 +1,24 @@
1+#!/usr/bin/env python
2+
3+import json, sys, time
4+
5+def isint(x):
6+ try:
7+ int(x)
8+ return True
9+ except:
10+ return False
11+
12+if len(sys.argv) > 2 and isint(sys.argv[1]) and isint(sys.argv[2]):
13+ sys.argv.pop(1)
14+
15+count = int(sys.argv[1])
16+
17+for n in sys.argv[2:]:
18+ print '%s:' % n
19+ obj = json.load(open(n))
20+ start = time.time()
21+ for i in xrange(count):
22+ json.dumps(obj)
23+ end = time.time()
24+ print ' %d good, %gs' % (count, end - start)
benchmarks/json-data/buffer-builder.jsonnew file+4322
@@ -0,0 +1,4322 @@
1+[
2+ {
3+ "_id": "54727a90e43524efe8abfdac",
4+ "index": 0,
5+ "guid": "aaa926e8-8359-4afe-adb0-dca0401de765",
6+ "isActive": true,
7+ "balance": "$1,114.73",
8+ "picture": "http://placehold.it/32x32",
9+ "age": 20,
10+ "eyeColor": "green",
11+ "name": "Dillon Valenzuela",
12+ "gender": "male",
13+ "company": "GEOFORM",
14+ "email": "dillonvalenzuela@geoform.com",
15+ "phone": "+1 (817) 536-3796",
16+ "address": "309 Desmond Court, Zarephath, Montana, 6156",
17+ "about": "Dolore laboris excepteur sunt velit velit nostrud non esse qui laboris nostrud Lorem. Amet anim occaecat et ipsum. Ad proident nostrud elit adipisicing anim labore consectetur ut amet elit. Tempor aliqua in ea eiusmod elit Lorem cillum est laboris. Nisi Lorem amet amet Lorem. Nostrud sunt incididunt magna nostrud amet enim. Laboris ad et fugiat dolor ad proident aliquip nisi do ea eiusmod enim proident.\r\n",
18+ "registered": "2014-08-17T07:29:03 +07:00",
19+ "latitude": -17.423462,
20+ "longitude": 121.069662,
21+ "tags": [
22+ "sunt",
23+ "ex",
24+ "irure",
25+ "cillum",
26+ "velit",
27+ "duis",
28+ "sit"
29+ ],
30+ "friends": [
31+ {
32+ "id": 0,
33+ "name": "Joyce Jordan"
34+ },
35+ {
36+ "id": 1,
37+ "name": "Ophelia Rosales"
38+ },
39+ {
40+ "id": 2,
41+ "name": "Florine Stark"
42+ }
43+ ],
44+ "greeting": "Hello, Dillon Valenzuela! You have 9 unread messages.",
45+ "favoriteFruit": "apple"
46+ },
47+ {
48+ "_id": "54727a90f520a07ff2498a69",
49+ "index": 1,
50+ "guid": "8f78cc18-a7ef-498b-9adf-60f008a48c02",
51+ "isActive": false,
52+ "balance": "$1,324.52",
53+ "picture": "http://placehold.it/32x32",
54+ "age": 33,
55+ "eyeColor": "blue",
56+ "name": "Donovan Weiss",
57+ "gender": "male",
58+ "company": "TELPOD",
59+ "email": "donovanweiss@telpod.com",
60+ "phone": "+1 (962) 417-2408",
61+ "address": "511 Grant Avenue, Westmoreland, Hawaii, 5092",
62+ "about": "Laborum excepteur exercitation sint veniam dolor. Dolor aliqua esse do aliqua adipisicing. Ea magna minim veniam tempor ipsum. Incididunt anim reprehenderit occaecat proident eiusmod anim Lorem aliquip dolore incididunt. Consequat occaecat qui minim commodo est velit ex.\r\n",
63+ "registered": "2014-09-30T23:49:41 +07:00",
64+ "latitude": -18.034963,
65+ "longitude": 70.821705,
66+ "tags": [
67+ "cupidatat",
68+ "excepteur",
69+ "id",
70+ "consectetur",
71+ "ea",
72+ "enim",
73+ "et"
74+ ],
75+ "friends": [
76+ {
77+ "id": 0,
78+ "name": "Cummings Irwin"
79+ },
80+ {
81+ "id": 1,
82+ "name": "Conley Lester"
83+ },
84+ {
85+ "id": 2,
86+ "name": "Katy Holt"
87+ }
88+ ],
89+ "greeting": "Hello, Donovan Weiss! You have 2 unread messages.",
90+ "favoriteFruit": "apple"
91+ },
92+ {
93+ "_id": "54727a90fbb3f49ea6d40dde",
94+ "index": 2,
95+ "guid": "69a4c6d7-6189-4a90-ae00-7b64ab1d5a2d",
96+ "isActive": false,
97+ "balance": "$2,739.87",
98+ "picture": "http://placehold.it/32x32",
99+ "age": 33,
100+ "eyeColor": "brown",
101+ "name": "Renee Calderon",
102+ "gender": "female",
103+ "company": "TALKOLA",
104+ "email": "reneecalderon@talkola.com",
105+ "phone": "+1 (910) 523-3382",
106+ "address": "323 Montauk Avenue, Greenwich, South Dakota, 8034",
107+ "about": "Reprehenderit deserunt et do proident Lorem Lorem dolor labore ullamco eu nulla laborum voluptate. Consectetur sint magna enim commodo dolore ullamco in. Nulla id proident esse veniam proident esse velit exercitation do. Qui nulla magna anim Lorem dolor culpa id. Nostrud cupidatat officia culpa sit irure voluptate exercitation voluptate nostrud elit. Duis occaecat velit fugiat exercitation anim aute laborum irure.\r\n",
108+ "registered": "2014-09-11T20:48:20 +07:00",
109+ "latitude": 15.654081,
110+ "longitude": 84.156609,
111+ "tags": [
112+ "dolor",
113+ "et",
114+ "in",
115+ "veniam",
116+ "non",
117+ "est",
118+ "enim"
119+ ],
120+ "friends": [
121+ {
122+ "id": 0,
123+ "name": "Gilda Murray"
124+ },
125+ {
126+ "id": 1,
127+ "name": "Marguerite West"
128+ },
129+ {
130+ "id": 2,
131+ "name": "Chrystal Rojas"
132+ }
133+ ],
134+ "greeting": "Hello, Renee Calderon! You have 1 unread messages.",
135+ "favoriteFruit": "strawberry"
136+ },
137+ {
138+ "_id": "54727a90c5ea2a48502a0640",
139+ "index": 3,
140+ "guid": "689a64d7-16b0-41dc-947d-035b40a29ed4",
141+ "isActive": false,
142+ "balance": "$3,805.39",
143+ "picture": "http://placehold.it/32x32",
144+ "age": 32,
145+ "eyeColor": "blue",
146+ "name": "Aguirre Garrett",
147+ "gender": "male",
148+ "company": "ZOSIS",
149+ "email": "aguirregarrett@zosis.com",
150+ "phone": "+1 (811) 471-3145",
151+ "address": "198 Baycliff Terrace, Clarence, District Of Columbia, 1528",
152+ "about": "Deserunt minim aliquip magna ut fugiat quis. Quis consequat culpa reprehenderit minim do eiusmod adipisicing nostrud aute. Lorem nostrud laborum quis dolore tempor tempor magna aute eu pariatur dolor est. Reprehenderit ex consectetur adipisicing Lorem nostrud fugiat aute non quis anim laborum aute proident amet. Sunt consectetur eu ut eu mollit ipsum.\r\n",
153+ "registered": "2014-02-14T04:27:27 +08:00",
154+ "latitude": 25.922024,
155+ "longitude": 107.428199,
156+ "tags": [
157+ "esse",
158+ "officia",
159+ "commodo",
160+ "esse",
161+ "cupidatat",
162+ "amet",
163+ "ad"
164+ ],
165+ "friends": [
166+ {
167+ "id": 0,
168+ "name": "Penelope Humphrey"
169+ },
170+ {
171+ "id": 1,
172+ "name": "Church Byers"
173+ },
174+ {
175+ "id": 2,
176+ "name": "Hazel Stafford"
177+ }
178+ ],
179+ "greeting": "Hello, Aguirre Garrett! You have 4 unread messages.",
180+ "favoriteFruit": "apple"
181+ },
182+ {
183+ "_id": "54727a9096bcf2d2f4b4aeff",
184+ "index": 4,
185+ "guid": "77392422-81ad-48c8-9cfc-37d142a814d5",
186+ "isActive": false,
187+ "balance": "$1,956.06",
188+ "picture": "http://placehold.it/32x32",
189+ "age": 26,
190+ "eyeColor": "brown",
191+ "name": "Griffin Mclaughlin",
192+ "gender": "male",
193+ "company": "COMTOUR",
194+ "email": "griffinmclaughlin@comtour.com",
195+ "phone": "+1 (950) 494-2956",
196+ "address": "549 Robert Street, Libertytown, North Carolina, 4377",
197+ "about": "Exercitation culpa ad id deserunt sit ullamco anim anim ad aute officia ut tempor. Ullamco dolor pariatur enim exercitation commodo consectetur fugiat velit nulla mollit pariatur occaecat. Amet voluptate qui labore mollit ipsum consequat. Esse pariatur proident ad pariatur aliquip labore quis voluptate quis ut culpa tempor. Reprehenderit sint id officia deserunt quis laboris. Velit ipsum dolore anim consectetur.\r\n",
198+ "registered": "2014-06-23T04:48:12 +07:00",
199+ "latitude": 8.808284,
200+ "longitude": 20.539814,
201+ "tags": [
202+ "consequat",
203+ "proident",
204+ "eiusmod",
205+ "dolore",
206+ "in",
207+ "laborum",
208+ "non"
209+ ],
210+ "friends": [
211+ {
212+ "id": 0,
213+ "name": "Hinton Santiago"
214+ },
215+ {
216+ "id": 1,
217+ "name": "Talley Dyer"
218+ },
219+ {
220+ "id": 2,
221+ "name": "Karen Logan"
222+ }
223+ ],
224+ "greeting": "Hello, Griffin Mclaughlin! You have 3 unread messages.",
225+ "favoriteFruit": "apple"
226+ },
227+ {
228+ "_id": "54727a9010e5c5ac55919561",
229+ "index": 5,
230+ "guid": "7e6fca4d-0329-47ab-b3e7-f4d6a6ee4dd2",
231+ "isActive": true,
232+ "balance": "$3,767.46",
233+ "picture": "http://placehold.it/32x32",
234+ "age": 36,
235+ "eyeColor": "brown",
236+ "name": "Rachel Mcclure",
237+ "gender": "female",
238+ "company": "ESCENTA",
239+ "email": "rachelmcclure@escenta.com",
240+ "phone": "+1 (857) 518-3454",
241+ "address": "901 Harwood Place, Rossmore, Tennessee, 3213",
242+ "about": "Nisi enim deserunt ut ex mollit fugiat. Magna nostrud culpa irure nulla mollit nisi. Sit ea incididunt amet culpa veniam voluptate Lorem sunt dolore amet. Exercitation tempor eiusmod exercitation officia dolor. Ut ea sint veniam cupidatat et. Sunt nostrud ad ipsum non elit elit esse ut dolor. Et officia et minim ipsum amet sint eu ut nostrud adipisicing cillum ullamco.\r\n",
243+ "registered": "2014-05-29T20:42:11 +07:00",
244+ "latitude": 8.132878,
245+ "longitude": -99.198755,
246+ "tags": [
247+ "est",
248+ "Lorem",
249+ "ullamco",
250+ "nisi",
251+ "reprehenderit",
252+ "nisi",
253+ "cupidatat"
254+ ],
255+ "friends": [
256+ {
257+ "id": 0,
258+ "name": "Michael Martin"
259+ },
260+ {
261+ "id": 1,
262+ "name": "Gayle Heath"
263+ },
264+ {
265+ "id": 2,
266+ "name": "Slater Bender"
267+ }
268+ ],
269+ "greeting": "Hello, Rachel Mcclure! You have 2 unread messages.",
270+ "favoriteFruit": "apple"
271+ },
272+ {
273+ "_id": "54727a90a76a5ba627b180c9",
274+ "index": 6,
275+ "guid": "fbf59485-142c-4eb6-a98e-8952cbb19942",
276+ "isActive": true,
277+ "balance": "$2,139.12",
278+ "picture": "http://placehold.it/32x32",
279+ "age": 28,
280+ "eyeColor": "blue",
281+ "name": "Megan Morrow",
282+ "gender": "female",
283+ "company": "PETICULAR",
284+ "email": "meganmorrow@peticular.com",
285+ "phone": "+1 (825) 572-2854",
286+ "address": "151 Jardine Place, Boonville, Idaho, 160",
287+ "about": "Magna reprehenderit aliqua quis eiusmod eu minim ut. Consectetur non veniam est et aliqua mollit. Aliqua eiusmod sit fugiat qui quis nisi mollit officia do. Enim quis quis occaecat ullamco anim reprehenderit exercitation. Ad id id laborum ipsum ipsum cillum ipsum occaecat irure. Commodo voluptate ullamco excepteur ea laboris adipisicing veniam cillum commodo velit anim. Occaecat magna laborum non ex anim consequat dolor cillum excepteur velit duis commodo officia veniam.\r\n",
288+ "registered": "2014-04-16T08:56:52 +07:00",
289+ "latitude": 57.771446,
290+ "longitude": -146.885322,
291+ "tags": [
292+ "veniam",
293+ "officia",
294+ "magna",
295+ "ipsum",
296+ "nulla",
297+ "ea",
298+ "mollit"
299+ ],
300+ "friends": [
301+ {
302+ "id": 0,
303+ "name": "Marina Wise"
304+ },
305+ {
306+ "id": 1,
307+ "name": "Ann Mercado"
308+ },
309+ {
310+ "id": 2,
311+ "name": "Glenn Duran"
312+ }
313+ ],
314+ "greeting": "Hello, Megan Morrow! You have 7 unread messages.",
315+ "favoriteFruit": "banana"
316+ },
317+ {
318+ "_id": "54727a90776f7328f4df750f",
319+ "index": 7,
320+ "guid": "ef99cc91-061c-49c5-9901-3ac22a75bc92",
321+ "isActive": true,
322+ "balance": "$3,161.69",
323+ "picture": "http://placehold.it/32x32",
324+ "age": 37,
325+ "eyeColor": "blue",
326+ "name": "Lawson Kirby",
327+ "gender": "male",
328+ "company": "PLASMOSIS",
329+ "email": "lawsonkirby@plasmosis.com",
330+ "phone": "+1 (853) 583-2577",
331+ "address": "122 Linden Boulevard, Edneyville, Palau, 6050",
332+ "about": "Elit ullamco reprehenderit eiusmod in duis minim exercitation incididunt reprehenderit eiusmod nulla. Cupidatat ea anim incididunt esse ea eu esse laboris velit. Culpa sunt exercitation officia amet voluptate enim duis ipsum ex anim quis nisi. Dolor officia irure do veniam do amet ullamco eu.\r\n",
333+ "registered": "2014-08-13T02:14:13 +07:00",
334+ "latitude": -16.166232,
335+ "longitude": 12.254111,
336+ "tags": [
337+ "et",
338+ "aliqua",
339+ "aute",
340+ "voluptate",
341+ "officia",
342+ "est",
343+ "quis"
344+ ],
345+ "friends": [
346+ {
347+ "id": 0,
348+ "name": "Marquita Hutchinson"
349+ },
350+ {
351+ "id": 1,
352+ "name": "Karla Conner"
353+ },
354+ {
355+ "id": 2,
356+ "name": "Mattie Page"
357+ }
358+ ],
359+ "greeting": "Hello, Lawson Kirby! You have 3 unread messages.",
360+ "favoriteFruit": "banana"
361+ },
362+ {
363+ "_id": "54727a90b8e9fff0ed297a59",
364+ "index": 8,
365+ "guid": "9bb8d813-704c-4714-929f-1321576a2701",
366+ "isActive": false,
367+ "balance": "$1,275.37",
368+ "picture": "http://placehold.it/32x32",
369+ "age": 23,
370+ "eyeColor": "brown",
371+ "name": "Pat Medina",
372+ "gender": "female",
373+ "company": "PLEXIA",
374+ "email": "patmedina@plexia.com",
375+ "phone": "+1 (933) 557-3028",
376+ "address": "623 Sunnyside Court, Edinburg, Minnesota, 2620",
377+ "about": "Est aliqua sint adipisicing labore magna sunt laboris non eu. Aute deserunt commodo Lorem amet sunt amet qui qui incididunt anim Lorem culpa. Ea exercitation officia dolor aute incididunt ea enim. Nulla aliqua ut ullamco sunt velit cillum esse minim incididunt ut mollit aute. Fugiat eiusmod anim laborum duis aliquip aute reprehenderit qui dolor officia amet labore id. Enim officia reprehenderit incididunt sit. Nisi ullamco nisi adipisicing esse eiusmod dolore veniam cupidatat consequat sunt.\r\n",
378+ "registered": "2014-10-22T20:29:14 +07:00",
379+ "latitude": -9.032987,
380+ "longitude": 71.98971,
381+ "tags": [
382+ "laborum",
383+ "dolore",
384+ "aliqua",
385+ "tempor",
386+ "eu",
387+ "elit",
388+ "voluptate"
389+ ],
390+ "friends": [
391+ {
392+ "id": 0,
393+ "name": "Elnora Moses"
394+ },
395+ {
396+ "id": 1,
397+ "name": "Alexandra Carter"
398+ },
399+ {
400+ "id": 2,
401+ "name": "Beth Pacheco"
402+ }
403+ ],
404+ "greeting": "Hello, Pat Medina! You have 5 unread messages.",
405+ "favoriteFruit": "apple"
406+ },
407+ {
408+ "_id": "54727a908c17a619571cfd39",
409+ "index": 9,
410+ "guid": "0a5de094-eadc-4120-8941-964f27fbc898",
411+ "isActive": true,
412+ "balance": "$1,939.34",
413+ "picture": "http://placehold.it/32x32",
414+ "age": 35,
415+ "eyeColor": "brown",
416+ "name": "Gibbs Butler",
417+ "gender": "male",
418+ "company": "OPTIQUE",
419+ "email": "gibbsbutler@optique.com",
420+ "phone": "+1 (956) 574-3434",
421+ "address": "552 Columbia Street, Richmond, Illinois, 903",
422+ "about": "Laboris eu ut magna exercitation non laboris sint. Mollit velit est exercitation enim exercitation reprehenderit culpa eiusmod laboris fugiat veniam adipisicing. Voluptate enim id do eu officia duis in incididunt. Esse do laboris pariatur cupidatat elit.\r\n",
423+ "registered": "2014-02-24T15:46:23 +08:00",
424+ "latitude": -68.874573,
425+ "longitude": -6.876165,
426+ "tags": [
427+ "excepteur",
428+ "deserunt",
429+ "ea",
430+ "labore",
431+ "aliqua",
432+ "deserunt",
433+ "labore"
434+ ],
435+ "friends": [
436+ {
437+ "id": 0,
438+ "name": "Chen Langley"
439+ },
440+ {
441+ "id": 1,
442+ "name": "Latonya Vaughan"
443+ },
444+ {
445+ "id": 2,
446+ "name": "Simone Sutton"
447+ }
448+ ],
449+ "greeting": "Hello, Gibbs Butler! You have 2 unread messages.",
450+ "favoriteFruit": "apple"
451+ },
452+ {
453+ "_id": "54727a9049447027a378812c",
454+ "index": 10,
455+ "guid": "406ae437-820d-4e0f-b8dc-1da0ddcc561c",
456+ "isActive": false,
457+ "balance": "$1,348.37",
458+ "picture": "http://placehold.it/32x32",
459+ "age": 39,
460+ "eyeColor": "brown",
461+ "name": "Bond Peck",
462+ "gender": "male",
463+ "company": "DANCERITY",
464+ "email": "bondpeck@dancerity.com",
465+ "phone": "+1 (918) 554-2856",
466+ "address": "361 Cortelyou Road, Hollins, Missouri, 131",
467+ "about": "Nisi ut ea ut deserunt. Consequat pariatur dolor consequat sunt. Ullamco aute proident excepteur fugiat id consequat eu nisi occaecat.\r\n",
468+ "registered": "2014-05-15T02:12:14 +07:00",
469+ "latitude": -79.266187,
470+ "longitude": 92.89454,
471+ "tags": [
472+ "ex",
473+ "est",
474+ "sit",
475+ "irure",
476+ "qui",
477+ "veniam",
478+ "exercitation"
479+ ],
480+ "friends": [
481+ {
482+ "id": 0,
483+ "name": "Nettie Pope"
484+ },
485+ {
486+ "id": 1,
487+ "name": "Alyssa Hensley"
488+ },
489+ {
490+ "id": 2,
491+ "name": "Puckett Kinney"
492+ }
493+ ],
494+ "greeting": "Hello, Bond Peck! You have 7 unread messages.",
495+ "favoriteFruit": "strawberry"
496+ },
497+ {
498+ "_id": "54727a9062a82eff9506c4d7",
499+ "index": 11,
500+ "guid": "b7400b79-2b71-46cd-9260-13e0767b437e",
501+ "isActive": true,
502+ "balance": "$1,757.66",
503+ "picture": "http://placehold.it/32x32",
504+ "age": 20,
505+ "eyeColor": "blue",
506+ "name": "Garrison Warner",
507+ "gender": "male",
508+ "company": "NAMEBOX",
509+ "email": "garrisonwarner@namebox.com",
510+ "phone": "+1 (874) 417-2183",
511+ "address": "927 Knapp Street, Shaft, Connecticut, 2188",
512+ "about": "Sint commodo ipsum commodo id magna labore in. Pariatur nostrud reprehenderit adipisicing amet enim ut quis laboris culpa exercitation deserunt cillum. Adipisicing excepteur sunt do labore anim exercitation non excepteur. Minim consectetur sit dolore occaecat et aliquip aliquip excepteur aliquip ut do eiusmod ea nulla. Nostrud sunt dolore ea sunt est enim occaecat culpa minim. Sit elit mollit mollit aliquip eu ex. Tempor nulla voluptate dolore ex.\r\n",
513+ "registered": "2014-06-18T03:58:19 +07:00",
514+ "latitude": -87.629414,
515+ "longitude": 96.653639,
516+ "tags": [
517+ "eu",
518+ "deserunt",
519+ "dolore",
520+ "nisi",
521+ "culpa",
522+ "ullamco",
523+ "ipsum"
524+ ],
525+ "friends": [
526+ {
527+ "id": 0,
528+ "name": "Gutierrez Sears"
529+ },
530+ {
531+ "id": 1,
532+ "name": "Holly Jacobson"
533+ },
534+ {
535+ "id": 2,
536+ "name": "Henry Delgado"
537+ }
538+ ],
539+ "greeting": "Hello, Garrison Warner! You have 4 unread messages.",
540+ "favoriteFruit": "strawberry"
541+ },
542+ {
543+ "_id": "54727a904638f48ca7f9e85e",
544+ "index": 12,
545+ "guid": "4cd59615-46b7-4733-a439-dc59c0ca0118",
546+ "isActive": true,
547+ "balance": "$3,897.06",
548+ "picture": "http://placehold.it/32x32",
549+ "age": 24,
550+ "eyeColor": "blue",
551+ "name": "Consuelo Bray",
552+ "gender": "female",
553+ "company": "COMTEST",
554+ "email": "consuelobray@comtest.com",
555+ "phone": "+1 (945) 432-2620",
556+ "address": "433 Clinton Street, Clarktown, Maine, 6916",
557+ "about": "Do occaecat consectetur tempor Lorem ullamco commodo exercitation veniam reprehenderit nulla officia. Nisi irure sunt cupidatat amet et excepteur quis et do. Et commodo nulla occaecat do sint quis mollit reprehenderit do laboris magna. Dolore ea sit aute esse consequat fugiat Lorem occaecat adipisicing adipisicing qui aute elit. Amet veniam anim ipsum aute officia. Fugiat nisi magna anim pariatur minim magna exercitation duis officia.\r\n",
558+ "registered": "2014-03-19T07:39:44 +07:00",
559+ "latitude": 7.760448,
560+ "longitude": -92.399314,
561+ "tags": [
562+ "irure",
563+ "veniam",
564+ "ex",
565+ "ullamco",
566+ "anim",
567+ "do",
568+ "enim"
569+ ],
570+ "friends": [
571+ {
572+ "id": 0,
573+ "name": "Ellen Bullock"
574+ },
575+ {
576+ "id": 1,
577+ "name": "Davis Vaughn"
578+ },
579+ {
580+ "id": 2,
581+ "name": "Robert Mendoza"
582+ }
583+ ],
584+ "greeting": "Hello, Consuelo Bray! You have 8 unread messages.",
585+ "favoriteFruit": "apple"
586+ },
587+ {
588+ "_id": "54727a90fd85a45d33d54cf7",
589+ "index": 13,
590+ "guid": "53868eb7-df5c-445d-ad62-6124db081b6c",
591+ "isActive": false,
592+ "balance": "$2,988.04",
593+ "picture": "http://placehold.it/32x32",
594+ "age": 21,
595+ "eyeColor": "green",
596+ "name": "Clark Skinner",
597+ "gender": "male",
598+ "company": "OVOLO",
599+ "email": "clarkskinner@ovolo.com",
600+ "phone": "+1 (834) 587-2391",
601+ "address": "967 Dewey Place, Gibsonia, Puerto Rico, 6398",
602+ "about": "Duis irure exercitation ullamco amet aliquip minim sit consequat officia laborum id ad. Lorem duis velit consequat non irure nulla elit elit velit dolor ullamco qui fugiat. Quis ad velit ea consectetur veniam Lorem incididunt quis magna eiusmod. Et nostrud irure tempor nostrud esse.\r\n",
603+ "registered": "2014-10-11T06:48:59 +07:00",
604+ "latitude": -62.633073,
605+ "longitude": -121.03338,
606+ "tags": [
607+ "ut",
608+ "deserunt",
609+ "adipisicing",
610+ "enim",
611+ "amet",
612+ "proident",
613+ "officia"
614+ ],
615+ "friends": [
616+ {
617+ "id": 0,
618+ "name": "Francine Petersen"
619+ },
620+ {
621+ "id": 1,
622+ "name": "Lena Robles"
623+ },
624+ {
625+ "id": 2,
626+ "name": "Mcintyre Gardner"
627+ }
628+ ],
629+ "greeting": "Hello, Clark Skinner! You have 6 unread messages.",
630+ "favoriteFruit": "strawberry"
631+ },
632+ {
633+ "_id": "54727a908789850c55818269",
634+ "index": 14,
635+ "guid": "84cc7d0b-0544-40f8-900a-825429b0ee87",
636+ "isActive": true,
637+ "balance": "$3,012.07",
638+ "picture": "http://placehold.it/32x32",
639+ "age": 32,
640+ "eyeColor": "blue",
641+ "name": "Katie Allen",
642+ "gender": "female",
643+ "company": "SYBIXTEX",
644+ "email": "katieallen@sybixtex.com",
645+ "phone": "+1 (959) 504-2563",
646+ "address": "543 Heath Place, Bartonsville, New Mexico, 4882",
647+ "about": "Nisi ullamco anim in culpa in non nostrud ex aliqua ex. Nisi occaecat exercitation sint ad magna Lorem amet anim pariatur quis. Dolore consequat quis dolor ea. Aliquip sunt ex cillum tempor fugiat laboris ipsum mollit aliqua reprehenderit nulla fugiat exercitation ad.\r\n",
648+ "registered": "2014-03-17T05:45:50 +07:00",
649+ "latitude": -79.18988,
650+ "longitude": -95.023826,
651+ "tags": [
652+ "commodo",
653+ "incididunt",
654+ "voluptate",
655+ "sit",
656+ "mollit",
657+ "veniam",
658+ "et"
659+ ],
660+ "friends": [
661+ {
662+ "id": 0,
663+ "name": "Hampton Jimenez"
664+ },
665+ {
666+ "id": 1,
667+ "name": "Lara Cline"
668+ },
669+ {
670+ "id": 2,
671+ "name": "Jennings Cantu"
672+ }
673+ ],
674+ "greeting": "Hello, Katie Allen! You have 3 unread messages.",
675+ "favoriteFruit": "banana"
676+ },
677+ {
678+ "_id": "54727a90787015f61850162f",
679+ "index": 15,
680+ "guid": "d848ac32-1d24-471a-ad7e-d272f52cb5fc",
681+ "isActive": true,
682+ "balance": "$1,416.33",
683+ "picture": "http://placehold.it/32x32",
684+ "age": 38,
685+ "eyeColor": "brown",
686+ "name": "Pratt Watson",
687+ "gender": "male",
688+ "company": "HARMONEY",
689+ "email": "prattwatson@harmoney.com",
690+ "phone": "+1 (905) 557-3197",
691+ "address": "867 Campus Road, Lindisfarne, Northern Mariana Islands, 8349",
692+ "about": "Nisi mollit eu reprehenderit qui ut eu cillum cupidatat do. Et ex qui minim proident. Quis aliquip aliquip exercitation exercitation dolor aute nostrud fugiat ea. Id ullamco occaecat reprehenderit mollit occaecat ea ipsum cupidatat ea consequat fugiat.\r\n",
693+ "registered": "2014-11-15T05:07:03 +08:00",
694+ "latitude": -66.117872,
695+ "longitude": 52.197654,
696+ "tags": [
697+ "ullamco",
698+ "sunt",
699+ "ea",
700+ "veniam",
701+ "elit",
702+ "sint",
703+ "id"
704+ ],
705+ "friends": [
706+ {
707+ "id": 0,
708+ "name": "Dale Ray"
709+ },
710+ {
711+ "id": 1,
712+ "name": "Beryl Hayes"
713+ },
714+ {
715+ "id": 2,
716+ "name": "Millie Good"
717+ }
718+ ],
719+ "greeting": "Hello, Pratt Watson! You have 2 unread messages.",
720+ "favoriteFruit": "banana"
721+ },
722+ {
723+ "_id": "54727a90c4106283f0c1eed9",
724+ "index": 16,
725+ "guid": "6839b0af-5c69-45e2-b83b-381ff05034e6",
726+ "isActive": false,
727+ "balance": "$2,720.67",
728+ "picture": "http://placehold.it/32x32",
729+ "age": 31,
730+ "eyeColor": "blue",
731+ "name": "Shari Mendez",
732+ "gender": "female",
733+ "company": "INDEXIA",
734+ "email": "sharimendez@indexia.com",
735+ "phone": "+1 (895) 589-3754",
736+ "address": "533 Conduit Boulevard, Forestburg, Mississippi, 6873",
737+ "about": "Ex excepteur elit id laborum veniam dolore duis ea eiusmod minim. Consequat reprehenderit magna elit tempor voluptate esse officia minim reprehenderit consequat fugiat qui eiusmod. Et Lorem nisi voluptate tempor nulla cillum reprehenderit pariatur elit dolore occaecat laboris sunt. Anim cupidatat do veniam pariatur nostrud anim eu aliqua veniam ad cillum quis.\r\n",
738+ "registered": "2014-05-04T10:15:37 +07:00",
739+ "latitude": 31.931465,
740+ "longitude": 155.732674,
741+ "tags": [
742+ "enim",
743+ "sint",
744+ "est",
745+ "aliqua",
746+ "elit",
747+ "laboris",
748+ "occaecat"
749+ ],
750+ "friends": [
751+ {
752+ "id": 0,
753+ "name": "Desiree Norris"
754+ },
755+ {
756+ "id": 1,
757+ "name": "Abigail Crosby"
758+ },
759+ {
760+ "id": 2,
761+ "name": "Anderson Alston"
762+ }
763+ ],
764+ "greeting": "Hello, Shari Mendez! You have 6 unread messages.",
765+ "favoriteFruit": "banana"
766+ },
767+ {
768+ "_id": "54727a90474ecbf0a9c34382",
769+ "index": 17,
770+ "guid": "079bb238-0556-4ede-8243-2eaadabb3050",
771+ "isActive": false,
772+ "balance": "$2,629.01",
773+ "picture": "http://placehold.it/32x32",
774+ "age": 26,
775+ "eyeColor": "green",
776+ "name": "Hancock Rowland",
777+ "gender": "male",
778+ "company": "SOFTMICRO",
779+ "email": "hancockrowland@softmicro.com",
780+ "phone": "+1 (983) 565-2302",
781+ "address": "168 Dooley Street, Driftwood, North Dakota, 3607",
782+ "about": "Eu voluptate velit incididunt ipsum amet veniam. Lorem aliquip adipisicing incididunt laborum aliqua elit consectetur aute velit voluptate ea. Mollit irure duis consequat veniam sint nostrud est dolore sunt anim laboris fugiat. Dolor officia elit esse elit dolore. Minim non est duis culpa ullamco veniam excepteur. Veniam ullamco amet ullamco esse voluptate laboris velit.\r\n",
783+ "registered": "2014-09-06T04:32:40 +07:00",
784+ "latitude": -68.853851,
785+ "longitude": 135.592762,
786+ "tags": [
787+ "nulla",
788+ "ut",
789+ "magna",
790+ "adipisicing",
791+ "officia",
792+ "nulla",
793+ "cillum"
794+ ],
795+ "friends": [
796+ {
797+ "id": 0,
798+ "name": "Shannon Burch"
799+ },
800+ {
801+ "id": 1,
802+ "name": "Marisol Nixon"
803+ },
804+ {
805+ "id": 2,
806+ "name": "Poole Wolfe"
807+ }
808+ ],
809+ "greeting": "Hello, Hancock Rowland! You have 4 unread messages.",
810+ "favoriteFruit": "apple"
811+ },
812+ {
813+ "_id": "54727a90cf708eccc9032fd0",
814+ "index": 18,
815+ "guid": "8930775e-9271-400e-b662-77ee520b3369",
816+ "isActive": false,
817+ "balance": "$1,026.68",
818+ "picture": "http://placehold.it/32x32",
819+ "age": 33,
820+ "eyeColor": "blue",
821+ "name": "Luna Rice",
822+ "gender": "male",
823+ "company": "GEEKULAR",
824+ "email": "lunarice@geekular.com",
825+ "phone": "+1 (840) 541-2996",
826+ "address": "417 Varick Avenue, Martell, Vermont, 2749",
827+ "about": "Aliqua enim ullamco do eiusmod. Ipsum incididunt minim esse veniam nisi velit. Ipsum reprehenderit velit eiusmod nisi magna dolore consectetur reprehenderit magna culpa. Commodo excepteur labore proident adipisicing in velit sit occaecat reprehenderit id.\r\n",
828+ "registered": "2014-10-15T05:13:55 +07:00",
829+ "latitude": -57.335675,
830+ "longitude": -173.387514,
831+ "tags": [
832+ "fugiat",
833+ "enim",
834+ "exercitation",
835+ "aliquip",
836+ "Lorem",
837+ "laboris",
838+ "deserunt"
839+ ],
840+ "friends": [
841+ {
842+ "id": 0,
843+ "name": "Mclaughlin Schmidt"
844+ },
845+ {
846+ "id": 1,
847+ "name": "Munoz Key"
848+ },
849+ {
850+ "id": 2,
851+ "name": "Candace Stephenson"
852+ }
853+ ],
854+ "greeting": "Hello, Luna Rice! You have 2 unread messages.",
855+ "favoriteFruit": "strawberry"
856+ },
857+ {
858+ "_id": "54727a90a0fd17c9e4f5d33f",
859+ "index": 19,
860+ "guid": "570f0e20-085f-4c40-9e84-b555cc4e79c8",
861+ "isActive": true,
862+ "balance": "$3,333.73",
863+ "picture": "http://placehold.it/32x32",
864+ "age": 39,
865+ "eyeColor": "green",
866+ "name": "Beverly Newton",
867+ "gender": "female",
868+ "company": "ECLIPSENT",
869+ "email": "beverlynewton@eclipsent.com",
870+ "phone": "+1 (902) 595-3072",
871+ "address": "903 Knight Court, Gardiner, Rhode Island, 3327",
872+ "about": "Labore culpa tempor nisi commodo dolore exercitation est eu. Aute exercitation duis proident deserunt culpa ullamco. Irure cillum elit ea sint dolore ipsum adipisicing anim sit. Amet incididunt labore ex fugiat mollit quis reprehenderit nisi ut excepteur proident ullamco laboris. Reprehenderit voluptate aliqua labore culpa in non magna velit nostrud amet. Minim nulla ea culpa irure. Minim ea ex nisi proident ex ex quis ipsum culpa.\r\n",
873+ "registered": "2014-09-23T10:25:17 +07:00",
874+ "latitude": 23.973865,
875+ "longitude": -71.604537,
876+ "tags": [
877+ "ullamco",
878+ "anim",
879+ "id",
880+ "pariatur",
881+ "est",
882+ "cupidatat",
883+ "qui"
884+ ],
885+ "friends": [
886+ {
887+ "id": 0,
888+ "name": "James Garner"
889+ },
890+ {
891+ "id": 1,
892+ "name": "Goff Reese"
893+ },
894+ {
895+ "id": 2,
896+ "name": "Casey Bradford"
897+ }
898+ ],
899+ "greeting": "Hello, Beverly Newton! You have 2 unread messages.",
900+ "favoriteFruit": "apple"
901+ },
902+ {
903+ "_id": "54727a90fd0cafc2fa513aea",
904+ "index": 20,
905+ "guid": "c0e243a3-bf20-4112-8dab-0b0aed785060",
906+ "isActive": true,
907+ "balance": "$2,290.97",
908+ "picture": "http://placehold.it/32x32",
909+ "age": 28,
910+ "eyeColor": "blue",
911+ "name": "Stokes Dodson",
912+ "gender": "male",
913+ "company": "SLAMBDA",
914+ "email": "stokesdodson@slambda.com",
915+ "phone": "+1 (994) 443-2829",
916+ "address": "232 Kosciusko Street, Manitou, Michigan, 2638",
917+ "about": "Nostrud minim cillum elit reprehenderit ut do eu. Quis deserunt enim nisi do proident quis quis voluptate elit. Sit nostrud et amet nostrud pariatur exercitation cillum ullamco laborum ullamco do id. Tempor incididunt dolore consequat ut amet in reprehenderit magna anim laboris reprehenderit tempor adipisicing.\r\n",
918+ "registered": "2014-05-21T16:30:03 +07:00",
919+ "latitude": -86.112825,
920+ "longitude": 56.089279,
921+ "tags": [
922+ "ea",
923+ "dolor",
924+ "dolor",
925+ "consequat",
926+ "nulla",
927+ "cillum",
928+ "voluptate"
929+ ],
930+ "friends": [
931+ {
932+ "id": 0,
933+ "name": "Jodi Camacho"
934+ },
935+ {
936+ "id": 1,
937+ "name": "Michele Miles"
938+ },
939+ {
940+ "id": 2,
941+ "name": "Rene Mitchell"
942+ }
943+ ],
944+ "greeting": "Hello, Stokes Dodson! You have 9 unread messages.",
945+ "favoriteFruit": "banana"
946+ },
947+ {
948+ "_id": "54727a908be67242a33d9597",
949+ "index": 21,
950+ "guid": "8ad92a47-ac1d-46ad-9dc3-d1f96526bf1d",
951+ "isActive": true,
952+ "balance": "$1,134.78",
953+ "picture": "http://placehold.it/32x32",
954+ "age": 20,
955+ "eyeColor": "green",
956+ "name": "Jody Stewart",
957+ "gender": "female",
958+ "company": "EARGO",
959+ "email": "jodystewart@eargo.com",
960+ "phone": "+1 (925) 470-3426",
961+ "address": "271 Norwood Avenue, Sperryville, Oklahoma, 9504",
962+ "about": "Ut cillum ea pariatur Lorem ad veniam ex ullamco. Exercitation culpa sit occaecat aliquip eu quis magna exercitation quis reprehenderit nostrud consequat. Exercitation magna duis culpa nulla id proident. Adipisicing sunt consequat laborum consequat id dolore aute qui. Consectetur magna irure minim ut consectetur elit qui elit voluptate sint excepteur officia.\r\n",
963+ "registered": "2014-04-29T09:04:08 +07:00",
964+ "latitude": -51.736959,
965+ "longitude": -37.406481,
966+ "tags": [
967+ "officia",
968+ "ullamco",
969+ "velit",
970+ "nulla",
971+ "ipsum",
972+ "eiusmod",
973+ "mollit"
974+ ],
975+ "friends": [
976+ {
977+ "id": 0,
978+ "name": "Jodie Browning"
979+ },
980+ {
981+ "id": 1,
982+ "name": "Collins Gamble"
983+ },
984+ {
985+ "id": 2,
986+ "name": "Emerson Mccullough"
987+ }
988+ ],
989+ "greeting": "Hello, Jody Stewart! You have 4 unread messages.",
990+ "favoriteFruit": "banana"
991+ },
992+ {
993+ "_id": "54727a905956037e359d6786",
994+ "index": 22,
995+ "guid": "730467a3-9f5d-4d41-9503-09f30222dffa",
996+ "isActive": false,
997+ "balance": "$1,821.23",
998+ "picture": "http://placehold.it/32x32",
999+ "age": 24,
1000+ "eyeColor": "brown",
1001+ "name": "Wall Moss",
1002+ "gender": "male",
1003+ "company": "BOILICON",
1004+ "email": "wallmoss@boilicon.com",
1005+ "phone": "+1 (865) 518-2689",
1006+ "address": "902 Fleet Street, Cornfields, West Virginia, 9088",
1007+ "about": "Consectetur voluptate enim est elit dolor adipisicing reprehenderit ut in proident sunt. Fugiat cillum anim ullamco qui laborum sit. Dolore qui mollit ut irure proident consequat est veniam. Qui incididunt quis duis enim quis cupidatat do nostrud dolore labore consectetur laboris consectetur. Adipisicing veniam amet officia mollit incididunt non veniam ea laboris. Enim adipisicing velit in dolore proident Lorem esse et sunt.\r\n",
1008+ "registered": "2014-01-21T18:36:59 +08:00",
1009+ "latitude": -70.265889,
1010+ "longitude": -148.213176,
1011+ "tags": [
1012+ "ea",
1013+ "cillum",
1014+ "ea",
1015+ "enim",
1016+ "aliqua",
1017+ "nostrud",
1018+ "do"
1019+ ],
1020+ "friends": [
1021+ {
1022+ "id": 0,
1023+ "name": "Margaret Chavez"
1024+ },
1025+ {
1026+ "id": 1,
1027+ "name": "Mendez Garrison"
1028+ },
1029+ {
1030+ "id": 2,
1031+ "name": "Howard Ortiz"
1032+ }
1033+ ],
1034+ "greeting": "Hello, Wall Moss! You have 9 unread messages.",
1035+ "favoriteFruit": "banana"
1036+ },
1037+ {
1038+ "_id": "54727a9062feb6c7bfa8710d",
1039+ "index": 23,
1040+ "guid": "1b428a55-1b50-4bcf-b2d9-06c2e8950768",
1041+ "isActive": true,
1042+ "balance": "$1,045.36",
1043+ "picture": "http://placehold.it/32x32",
1044+ "age": 25,
1045+ "eyeColor": "blue",
1046+ "name": "Adele Santana",
1047+ "gender": "female",
1048+ "company": "EBIDCO",
1049+ "email": "adelesantana@ebidco.com",
1050+ "phone": "+1 (981) 528-2138",
1051+ "address": "117 Kent Avenue, Chamizal, Iowa, 4289",
1052+ "about": "Culpa eu nostrud mollit voluptate consequat pariatur. Qui ex laboris velit cupidatat enim. Reprehenderit commodo eu excepteur ex elit amet dolore enim. Nisi dolor pariatur enim laborum voluptate Lorem magna ipsum enim aute do sunt. Ad consectetur velit laborum magna labore Lorem occaecat quis. Exercitation ipsum velit nostrud cupidatat consequat ex non velit deserunt pariatur officia. Magna occaecat Lorem qui aliqua id aliquip laborum.\r\n",
1053+ "registered": "2014-10-01T21:15:54 +07:00",
1054+ "latitude": 24.339451,
1055+ "longitude": -38.920718,
1056+ "tags": [
1057+ "ullamco",
1058+ "labore",
1059+ "magna",
1060+ "fugiat",
1061+ "consectetur",
1062+ "nostrud",
1063+ "veniam"
1064+ ],
1065+ "friends": [
1066+ {
1067+ "id": 0,
1068+ "name": "Sharpe Haley"
1069+ },
1070+ {
1071+ "id": 1,
1072+ "name": "Patrice Horne"
1073+ },
1074+ {
1075+ "id": 2,
1076+ "name": "Melanie Sosa"
1077+ }
1078+ ],
1079+ "greeting": "Hello, Adele Santana! You have 10 unread messages.",
1080+ "favoriteFruit": "apple"
1081+ },
1082+ {
1083+ "_id": "54727a900e0eec7c0c194713",
1084+ "index": 24,
1085+ "guid": "cc7114a5-89ce-4fb6-9ad8-b5886360ab42",
1086+ "isActive": true,
1087+ "balance": "$2,505.31",
1088+ "picture": "http://placehold.it/32x32",
1089+ "age": 36,
1090+ "eyeColor": "blue",
1091+ "name": "Lindsey Colon",
1092+ "gender": "male",
1093+ "company": "XYLAR",
1094+ "email": "lindseycolon@xylar.com",
1095+ "phone": "+1 (952) 532-3896",
1096+ "address": "144 Poly Place, Detroit, Federated States Of Micronesia, 2004",
1097+ "about": "Ullamco nostrud Lorem duis duis aute sunt commodo Lorem. Esse cupidatat aliqua et laborum officia et. Ea magna est eiusmod id sit ea esse consectetur qui.\r\n",
1098+ "registered": "2014-04-05T02:52:07 +07:00",
1099+ "latitude": -55.350071,
1100+ "longitude": -20.446672,
1101+ "tags": [
1102+ "id",
1103+ "sit",
1104+ "cillum",
1105+ "id",
1106+ "exercitation",
1107+ "reprehenderit",
1108+ "deserunt"
1109+ ],
1110+ "friends": [
1111+ {
1112+ "id": 0,
1113+ "name": "Kathleen Berger"
1114+ },
1115+ {
1116+ "id": 1,
1117+ "name": "Morales Tran"
1118+ },
1119+ {
1120+ "id": 2,
1121+ "name": "Dionne Hunter"
1122+ }
1123+ ],
1124+ "greeting": "Hello, Lindsey Colon! You have 3 unread messages.",
1125+ "favoriteFruit": "strawberry"
1126+ },
1127+ {
1128+ "_id": "54727a90a20ec5bce57f2f55",
1129+ "index": 25,
1130+ "guid": "c1d3f95b-25dd-4b48-8fe8-9af5f62895e2",
1131+ "isActive": true,
1132+ "balance": "$1,609.28",
1133+ "picture": "http://placehold.it/32x32",
1134+ "age": 21,
1135+ "eyeColor": "green",
1136+ "name": "Langley Moore",
1137+ "gender": "male",
1138+ "company": "ZYTRAX",
1139+ "email": "langleymoore@zytrax.com",
1140+ "phone": "+1 (912) 580-3688",
1141+ "address": "747 Abbey Court, Odessa, Kentucky, 4688",
1142+ "about": "Eiusmod adipisicing aliquip quis voluptate qui. Enim esse culpa elit id eu dolor culpa eiusmod. Deserunt ut ea ipsum ipsum non culpa ullamco non ipsum sunt cupidatat.\r\n",
1143+ "registered": "2014-06-28T08:29:15 +07:00",
1144+ "latitude": 65.464748,
1145+ "longitude": -129.638837,
1146+ "tags": [
1147+ "deserunt",
1148+ "cillum",
1149+ "sint",
1150+ "proident",
1151+ "ad",
1152+ "adipisicing",
1153+ "mollit"
1154+ ],
1155+ "friends": [
1156+ {
1157+ "id": 0,
1158+ "name": "Mcguire Vance"
1159+ },
1160+ {
1161+ "id": 1,
1162+ "name": "Norma Buck"
1163+ },
1164+ {
1165+ "id": 2,
1166+ "name": "Janelle Bailey"
1167+ }
1168+ ],
1169+ "greeting": "Hello, Langley Moore! You have 8 unread messages.",
1170+ "favoriteFruit": "apple"
1171+ },
1172+ {
1173+ "_id": "54727a903c9a63ef7fccce96",
1174+ "index": 26,
1175+ "guid": "88c32c0f-a2c6-49c2-8261-bc323895067f",
1176+ "isActive": false,
1177+ "balance": "$3,748.41",
1178+ "picture": "http://placehold.it/32x32",
1179+ "age": 26,
1180+ "eyeColor": "blue",
1181+ "name": "Duran Bryan",
1182+ "gender": "male",
1183+ "company": "BULLZONE",
1184+ "email": "duranbryan@bullzone.com",
1185+ "phone": "+1 (911) 598-2827",
1186+ "address": "903 Village Road, Cressey, New Jersey, 9174",
1187+ "about": "Do in fugiat est deserunt in sit Lorem quis reprehenderit est ut tempor. Ullamco in veniam non quis cillum consectetur id. Elit exercitation reprehenderit et amet voluptate magna voluptate minim veniam enim exercitation aute aute esse. Exercitation magna voluptate laborum ipsum cupidatat exercitation ad eu aute deserunt et. Voluptate qui aute ut elit amet excepteur nostrud officia irure do.\r\n",
1188+ "registered": "2014-01-29T12:32:05 +08:00",
1189+ "latitude": -51.269785,
1190+ "longitude": 79.015891,
1191+ "tags": [
1192+ "consequat",
1193+ "id",
1194+ "exercitation",
1195+ "incididunt",
1196+ "adipisicing",
1197+ "laboris",
1198+ "laboris"
1199+ ],
1200+ "friends": [
1201+ {
1202+ "id": 0,
1203+ "name": "Jenny Allison"
1204+ },
1205+ {
1206+ "id": 1,
1207+ "name": "Della Hobbs"
1208+ },
1209+ {
1210+ "id": 2,
1211+ "name": "Bradshaw Owens"
1212+ }
1213+ ],
1214+ "greeting": "Hello, Duran Bryan! You have 5 unread messages.",
1215+ "favoriteFruit": "strawberry"
1216+ },
1217+ {
1218+ "_id": "54727a907a2f07fbb3efec0f",
1219+ "index": 27,
1220+ "guid": "df997a84-5ec1-4f63-acb7-140b9fed981d",
1221+ "isActive": true,
1222+ "balance": "$1,249.61",
1223+ "picture": "http://placehold.it/32x32",
1224+ "age": 28,
1225+ "eyeColor": "blue",
1226+ "name": "Juarez House",
1227+ "gender": "male",
1228+ "company": "ZUVY",
1229+ "email": "juarezhouse@zuvy.com",
1230+ "phone": "+1 (841) 533-3140",
1231+ "address": "494 Atlantic Avenue, Shasta, Nevada, 8475",
1232+ "about": "Proident eu nostrud laboris adipisicing pariatur sint ipsum exercitation velit non incididunt. Qui cupidatat reprehenderit nostrud magna sunt aute nulla aliquip velit culpa commodo fugiat laborum. Dolore consectetur esse labore magna anim exercitation dolor velit qui sunt Lorem reprehenderit amet.\r\n",
1233+ "registered": "2014-03-16T19:21:13 +07:00",
1234+ "latitude": 57.96486,
1235+ "longitude": 130.460435,
1236+ "tags": [
1237+ "incididunt",
1238+ "reprehenderit",
1239+ "consequat",
1240+ "duis",
1241+ "veniam",
1242+ "nulla",
1243+ "dolor"
1244+ ],
1245+ "friends": [
1246+ {
1247+ "id": 0,
1248+ "name": "Keri Lara"
1249+ },
1250+ {
1251+ "id": 1,
1252+ "name": "Celina Pace"
1253+ },
1254+ {
1255+ "id": 2,
1256+ "name": "Bush Haynes"
1257+ }
1258+ ],
1259+ "greeting": "Hello, Juarez House! You have 7 unread messages.",
1260+ "favoriteFruit": "banana"
1261+ },
1262+ {
1263+ "_id": "54727a903021f42c063be598",
1264+ "index": 28,
1265+ "guid": "1dc6349d-4354-42a9-9f73-7bc12d5ac9c2",
1266+ "isActive": false,
1267+ "balance": "$1,991.33",
1268+ "picture": "http://placehold.it/32x32",
1269+ "age": 26,
1270+ "eyeColor": "blue",
1271+ "name": "Sonja Horton",
1272+ "gender": "female",
1273+ "company": "VIDTO",
1274+ "email": "sonjahorton@vidto.com",
1275+ "phone": "+1 (990) 504-2432",
1276+ "address": "612 River Street, Carrizo, California, 5778",
1277+ "about": "Nisi reprehenderit occaecat anim ut minim aliqua aliquip velit veniam eiusmod reprehenderit laboris ad. Duis aliqua labore cillum proident est amet. Adipisicing nostrud proident labore laborum. Elit est sint ex veniam reprehenderit. Veniam ut dolor nulla tempor voluptate sit excepteur sit ut quis.\r\n",
1278+ "registered": "2014-10-30T05:07:28 +07:00",
1279+ "latitude": 85.37031,
1280+ "longitude": -122.082636,
1281+ "tags": [
1282+ "tempor",
1283+ "ex",
1284+ "nostrud",
1285+ "ullamco",
1286+ "ullamco",
1287+ "nisi",
1288+ "cillum"
1289+ ],
1290+ "friends": [
1291+ {
1292+ "id": 0,
1293+ "name": "Phillips Henry"
1294+ },
1295+ {
1296+ "id": 1,
1297+ "name": "Leanne Sexton"
1298+ },
1299+ {
1300+ "id": 2,
1301+ "name": "Alisha Chang"
1302+ }
1303+ ],
1304+ "greeting": "Hello, Sonja Horton! You have 1 unread messages.",
1305+ "favoriteFruit": "apple"
1306+ },
1307+ {
1308+ "_id": "54727a903a33ff6bb03e049a",
1309+ "index": 29,
1310+ "guid": "4ef3a65d-5407-400b-aace-62bbb8a83c6a",
1311+ "isActive": true,
1312+ "balance": "$2,823.03",
1313+ "picture": "http://placehold.it/32x32",
1314+ "age": 21,
1315+ "eyeColor": "blue",
1316+ "name": "Lidia Hewitt",
1317+ "gender": "female",
1318+ "company": "PROWASTE",
1319+ "email": "lidiahewitt@prowaste.com",
1320+ "phone": "+1 (909) 562-3312",
1321+ "address": "625 Ralph Avenue, Kiskimere, Maryland, 2033",
1322+ "about": "Eu adipisicing eiusmod laboris veniam sunt id ad eiusmod consectetur nisi. Esse nulla ipsum Lorem nisi consequat laborum. Veniam ea exercitation ullamco pariatur consectetur. Cupidatat velit excepteur ex eu sunt id. In velit reprehenderit pariatur velit. Voluptate nostrud deserunt qui mollit et tempor nostrud eiusmod adipisicing ad est laborum. Fugiat nisi sit nulla eu ad.\r\n",
1323+ "registered": "2014-01-15T00:05:42 +08:00",
1324+ "latitude": -50.566931,
1325+ "longitude": -149.036259,
1326+ "tags": [
1327+ "in",
1328+ "ipsum",
1329+ "tempor",
1330+ "magna",
1331+ "aliqua",
1332+ "duis",
1333+ "incididunt"
1334+ ],
1335+ "friends": [
1336+ {
1337+ "id": 0,
1338+ "name": "Allie Baker"
1339+ },
1340+ {
1341+ "id": 1,
1342+ "name": "Valdez Giles"
1343+ },
1344+ {
1345+ "id": 2,
1346+ "name": "Knox Vargas"
1347+ }
1348+ ],
1349+ "greeting": "Hello, Lidia Hewitt! You have 3 unread messages.",
1350+ "favoriteFruit": "strawberry"
1351+ },
1352+ {
1353+ "_id": "54727a90ce7ef56e53f98790",
1354+ "index": 30,
1355+ "guid": "9ae34b38-098b-4de6-aa0f-90359571ddf2",
1356+ "isActive": false,
1357+ "balance": "$3,152.82",
1358+ "picture": "http://placehold.it/32x32",
1359+ "age": 38,
1360+ "eyeColor": "brown",
1361+ "name": "Nieves Ewing",
1362+ "gender": "male",
1363+ "company": "QNEKT",
1364+ "email": "nievesewing@qnekt.com",
1365+ "phone": "+1 (888) 460-2384",
1366+ "address": "425 Highland Place, Hampstead, Washington, 7019",
1367+ "about": "Ipsum aliquip ullamco labore aliquip et. Eu pariatur exercitation ex fugiat fugiat. Nulla voluptate et cupidatat deserunt mollit et incididunt. Deserunt anim qui cupidatat veniam et et dolore qui sunt tempor ipsum. In et voluptate excepteur incididunt dolore cupidatat exercitation ullamco dolore Lorem nostrud sunt nostrud. Occaecat amet ut laborum laborum aliqua est incididunt ea excepteur commodo. Ipsum et elit nisi duis pariatur occaecat.\r\n",
1368+ "registered": "2014-06-15T18:44:29 +07:00",
1369+ "latitude": 8.010315,
1370+ "longitude": 69.049129,
1371+ "tags": [
1372+ "exercitation",
1373+ "eiusmod",
1374+ "voluptate",
1375+ "ullamco",
1376+ "consectetur",
1377+ "reprehenderit",
1378+ "enim"
1379+ ],
1380+ "friends": [
1381+ {
1382+ "id": 0,
1383+ "name": "Maggie Rodriguez"
1384+ },
1385+ {
1386+ "id": 1,
1387+ "name": "Evans Roach"
1388+ },
1389+ {
1390+ "id": 2,
1391+ "name": "Greer Mccoy"
1392+ }
1393+ ],
1394+ "greeting": "Hello, Nieves Ewing! You have 7 unread messages.",
1395+ "favoriteFruit": "strawberry"
1396+ },
1397+ {
1398+ "_id": "54727a9049aa4bbedefd311d",
1399+ "index": 31,
1400+ "guid": "471d52a6-da38-4015-8d7a-6fe215a032d3",
1401+ "isActive": false,
1402+ "balance": "$1,456.93",
1403+ "picture": "http://placehold.it/32x32",
1404+ "age": 21,
1405+ "eyeColor": "green",
1406+ "name": "Reyna Clay",
1407+ "gender": "female",
1408+ "company": "KINETICA",
1409+ "email": "reynaclay@kinetica.com",
1410+ "phone": "+1 (865) 425-3747",
1411+ "address": "480 Dakota Place, Kimmell, Utah, 6677",
1412+ "about": "Tempor esse ex amet aliqua incididunt incididunt qui commodo laborum incididunt deserunt elit id consequat. Proident duis ut ullamco non ea magna fugiat fugiat Lorem minim. Incididunt tempor nostrud proident irure laboris consectetur elit labore adipisicing fugiat nulla quis ipsum consequat. Tempor mollit pariatur irure in nisi minim magna excepteur. Aliquip et laborum cillum adipisicing consequat.\r\n",
1413+ "registered": "2014-10-30T08:53:04 +07:00",
1414+ "latitude": 38.437675,
1415+ "longitude": 42.847793,
1416+ "tags": [
1417+ "incididunt",
1418+ "est",
1419+ "mollit",
1420+ "nulla",
1421+ "ipsum",
1422+ "ea",
1423+ "ea"
1424+ ],
1425+ "friends": [
1426+ {
1427+ "id": 0,
1428+ "name": "Glenna Macdonald"
1429+ },
1430+ {
1431+ "id": 1,
1432+ "name": "Bertha Meadows"
1433+ },
1434+ {
1435+ "id": 2,
1436+ "name": "Oneill Barnes"
1437+ }
1438+ ],
1439+ "greeting": "Hello, Reyna Clay! You have 6 unread messages.",
1440+ "favoriteFruit": "strawberry"
1441+ },
1442+ {
1443+ "_id": "54727a900238319b9b407aa0",
1444+ "index": 32,
1445+ "guid": "fa5c52e1-9a9d-44d4-8e6b-5a65221ab142",
1446+ "isActive": true,
1447+ "balance": "$3,113.15",
1448+ "picture": "http://placehold.it/32x32",
1449+ "age": 24,
1450+ "eyeColor": "blue",
1451+ "name": "Felicia Harris",
1452+ "gender": "female",
1453+ "company": "FITCORE",
1454+ "email": "feliciaharris@fitcore.com",
1455+ "phone": "+1 (814) 449-2730",
1456+ "address": "641 Hazel Court, Bawcomville, Wisconsin, 4111",
1457+ "about": "Magna in elit aute ipsum anim dolore et exercitation sunt occaecat velit. Sint tempor nulla sit laborum dolor ex irure nisi nulla veniam in labore laborum. Nulla magna excepteur exercitation aute occaecat consequat laborum Lorem velit occaecat aliqua qui. Id in aliqua dolore fugiat duis elit laborum commodo cillum ex aute minim eu.\r\n",
1458+ "registered": "2014-04-15T21:31:39 +07:00",
1459+ "latitude": -58.891583,
1460+ "longitude": -162.554134,
1461+ "tags": [
1462+ "eiusmod",
1463+ "dolor",
1464+ "enim",
1465+ "cupidatat",
1466+ "labore",
1467+ "sunt",
1468+ "consectetur"
1469+ ],
1470+ "friends": [
1471+ {
1472+ "id": 0,
1473+ "name": "Rich Lott"
1474+ },
1475+ {
1476+ "id": 1,
1477+ "name": "Rebecca Cardenas"
1478+ },
1479+ {
1480+ "id": 2,
1481+ "name": "Jarvis Barron"
1482+ }
1483+ ],
1484+ "greeting": "Hello, Felicia Harris! You have 7 unread messages.",
1485+ "favoriteFruit": "strawberry"
1486+ },
1487+ {
1488+ "_id": "54727a90f03941c94fe50d08",
1489+ "index": 33,
1490+ "guid": "49070cf3-b2f3-445e-86ec-3ae9cddc474d",
1491+ "isActive": false,
1492+ "balance": "$1,105.05",
1493+ "picture": "http://placehold.it/32x32",
1494+ "age": 35,
1495+ "eyeColor": "green",
1496+ "name": "Josefina Holland",
1497+ "gender": "female",
1498+ "company": "GOGOL",
1499+ "email": "josefinaholland@gogol.com",
1500+ "phone": "+1 (809) 411-2991",
1501+ "address": "778 McKibben Street, Whitehaven, Louisiana, 2079",
1502+ "about": "Cillum ipsum cupidatat et dolor minim aliqua. Laborum culpa magna ullamco nulla ut labore deserunt amet sunt est esse do. Consequat aliquip eiusmod ipsum tempor. Voluptate exercitation nisi nulla dolor esse ullamco occaecat. Sint minim reprehenderit anim tempor deserunt sit exercitation. Qui proident cillum eu voluptate adipisicing velit tempor sunt sunt ipsum. Enim anim ea ea eu excepteur excepteur laboris eu.\r\n",
1503+ "registered": "2014-09-13T12:46:51 +07:00",
1504+ "latitude": 81.172596,
1505+ "longitude": -151.851605,
1506+ "tags": [
1507+ "velit",
1508+ "ad",
1509+ "tempor",
1510+ "tempor",
1511+ "adipisicing",
1512+ "nulla",
1513+ "minim"
1514+ ],
1515+ "friends": [
1516+ {
1517+ "id": 0,
1518+ "name": "Lester Woods"
1519+ },
1520+ {
1521+ "id": 1,
1522+ "name": "Audra Shepherd"
1523+ },
1524+ {
1525+ "id": 2,
1526+ "name": "Chandler Church"
1527+ }
1528+ ],
1529+ "greeting": "Hello, Josefina Holland! You have 5 unread messages.",
1530+ "favoriteFruit": "banana"
1531+ },
1532+ {
1533+ "_id": "54727a9008a3955509cf065f",
1534+ "index": 34,
1535+ "guid": "4c838bee-e8b1-4c22-b8ad-e0e5d0822334",
1536+ "isActive": false,
1537+ "balance": "$3,032.13",
1538+ "picture": "http://placehold.it/32x32",
1539+ "age": 32,
1540+ "eyeColor": "green",
1541+ "name": "Susie Cash",
1542+ "gender": "female",
1543+ "company": "DOGSPA",
1544+ "email": "susiecash@dogspa.com",
1545+ "phone": "+1 (991) 447-2298",
1546+ "address": "361 Quincy Street, Duryea, Florida, 7538",
1547+ "about": "Officia eu non proident ad ea quis eu ea amet irure aliqua qui. Ea in laborum do sit. Dolor proident voluptate excepteur sit. Tempor nulla anim ex proident ipsum laboris laboris cupidatat esse dolore ex fugiat proident. Excepteur exercitation pariatur ex velit. In adipisicing eu eiusmod elit dolore ullamco nulla sit ut ut anim aliquip. Et eu eu aliquip ex aute aliquip veniam sint pariatur non incididunt in aliqua sit.\r\n",
1548+ "registered": "2014-09-14T22:55:19 +07:00",
1549+ "latitude": 8.46119,
1550+ "longitude": -1.171475,
1551+ "tags": [
1552+ "voluptate",
1553+ "irure",
1554+ "ex",
1555+ "proident",
1556+ "nulla",
1557+ "in",
1558+ "esse"
1559+ ],
1560+ "friends": [
1561+ {
1562+ "id": 0,
1563+ "name": "Cassie Whitley"
1564+ },
1565+ {
1566+ "id": 1,
1567+ "name": "Shawna Todd"
1568+ },
1569+ {
1570+ "id": 2,
1571+ "name": "Antoinette Brooks"
1572+ }
1573+ ],
1574+ "greeting": "Hello, Susie Cash! You have 1 unread messages.",
1575+ "favoriteFruit": "banana"
1576+ },
1577+ {
1578+ "_id": "54727a9079c5bce30e9c0a68",
1579+ "index": 35,
1580+ "guid": "7a70e0df-c23b-435d-8d19-864cc1bd09e6",
1581+ "isActive": false,
1582+ "balance": "$2,523.44",
1583+ "picture": "http://placehold.it/32x32",
1584+ "age": 21,
1585+ "eyeColor": "brown",
1586+ "name": "Marquez Hartman",
1587+ "gender": "male",
1588+ "company": "BUZZMAKER",
1589+ "email": "marquezhartman@buzzmaker.com",
1590+ "phone": "+1 (880) 574-2420",
1591+ "address": "326 Church Avenue, Yardville, Indiana, 6743",
1592+ "about": "Ullamco reprehenderit pariatur veniam enim est nulla laboris ullamco eiusmod eu Lorem amet in amet. Incididunt consectetur reprehenderit tempor Lorem aute eiusmod laborum sunt mollit excepteur qui ea enim. Consectetur enim excepteur proident incididunt adipisicing duis est amet quis proident laboris. Consectetur Lorem consequat incididunt eiusmod mollit id amet velit quis ipsum labore. Cupidatat id minim cillum qui consequat quis non quis irure dolor voluptate ea eu.\r\n",
1593+ "registered": "2014-06-16T07:23:30 +07:00",
1594+ "latitude": -88.970617,
1595+ "longitude": -28.068887,
1596+ "tags": [
1597+ "nostrud",
1598+ "adipisicing",
1599+ "quis",
1600+ "voluptate",
1601+ "dolore",
1602+ "dolore",
1603+ "reprehenderit"
1604+ ],
1605+ "friends": [
1606+ {
1607+ "id": 0,
1608+ "name": "Florence David"
1609+ },
1610+ {
1611+ "id": 1,
1612+ "name": "Lynn Mcleod"
1613+ },
1614+ {
1615+ "id": 2,
1616+ "name": "Catherine Abbott"
1617+ }
1618+ ],
1619+ "greeting": "Hello, Marquez Hartman! You have 10 unread messages.",
1620+ "favoriteFruit": "apple"
1621+ },
1622+ {
1623+ "_id": "54727a902bf5baf83c4fafcd",
1624+ "index": 36,
1625+ "guid": "56ac4022-1ed3-4298-9b70-c6060c69b13c",
1626+ "isActive": false,
1627+ "balance": "$1,162.32",
1628+ "picture": "http://placehold.it/32x32",
1629+ "age": 35,
1630+ "eyeColor": "green",
1631+ "name": "Bishop Gibbs",
1632+ "gender": "male",
1633+ "company": "MICROLUXE",
1634+ "email": "bishopgibbs@microluxe.com",
1635+ "phone": "+1 (808) 584-2587",
1636+ "address": "801 Exeter Street, Trucksville, New Hampshire, 4871",
1637+ "about": "Incididunt sit eu sunt cupidatat aute do eu eu culpa. Laborum adipisicing sit anim sit dolor labore commodo minim proident ullamco laboris sit irure. Duis dolore cupidatat ullamco anim reprehenderit aliquip incididunt sunt eu id non proident non.\r\n",
1638+ "registered": "2014-09-10T02:39:14 +07:00",
1639+ "latitude": -3.268064,
1640+ "longitude": 149.311591,
1641+ "tags": [
1642+ "enim",
1643+ "aute",
1644+ "commodo",
1645+ "consectetur",
1646+ "Lorem",
1647+ "est",
1648+ "cillum"
1649+ ],
1650+ "friends": [
1651+ {
1652+ "id": 0,
1653+ "name": "Head Pickett"
1654+ },
1655+ {
1656+ "id": 1,
1657+ "name": "Thornton Russo"
1658+ },
1659+ {
1660+ "id": 2,
1661+ "name": "Hooper Rivera"
1662+ }
1663+ ],
1664+ "greeting": "Hello, Bishop Gibbs! You have 9 unread messages.",
1665+ "favoriteFruit": "apple"
1666+ },
1667+ {
1668+ "_id": "54727a90a4406555b5bdab8f",
1669+ "index": 37,
1670+ "guid": "0f052dd2-283e-441e-86d7-b7f7b47224f1",
1671+ "isActive": true,
1672+ "balance": "$3,306.81",
1673+ "picture": "http://placehold.it/32x32",
1674+ "age": 34,
1675+ "eyeColor": "brown",
1676+ "name": "Carr Strickland",
1677+ "gender": "male",
1678+ "company": "EXERTA",
1679+ "email": "carrstrickland@exerta.com",
1680+ "phone": "+1 (862) 455-3845",
1681+ "address": "730 Aberdeen Street, Klondike, Kansas, 4412",
1682+ "about": "Pariatur velit qui Lorem cillum labore veniam minim. Nisi reprehenderit commodo consectetur commodo velit. Ipsum dolor ea mollit excepteur minim do excepteur. Aliquip cillum quis nostrud cillum duis eu laborum reprehenderit adipisicing adipisicing do exercitation. Laborum Lorem sunt voluptate qui quis officia nisi et elit sint veniam. Lorem velit ad do amet labore veniam consectetur.\r\n",
1683+ "registered": "2014-01-19T10:53:58 +08:00",
1684+ "latitude": -45.243563,
1685+ "longitude": -17.8448,
1686+ "tags": [
1687+ "mollit",
1688+ "ex",
1689+ "qui",
1690+ "fugiat",
1691+ "consequat",
1692+ "consectetur",
1693+ "do"
1694+ ],
1695+ "friends": [
1696+ {
1697+ "id": 0,
1698+ "name": "Rosario Gomez"
1699+ },
1700+ {
1701+ "id": 1,
1702+ "name": "Robinson Robinson"
1703+ },
1704+ {
1705+ "id": 2,
1706+ "name": "Vicki Moreno"
1707+ }
1708+ ],
1709+ "greeting": "Hello, Carr Strickland! You have 2 unread messages.",
1710+ "favoriteFruit": "banana"
1711+ },
1712+ {
1713+ "_id": "54727a9097f6a585321fe001",
1714+ "index": 38,
1715+ "guid": "eee159c2-73ac-44b7-9054-d72295d3178a",
1716+ "isActive": true,
1717+ "balance": "$3,336.97",
1718+ "picture": "http://placehold.it/32x32",
1719+ "age": 30,
1720+ "eyeColor": "brown",
1721+ "name": "Stephens Harper",
1722+ "gender": "male",
1723+ "company": "KIDSTOCK",
1724+ "email": "stephensharper@kidstock.com",
1725+ "phone": "+1 (989) 464-3887",
1726+ "address": "315 Hewes Street, Cuylerville, Pennsylvania, 7331",
1727+ "about": "Et ea Lorem labore consequat laboris. Aliqua irure elit aliqua ad fugiat. Commodo cupidatat incididunt ut nostrud consequat elit ad esse magna nisi nostrud dolore eu. Minim incididunt esse ullamco esse ullamco deserunt reprehenderit commodo ut. Quis sint cupidatat excepteur et laboris incididunt id esse irure nostrud sint nostrud ut pariatur. Pariatur officia aute ullamco laboris nisi elit quis labore Lorem minim ad. Ea esse anim commodo fugiat exercitation voluptate eiusmod aliquip amet enim nulla mollit excepteur nisi.\r\n",
1728+ "registered": "2014-03-02T06:45:25 +08:00",
1729+ "latitude": -88.39292,
1730+ "longitude": -121.170605,
1731+ "tags": [
1732+ "ullamco",
1733+ "est",
1734+ "mollit",
1735+ "id",
1736+ "commodo",
1737+ "Lorem",
1738+ "nostrud"
1739+ ],
1740+ "friends": [
1741+ {
1742+ "id": 0,
1743+ "name": "Castaneda Dillon"
1744+ },
1745+ {
1746+ "id": 1,
1747+ "name": "Morin Hodge"
1748+ },
1749+ {
1750+ "id": 2,
1751+ "name": "Vincent Lamb"
1752+ }
1753+ ],
1754+ "greeting": "Hello, Stephens Harper! You have 2 unread messages.",
1755+ "favoriteFruit": "apple"
1756+ },
1757+ {
1758+ "_id": "54727a90357d07212fdefd7a",
1759+ "index": 39,
1760+ "guid": "160a80a4-8e5d-483a-93ed-0a37ee359f04",
1761+ "isActive": true,
1762+ "balance": "$1,588.64",
1763+ "picture": "http://placehold.it/32x32",
1764+ "age": 32,
1765+ "eyeColor": "green",
1766+ "name": "Espinoza May",
1767+ "gender": "male",
1768+ "company": "ZIDOX",
1769+ "email": "espinozamay@zidox.com",
1770+ "phone": "+1 (955) 420-2244",
1771+ "address": "614 Alice Court, Vienna, Delaware, 5018",
1772+ "about": "Pariatur voluptate culpa enim enim sunt dolor laborum consequat officia est nostrud. Ad pariatur labore reprehenderit cillum dolor consequat quis eu fugiat. Ut fugiat do dolor minim voluptate incididunt laboris magna deserunt. Culpa incididunt fugiat nostrud qui incididunt velit laboris deserunt exercitation velit.\r\n",
1773+ "registered": "2014-09-16T06:10:45 +07:00",
1774+ "latitude": -28.413217,
1775+ "longitude": -76.45198,
1776+ "tags": [
1777+ "ullamco",
1778+ "ut",
1779+ "nulla",
1780+ "consequat",
1781+ "ea",
1782+ "in",
1783+ "commodo"
1784+ ],
1785+ "friends": [
1786+ {
1787+ "id": 0,
1788+ "name": "Virginia Obrien"
1789+ },
1790+ {
1791+ "id": 1,
1792+ "name": "Snider Hopper"
1793+ },
1794+ {
1795+ "id": 2,
1796+ "name": "Fannie Harrell"
1797+ }
1798+ ],
1799+ "greeting": "Hello, Espinoza May! You have 3 unread messages.",
1800+ "favoriteFruit": "banana"
1801+ },
1802+ {
1803+ "_id": "54727a901e753e41d1232a42",
1804+ "index": 40,
1805+ "guid": "7f3923e7-2fad-4210-b051-bd805e505d06",
1806+ "isActive": false,
1807+ "balance": "$2,512.14",
1808+ "picture": "http://placehold.it/32x32",
1809+ "age": 28,
1810+ "eyeColor": "green",
1811+ "name": "Morrison Guerrero",
1812+ "gender": "male",
1813+ "company": "MARQET",
1814+ "email": "morrisonguerrero@marqet.com",
1815+ "phone": "+1 (881) 456-3335",
1816+ "address": "157 Huntington Street, Topaz, Georgia, 6068",
1817+ "about": "Velit cupidatat eiusmod elit ut adipisicing. Proident pariatur consequat ullamco velit dolore do esse adipisicing non est ea. Velit non amet nisi aliqua est veniam dolor. Cillum id labore qui ut aute pariatur exercitation ut incididunt velit aute.\r\n",
1818+ "registered": "2014-11-12T21:01:15 +08:00",
1819+ "latitude": -43.420946,
1820+ "longitude": 23.215515,
1821+ "tags": [
1822+ "sit",
1823+ "dolore",
1824+ "aliqua",
1825+ "esse",
1826+ "et",
1827+ "cillum",
1828+ "mollit"
1829+ ],
1830+ "friends": [
1831+ {
1832+ "id": 0,
1833+ "name": "Pamela Stanton"
1834+ },
1835+ {
1836+ "id": 1,
1837+ "name": "Spence Banks"
1838+ },
1839+ {
1840+ "id": 2,
1841+ "name": "Newton Cooley"
1842+ }
1843+ ],
1844+ "greeting": "Hello, Morrison Guerrero! You have 4 unread messages.",
1845+ "favoriteFruit": "strawberry"
1846+ },
1847+ {
1848+ "_id": "54727a9098c06d55fa03398f",
1849+ "index": 41,
1850+ "guid": "c17e4f56-ca2b-48fd-bbc4-aea053062ebd",
1851+ "isActive": false,
1852+ "balance": "$3,405.25",
1853+ "picture": "http://placehold.it/32x32",
1854+ "age": 26,
1855+ "eyeColor": "brown",
1856+ "name": "Janna Porter",
1857+ "gender": "female",
1858+ "company": "NIMON",
1859+ "email": "jannaporter@nimon.com",
1860+ "phone": "+1 (974) 475-2497",
1861+ "address": "231 Wythe Place, Stonybrook, Alaska, 6291",
1862+ "about": "Veniam aute dolor Lorem dolore enim eiusmod veniam esse pariatur duis nisi. Eu sit sunt in exercitation amet veniam reprehenderit voluptate proident officia. Dolore aliquip laboris veniam cupidatat non cupidatat ipsum esse labore Lorem reprehenderit ex. Amet magna do officia proident laborum laboris enim. Ea sunt quis officia minim ea in id cillum. Aute ipsum aliquip fugiat tempor proident sit pariatur duis fugiat fugiat esse cillum eiusmod laboris.\r\n",
1863+ "registered": "2014-08-21T22:08:24 +07:00",
1864+ "latitude": -43.52587,
1865+ "longitude": 143.40506,
1866+ "tags": [
1867+ "ipsum",
1868+ "consequat",
1869+ "labore",
1870+ "tempor",
1871+ "ipsum",
1872+ "exercitation",
1873+ "sint"
1874+ ],
1875+ "friends": [
1876+ {
1877+ "id": 0,
1878+ "name": "Bray Francis"
1879+ },
1880+ {
1881+ "id": 1,
1882+ "name": "Whitley Guthrie"
1883+ },
1884+ {
1885+ "id": 2,
1886+ "name": "Christa Short"
1887+ }
1888+ ],
1889+ "greeting": "Hello, Janna Porter! You have 1 unread messages.",
1890+ "favoriteFruit": "banana"
1891+ },
1892+ {
1893+ "_id": "54727a90ddf3f9e967357339",
1894+ "index": 42,
1895+ "guid": "5b194b7d-c5ca-4cdd-9239-6aa6f9b28e2f",
1896+ "isActive": false,
1897+ "balance": "$1,601.96",
1898+ "picture": "http://placehold.it/32x32",
1899+ "age": 31,
1900+ "eyeColor": "green",
1901+ "name": "Sandoval Melton",
1902+ "gender": "male",
1903+ "company": "GENMEX",
1904+ "email": "sandovalmelton@genmex.com",
1905+ "phone": "+1 (826) 536-3504",
1906+ "address": "726 Lester Court, Gracey, Colorado, 4092",
1907+ "about": "Fugiat pariatur elit Lorem amet fugiat tempor. Quis sint fugiat officia deserunt voluptate fugiat aliquip reprehenderit est laborum. Ut id ullamco Lorem esse occaecat eu officia veniam velit. Aliquip nisi voluptate id aliquip qui tempor commodo occaecat velit adipisicing nisi cillum id adipisicing.\r\n",
1908+ "registered": "2014-09-05T08:54:55 +07:00",
1909+ "latitude": -66.159672,
1910+ "longitude": -135.605108,
1911+ "tags": [
1912+ "deserunt",
1913+ "minim",
1914+ "nulla",
1915+ "ea",
1916+ "tempor",
1917+ "reprehenderit",
1918+ "nulla"
1919+ ],
1920+ "friends": [
1921+ {
1922+ "id": 0,
1923+ "name": "Veronica Goodwin"
1924+ },
1925+ {
1926+ "id": 1,
1927+ "name": "Heather Pena"
1928+ },
1929+ {
1930+ "id": 2,
1931+ "name": "Lynch Crane"
1932+ }
1933+ ],
1934+ "greeting": "Hello, Sandoval Melton! You have 2 unread messages.",
1935+ "favoriteFruit": "banana"
1936+ },
1937+ {
1938+ "_id": "54727a904d114bb57f0826af",
1939+ "index": 43,
1940+ "guid": "57e4715d-f7e7-4843-9844-638648315628",
1941+ "isActive": false,
1942+ "balance": "$1,820.21",
1943+ "picture": "http://placehold.it/32x32",
1944+ "age": 34,
1945+ "eyeColor": "blue",
1946+ "name": "Flynn Fitzgerald",
1947+ "gender": "male",
1948+ "company": "ORBEAN",
1949+ "email": "flynnfitzgerald@orbean.com",
1950+ "phone": "+1 (931) 578-2443",
1951+ "address": "662 Degraw Street, Morgandale, Alabama, 5945",
1952+ "about": "Nulla anim qui duis ea do consectetur eiusmod commodo. Minim sunt aliqua velit ullamco velit dolor in amet. Eiusmod Lorem sint ea ea nisi ullamco ut officia magna id adipisicing. Ut eu minim pariatur incididunt non nisi in nostrud culpa magna anim. Veniam dolor consequat cillum sunt elit.\r\n",
1953+ "registered": "2014-06-21T08:11:23 +07:00",
1954+ "latitude": 17.108863,
1955+ "longitude": -21.608292,
1956+ "tags": [
1957+ "officia",
1958+ "quis",
1959+ "sint",
1960+ "ipsum",
1961+ "esse",
1962+ "commodo",
1963+ "aute"
1964+ ],
1965+ "friends": [
1966+ {
1967+ "id": 0,
1968+ "name": "Browning Mcdonald"
1969+ },
1970+ {
1971+ "id": 1,
1972+ "name": "Austin Lane"
1973+ },
1974+ {
1975+ "id": 2,
1976+ "name": "Blankenship Ferrell"
1977+ }
1978+ ],
1979+ "greeting": "Hello, Flynn Fitzgerald! You have 6 unread messages.",
1980+ "favoriteFruit": "strawberry"
1981+ },
1982+ {
1983+ "_id": "54727a903a4a0629f547f5ab",
1984+ "index": 44,
1985+ "guid": "1e128e33-65bf-4420-ae93-f228d030401c",
1986+ "isActive": false,
1987+ "balance": "$3,158.96",
1988+ "picture": "http://placehold.it/32x32",
1989+ "age": 25,
1990+ "eyeColor": "brown",
1991+ "name": "Holden Golden",
1992+ "gender": "male",
1993+ "company": "QABOOS",
1994+ "email": "holdengolden@qaboos.com",
1995+ "phone": "+1 (825) 535-2422",
1996+ "address": "892 Vandervoort Place, Hessville, Guam, 3942",
1997+ "about": "Non sunt cupidatat ipsum nostrud qui ad ex nostrud fugiat laboris minim. Aliquip dolore est proident aliquip in non culpa. Minim ut laboris duis proident commodo occaecat duis duis cupidatat incididunt aliqua. Ad qui anim non occaecat excepteur labore consequat Lorem.\r\n",
1998+ "registered": "2014-09-11T00:33:16 +07:00",
1999+ "latitude": -3.274271,
2000+ "longitude": -151.539207,
2001+ "tags": [
2002+ "nostrud",
2003+ "non",
2004+ "sint",
2005+ "laborum",
2006+ "deserunt",
2007+ "velit",
2008+ "sit"
2009+ ],
2010+ "friends": [
2011+ {
2012+ "id": 0,
2013+ "name": "Barbara Sharpe"
2014+ },
2015+ {
2016+ "id": 1,
2017+ "name": "Jerri Martinez"
2018+ },
2019+ {
2020+ "id": 2,
2021+ "name": "Ronda Montoya"
2022+ }
2023+ ],
2024+ "greeting": "Hello, Holden Golden! You have 3 unread messages.",
2025+ "favoriteFruit": "apple"
2026+ },
2027+ {
2028+ "_id": "54727a9079e20c148518a60a",
2029+ "index": 45,
2030+ "guid": "90fa284f-6cba-42d4-8484-6edb1ffc260b",
2031+ "isActive": false,
2032+ "balance": "$1,739.35",
2033+ "picture": "http://placehold.it/32x32",
2034+ "age": 27,
2035+ "eyeColor": "blue",
2036+ "name": "Maxwell Hodges",
2037+ "gender": "male",
2038+ "company": "DOGTOWN",
2039+ "email": "maxwellhodges@dogtown.com",
2040+ "phone": "+1 (962) 527-3585",
2041+ "address": "696 Baughman Place, Cucumber, South Carolina, 5454",
2042+ "about": "Officia ea in non veniam ipsum ea magna enim velit. Enim mollit duis consectetur magna fugiat nostrud cillum duis. Voluptate qui nostrud amet ea eiusmod consectetur cupidatat fugiat in eiusmod amet esse excepteur aute. Magna qui duis ex qui irure esse amet. Quis amet ex esse aliquip mollit. Deserunt consectetur eiusmod culpa reprehenderit. Duis quis excepteur non in consectetur commodo.\r\n",
2043+ "registered": "2014-03-20T11:37:19 +07:00",
2044+ "latitude": 19.760315,
2045+ "longitude": -26.731699,
2046+ "tags": [
2047+ "magna",
2048+ "aute",
2049+ "consectetur",
2050+ "labore",
2051+ "sunt",
2052+ "pariatur",
2053+ "excepteur"
2054+ ],
2055+ "friends": [
2056+ {
2057+ "id": 0,
2058+ "name": "Violet Vincent"
2059+ },
2060+ {
2061+ "id": 1,
2062+ "name": "West Dorsey"
2063+ },
2064+ {
2065+ "id": 2,
2066+ "name": "Concepcion Hull"
2067+ }
2068+ ],
2069+ "greeting": "Hello, Maxwell Hodges! You have 3 unread messages.",
2070+ "favoriteFruit": "strawberry"
2071+ },
2072+ {
2073+ "_id": "54727a903c504d648884f367",
2074+ "index": 46,
2075+ "guid": "7fd30275-a097-41e0-8924-252f0a14d6ba",
2076+ "isActive": false,
2077+ "balance": "$1,153.05",
2078+ "picture": "http://placehold.it/32x32",
2079+ "age": 22,
2080+ "eyeColor": "brown",
2081+ "name": "Chasity Day",
2082+ "gender": "female",
2083+ "company": "EQUITAX",
2084+ "email": "chasityday@equitax.com",
2085+ "phone": "+1 (900) 484-3047",
2086+ "address": "858 Gelston Avenue, Succasunna, Arkansas, 3818",
2087+ "about": "Est ullamco deserunt cillum enim velit velit magna qui nisi eiusmod enim officia sit voluptate. Laboris laborum elit nostrud sit in elit labore occaecat mollit Lorem. Aliquip ipsum dolore cupidatat ad anim sint non. Commodo ut fugiat ut dolor irure id velit enim in Lorem.\r\n",
2088+ "registered": "2014-01-05T08:26:01 +08:00",
2089+ "latitude": -34.705083,
2090+ "longitude": -77.213981,
2091+ "tags": [
2092+ "consectetur",
2093+ "velit",
2094+ "enim",
2095+ "excepteur",
2096+ "ipsum",
2097+ "non",
2098+ "adipisicing"
2099+ ],
2100+ "friends": [
2101+ {
2102+ "id": 0,
2103+ "name": "Judy Trevino"
2104+ },
2105+ {
2106+ "id": 1,
2107+ "name": "Rosie Cervantes"
2108+ },
2109+ {
2110+ "id": 2,
2111+ "name": "Stella Cortez"
2112+ }
2113+ ],
2114+ "greeting": "Hello, Chasity Day! You have 1 unread messages.",
2115+ "favoriteFruit": "strawberry"
2116+ },
2117+ {
2118+ "_id": "54727a90ac6406c3b9606052",
2119+ "index": 47,
2120+ "guid": "9bcd39b8-10db-40cc-a9f0-73e8179f181b",
2121+ "isActive": true,
2122+ "balance": "$1,755.70",
2123+ "picture": "http://placehold.it/32x32",
2124+ "age": 21,
2125+ "eyeColor": "green",
2126+ "name": "Richards Mcfadden",
2127+ "gender": "male",
2128+ "company": "ZILLACOM",
2129+ "email": "richardsmcfadden@zillacom.com",
2130+ "phone": "+1 (883) 447-2941",
2131+ "address": "241 Turnbull Avenue, Chesterfield, Ohio, 7594",
2132+ "about": "Fugiat ut qui qui et Lorem ipsum do anim veniam. Sunt ex Lorem et nostrud consectetur esse nostrud qui minim ut veniam commodo. Cillum enim laboris aliquip sunt quis ut et adipisicing deserunt. Est aute amet elit non duis deserunt nisi quis excepteur do velit. Nostrud laboris ullamco sunt occaecat Lorem nostrud laboris.\r\n",
2133+ "registered": "2014-07-04T03:08:44 +07:00",
2134+ "latitude": -66.813737,
2135+ "longitude": 75.337073,
2136+ "tags": [
2137+ "elit",
2138+ "consequat",
2139+ "excepteur",
2140+ "qui",
2141+ "deserunt",
2142+ "sint",
2143+ "ipsum"
2144+ ],
2145+ "friends": [
2146+ {
2147+ "id": 0,
2148+ "name": "Mercado Quinn"
2149+ },
2150+ {
2151+ "id": 1,
2152+ "name": "Lucia Roberts"
2153+ },
2154+ {
2155+ "id": 2,
2156+ "name": "Essie Cohen"
2157+ }
2158+ ],
2159+ "greeting": "Hello, Richards Mcfadden! You have 5 unread messages.",
2160+ "favoriteFruit": "banana"
2161+ },
2162+ {
2163+ "_id": "54727a9033409e09e42cf3f1",
2164+ "index": 48,
2165+ "guid": "6ea51613-14f0-42b7-97c6-eb7a5cc32226",
2166+ "isActive": true,
2167+ "balance": "$3,907.64",
2168+ "picture": "http://placehold.it/32x32",
2169+ "age": 31,
2170+ "eyeColor": "blue",
2171+ "name": "Sargent Harrington",
2172+ "gender": "male",
2173+ "company": "DIGINETIC",
2174+ "email": "sargentharrington@diginetic.com",
2175+ "phone": "+1 (974) 427-2742",
2176+ "address": "883 Kermit Place, Rehrersburg, Virgin Islands, 4044",
2177+ "about": "Officia eiusmod do ut ipsum voluptate aute mollit minim ea incididunt ipsum commodo. Qui aute commodo dolor id pariatur ullamco adipisicing duis irure reprehenderit aliquip ullamco consequat. Sunt ad non deserunt velit consectetur ipsum. Sit voluptate aliquip nisi ea pariatur proident ut eu cillum. Irure sunt ad aliqua et enim. Deserunt deserunt incididunt Lorem commodo aliqua.\r\n",
2178+ "registered": "2014-06-16T00:32:02 +07:00",
2179+ "latitude": -88.301682,
2180+ "longitude": -16.268399,
2181+ "tags": [
2182+ "Lorem",
2183+ "reprehenderit",
2184+ "consequat",
2185+ "officia",
2186+ "velit",
2187+ "ad",
2188+ "ex"
2189+ ],
2190+ "friends": [
2191+ {
2192+ "id": 0,
2193+ "name": "Dolly Swanson"
2194+ },
2195+ {
2196+ "id": 1,
2197+ "name": "Jeannette Underwood"
2198+ },
2199+ {
2200+ "id": 2,
2201+ "name": "Ayers Wheeler"
2202+ }
2203+ ],
2204+ "greeting": "Hello, Sargent Harrington! You have 3 unread messages.",
2205+ "favoriteFruit": "apple"
2206+ },
2207+ {
2208+ "_id": "54727a9083fe43074bb5b9c8",
2209+ "index": 49,
2210+ "guid": "d5835fea-0882-4e20-b86e-6dd8b9534b49",
2211+ "isActive": false,
2212+ "balance": "$2,481.41",
2213+ "picture": "http://placehold.it/32x32",
2214+ "age": 22,
2215+ "eyeColor": "green",
2216+ "name": "Kristin Perez",
2217+ "gender": "female",
2218+ "company": "JAMNATION",
2219+ "email": "kristinperez@jamnation.com",
2220+ "phone": "+1 (917) 575-2693",
2221+ "address": "737 Schroeders Avenue, Chemung, Nebraska, 8601",
2222+ "about": "Voluptate id id mollit in aliquip aliquip duis cupidatat elit voluptate proident sit sunt voluptate. Irure ipsum esse duis culpa esse et do officia consequat velit commodo Lorem. Dolore incididunt proident proident officia aliqua mollit nisi exercitation consectetur. Est dolore consectetur aliqua occaecat est. Labore nostrud ipsum aliquip labore elit aliquip magna ex esse do consequat minim id. Sit sint ea ad irure voluptate occaecat duis magna. Sint ex minim irure anim sint do cillum.\r\n",
2223+ "registered": "2014-08-12T23:35:39 +07:00",
2224+ "latitude": 75.002428,
2225+ "longitude": 12.266159,
2226+ "tags": [
2227+ "anim",
2228+ "exercitation",
2229+ "excepteur",
2230+ "amet",
2231+ "aute",
2232+ "mollit",
2233+ "aliquip"
2234+ ],
2235+ "friends": [
2236+ {
2237+ "id": 0,
2238+ "name": "Gilliam Steele"
2239+ },
2240+ {
2241+ "id": 1,
2242+ "name": "Loretta Brennan"
2243+ },
2244+ {
2245+ "id": 2,
2246+ "name": "Ratliff Norton"
2247+ }
2248+ ],
2249+ "greeting": "Hello, Kristin Perez! You have 9 unread messages.",
2250+ "favoriteFruit": "apple"
2251+ },
2252+ {
2253+ "_id": "54727a90f594e03626363339",
2254+ "index": 50,
2255+ "guid": "bdb8284c-7b55-4791-90c0-d9e4abecd91f",
2256+ "isActive": true,
2257+ "balance": "$1,906.85",
2258+ "picture": "http://placehold.it/32x32",
2259+ "age": 33,
2260+ "eyeColor": "green",
2261+ "name": "Petra Scott",
2262+ "gender": "female",
2263+ "company": "BRAINCLIP",
2264+ "email": "petrascott@brainclip.com",
2265+ "phone": "+1 (942) 449-2471",
2266+ "address": "759 Coleridge Street, Tuskahoma, Virginia, 9943",
2267+ "about": "Consectetur magna consequat ea est. Minim veniam culpa deserunt aliqua in dolor ex aliqua occaecat reprehenderit. Proident in mollit ad est excepteur anim quis aliquip non consequat minim cillum deserunt. Occaecat sint ad et irure sit ad ad sit sint quis sunt nisi.\r\n",
2268+ "registered": "2014-11-12T20:54:05 +08:00",
2269+ "latitude": -64.192199,
2270+ "longitude": -144.535209,
2271+ "tags": [
2272+ "cillum",
2273+ "id",
2274+ "aliqua",
2275+ "reprehenderit",
2276+ "officia",
2277+ "aliquip",
2278+ "in"
2279+ ],
2280+ "friends": [
2281+ {
2282+ "id": 0,
2283+ "name": "Holmes Rasmussen"
2284+ },
2285+ {
2286+ "id": 1,
2287+ "name": "Leach Hickman"
2288+ },
2289+ {
2290+ "id": 2,
2291+ "name": "Noelle Battle"
2292+ }
2293+ ],
2294+ "greeting": "Hello, Petra Scott! You have 9 unread messages.",
2295+ "favoriteFruit": "banana"
2296+ },
2297+ {
2298+ "_id": "54727a902f79c4cdada83391",
2299+ "index": 51,
2300+ "guid": "c79aaabd-212b-4dc8-b1b5-de14362b550c",
2301+ "isActive": true,
2302+ "balance": "$2,845.25",
2303+ "picture": "http://placehold.it/32x32",
2304+ "age": 32,
2305+ "eyeColor": "brown",
2306+ "name": "Kelli Gates",
2307+ "gender": "female",
2308+ "company": "MUSANPOLY",
2309+ "email": "kelligates@musanpoly.com",
2310+ "phone": "+1 (899) 414-3276",
2311+ "address": "888 Elm Place, Grayhawk, Wyoming, 8032",
2312+ "about": "Nisi excepteur laboris duis magna dolore occaecat dolor cupidatat. Ut commodo proident incididunt ea anim enim deserunt laboris occaecat anim cillum. In amet exercitation officia mollit officia quis exercitation aliqua culpa ullamco consequat excepteur aute mollit. Aliqua tempor consequat ullamco consequat qui duis tempor ex est aliqua id nulla Lorem occaecat. Et laborum culpa pariatur et ad minim. Nulla ad eiusmod pariatur velit aliquip magna duis duis tempor. Nisi ea reprehenderit aliquip magna esse occaecat consectetur ullamco esse.\r\n",
2313+ "registered": "2014-03-01T15:11:58 +08:00",
2314+ "latitude": 30.679655,
2315+ "longitude": -175.200369,
2316+ "tags": [
2317+ "laborum",
2318+ "non",
2319+ "pariatur",
2320+ "ea",
2321+ "non",
2322+ "proident",
2323+ "culpa"
2324+ ],
2325+ "friends": [
2326+ {
2327+ "id": 0,
2328+ "name": "Coleman Mejia"
2329+ },
2330+ {
2331+ "id": 1,
2332+ "name": "Meyers Sellers"
2333+ },
2334+ {
2335+ "id": 2,
2336+ "name": "Stuart Carney"
2337+ }
2338+ ],
2339+ "greeting": "Hello, Kelli Gates! You have 1 unread messages.",
2340+ "favoriteFruit": "strawberry"
2341+ },
2342+ {
2343+ "_id": "54727a9040ef999266e0142c",
2344+ "index": 52,
2345+ "guid": "cb9bc903-5e95-4918-91ed-8485d75489fa",
2346+ "isActive": true,
2347+ "balance": "$1,352.24",
2348+ "picture": "http://placehold.it/32x32",
2349+ "age": 29,
2350+ "eyeColor": "green",
2351+ "name": "Maricela Conrad",
2352+ "gender": "female",
2353+ "company": "QUIZKA",
2354+ "email": "maricelaconrad@quizka.com",
2355+ "phone": "+1 (924) 592-2199",
2356+ "address": "339 Virginia Place, Lutsen, Marshall Islands, 1479",
2357+ "about": "Quis commodo cupidatat mollit et deserunt id ut anim nostrud nisi mollit esse commodo laborum. Cillum exercitation anim cillum esse quis consequat. Dolor laboris exercitation irure ullamco excepteur ipsum deserunt. Anim veniam dolore labore exercitation et consectetur eiusmod eu. Aliquip velit consectetur nostrud dolore.\r\n",
2358+ "registered": "2014-06-15T22:10:22 +07:00",
2359+ "latitude": -0.554318,
2360+ "longitude": -65.103334,
2361+ "tags": [
2362+ "adipisicing",
2363+ "irure",
2364+ "deserunt",
2365+ "culpa",
2366+ "cupidatat",
2367+ "do",
2368+ "occaecat"
2369+ ],
2370+ "friends": [
2371+ {
2372+ "id": 0,
2373+ "name": "Gentry Holden"
2374+ },
2375+ {
2376+ "id": 1,
2377+ "name": "Dillard Herrera"
2378+ },
2379+ {
2380+ "id": 2,
2381+ "name": "Guzman Patton"
2382+ }
2383+ ],
2384+ "greeting": "Hello, Maricela Conrad! You have 1 unread messages.",
2385+ "favoriteFruit": "strawberry"
2386+ },
2387+ {
2388+ "_id": "54727a905369b0bb27f85607",
2389+ "index": 53,
2390+ "guid": "fa3a125f-2d10-4015-a0fd-68d7e2401a31",
2391+ "isActive": false,
2392+ "balance": "$2,858.28",
2393+ "picture": "http://placehold.it/32x32",
2394+ "age": 34,
2395+ "eyeColor": "green",
2396+ "name": "Simpson Cleveland",
2397+ "gender": "male",
2398+ "company": "ZAPPIX",
2399+ "email": "simpsoncleveland@zappix.com",
2400+ "phone": "+1 (808) 572-3724",
2401+ "address": "202 Georgia Avenue, Jamestown, Texas, 6347",
2402+ "about": "Reprehenderit elit in duis sunt quis consequat mollit ut consequat amet. Incididunt non sint culpa non mollit incididunt elit irure sint excepteur esse sit ut fugiat. Ullamco esse culpa excepteur magna laborum sunt magna ut reprehenderit aute laboris ullamco Lorem ea. Culpa ut sit amet dolor adipisicing veniam non occaecat ex ad ea. Quis nostrud sit mollit aliqua adipisicing.\r\n",
2403+ "registered": "2014-10-27T07:51:50 +07:00",
2404+ "latitude": -34.024135,
2405+ "longitude": 66.799767,
2406+ "tags": [
2407+ "anim",
2408+ "pariatur",
2409+ "fugiat",
2410+ "reprehenderit",
2411+ "ullamco",
2412+ "labore",
2413+ "fugiat"
2414+ ],
2415+ "friends": [
2416+ {
2417+ "id": 0,
2418+ "name": "Hester Howell"
2419+ },
2420+ {
2421+ "id": 1,
2422+ "name": "Deena King"
2423+ },
2424+ {
2425+ "id": 2,
2426+ "name": "Wilkerson Fox"
2427+ }
2428+ ],
2429+ "greeting": "Hello, Simpson Cleveland! You have 10 unread messages.",
2430+ "favoriteFruit": "apple"
2431+ },
2432+ {
2433+ "_id": "54727a900271aa8695bc5cdf",
2434+ "index": 54,
2435+ "guid": "501e7876-6b3f-4f2e-bbaf-914e6ff23845",
2436+ "isActive": false,
2437+ "balance": "$2,015.78",
2438+ "picture": "http://placehold.it/32x32",
2439+ "age": 23,
2440+ "eyeColor": "brown",
2441+ "name": "Queen Mckay",
2442+ "gender": "female",
2443+ "company": "PROXSOFT",
2444+ "email": "queenmckay@proxsoft.com",
2445+ "phone": "+1 (954) 439-2402",
2446+ "address": "749 Wakeman Place, Sidman, Massachusetts, 3345",
2447+ "about": "Culpa irure velit cupidatat voluptate ad non anim sit sunt in esse adipisicing. Officia amet Lorem et id eiusmod non commodo deserunt irure tempor aute fugiat est cupidatat. Ut amet ad consequat nulla in in deserunt minim ipsum adipisicing eu adipisicing nisi nulla. Qui culpa sunt aute amet est consequat excepteur occaecat voluptate in do. In labore aute sit duis enim sunt qui ullamco est tempor labore aute aliquip. Sunt eu veniam in amet cillum nisi tempor quis in fugiat culpa exercitation sunt. Exercitation enim dolore sit exercitation in mollit culpa magna amet et amet.\r\n",
2448+ "registered": "2014-05-02T07:58:52 +07:00",
2449+ "latitude": -24.836277,
2450+ "longitude": -108.207588,
2451+ "tags": [
2452+ "aliquip",
2453+ "dolor",
2454+ "velit",
2455+ "non",
2456+ "sint",
2457+ "deserunt",
2458+ "ut"
2459+ ],
2460+ "friends": [
2461+ {
2462+ "id": 0,
2463+ "name": "Maynard Shannon"
2464+ },
2465+ {
2466+ "id": 1,
2467+ "name": "Ernestine Sullivan"
2468+ },
2469+ {
2470+ "id": 2,
2471+ "name": "Sullivan Juarez"
2472+ }
2473+ ],
2474+ "greeting": "Hello, Queen Mckay! You have 8 unread messages.",
2475+ "favoriteFruit": "strawberry"
2476+ },
2477+ {
2478+ "_id": "54727a902c9d0c4f7379c125",
2479+ "index": 55,
2480+ "guid": "c13147c1-9aab-432b-9eaa-eda127454f06",
2481+ "isActive": false,
2482+ "balance": "$1,498.79",
2483+ "picture": "http://placehold.it/32x32",
2484+ "age": 21,
2485+ "eyeColor": "green",
2486+ "name": "Madeline Rhodes",
2487+ "gender": "female",
2488+ "company": "LOCAZONE",
2489+ "email": "madelinerhodes@locazone.com",
2490+ "phone": "+1 (817) 404-2650",
2491+ "address": "648 Rochester Avenue, Tetherow, Arizona, 751",
2492+ "about": "Sit velit ea enim mollit ad fugiat anim commodo minim qui sit dolor aliqua. Amet nostrud aliquip qui velit et ea reprehenderit sint ipsum quis. Ut amet aute enim proident. Et officia nostrud voluptate non tempor quis aliquip ullamco commodo consequat fugiat ut. Eiusmod sit excepteur non nostrud esse consequat nulla sunt deserunt aliqua. Commodo laborum voluptate ea eu non excepteur pariatur.\r\n",
2493+ "registered": "2014-03-14T19:50:42 +07:00",
2494+ "latitude": -31.489199,
2495+ "longitude": 124.798218,
2496+ "tags": [
2497+ "tempor",
2498+ "culpa",
2499+ "pariatur",
2500+ "irure",
2501+ "nisi",
2502+ "proident",
2503+ "quis"
2504+ ],
2505+ "friends": [
2506+ {
2507+ "id": 0,
2508+ "name": "Hebert Kline"
2509+ },
2510+ {
2511+ "id": 1,
2512+ "name": "Daisy Cochran"
2513+ },
2514+ {
2515+ "id": 2,
2516+ "name": "Russell Gilmore"
2517+ }
2518+ ],
2519+ "greeting": "Hello, Madeline Rhodes! You have 10 unread messages.",
2520+ "favoriteFruit": "strawberry"
2521+ },
2522+ {
2523+ "_id": "54727a90b6d8621dab6c9126",
2524+ "index": 56,
2525+ "guid": "2ebcecc1-180e-46b7-bdca-9d9a6babc687",
2526+ "isActive": false,
2527+ "balance": "$3,190.82",
2528+ "picture": "http://placehold.it/32x32",
2529+ "age": 27,
2530+ "eyeColor": "blue",
2531+ "name": "Rasmussen Knapp",
2532+ "gender": "male",
2533+ "company": "BIOSPAN",
2534+ "email": "rasmussenknapp@biospan.com",
2535+ "phone": "+1 (860) 461-3219",
2536+ "address": "214 Williams Court, Brady, Oregon, 5174",
2537+ "about": "Tempor ullamco officia laborum irure cillum est culpa tempor pariatur aliqua officia incididunt tempor. Laboris adipisicing nostrud Lorem veniam enim consequat mollit nisi. Minim nulla culpa dolor esse dolore deserunt reprehenderit adipisicing aliquip.\r\n",
2538+ "registered": "2014-08-11T17:15:51 +07:00",
2539+ "latitude": -25.850361,
2540+ "longitude": -36.01581,
2541+ "tags": [
2542+ "enim",
2543+ "laboris",
2544+ "dolore",
2545+ "amet",
2546+ "nisi",
2547+ "in",
2548+ "aliqua"
2549+ ],
2550+ "friends": [
2551+ {
2552+ "id": 0,
2553+ "name": "Letha Peters"
2554+ },
2555+ {
2556+ "id": 1,
2557+ "name": "Lavonne Mccarthy"
2558+ },
2559+ {
2560+ "id": 2,
2561+ "name": "Hensley Kim"
2562+ }
2563+ ],
2564+ "greeting": "Hello, Rasmussen Knapp! You have 5 unread messages.",
2565+ "favoriteFruit": "banana"
2566+ },
2567+ {
2568+ "_id": "54727a902e4d6731ddf406bf",
2569+ "index": 57,
2570+ "guid": "7a13b0b9-7cc4-477a-944f-a27eb7e74ae6",
2571+ "isActive": false,
2572+ "balance": "$1,711.06",
2573+ "picture": "http://placehold.it/32x32",
2574+ "age": 21,
2575+ "eyeColor": "brown",
2576+ "name": "Maryellen Russell",
2577+ "gender": "female",
2578+ "company": "MAXEMIA",
2579+ "email": "maryellenrussell@maxemia.com",
2580+ "phone": "+1 (839) 590-2573",
2581+ "address": "514 Roosevelt Court, Sugartown, American Samoa, 6602",
2582+ "about": "Pariatur laborum nostrud aliqua nisi cillum sunt laborum cillum minim pariatur et consectetur minim adipisicing. Exercitation non dolor id voluptate aute sint sunt. Nostrud cupidatat officia dolor cupidatat ex irure non. Fugiat laboris quis id aliqua sunt consectetur est ea. Eiusmod mollit enim Lorem cupidatat consectetur anim nostrud enim eu irure. Et eiusmod velit esse fugiat elit laboris labore voluptate ipsum. Excepteur consequat proident quis voluptate excepteur nulla in.\r\n",
2583+ "registered": "2014-05-17T21:19:21 +07:00",
2584+ "latitude": -15.634102,
2585+ "longitude": -81.860909,
2586+ "tags": [
2587+ "ea",
2588+ "ipsum",
2589+ "esse",
2590+ "veniam",
2591+ "reprehenderit",
2592+ "adipisicing",
2593+ "do"
2594+ ],
2595+ "friends": [
2596+ {
2597+ "id": 0,
2598+ "name": "Virgie Whitaker"
2599+ },
2600+ {
2601+ "id": 1,
2602+ "name": "Earlene Ruiz"
2603+ },
2604+ {
2605+ "id": 2,
2606+ "name": "Rosa Estrada"
2607+ }
2608+ ],
2609+ "greeting": "Hello, Maryellen Russell! You have 5 unread messages.",
2610+ "favoriteFruit": "apple"
2611+ },
2612+ {
2613+ "_id": "54727a906ea1b53a8de569dd",
2614+ "index": 58,
2615+ "guid": "0e91224f-af4a-4cb0-a51e-5874ad140b32",
2616+ "isActive": false,
2617+ "balance": "$1,226.26",
2618+ "picture": "http://placehold.it/32x32",
2619+ "age": 21,
2620+ "eyeColor": "blue",
2621+ "name": "Wright Morris",
2622+ "gender": "male",
2623+ "company": "APPLICA",
2624+ "email": "wrightmorris@applica.com",
2625+ "phone": "+1 (968) 550-2677",
2626+ "address": "630 Hornell Loop, Sparkill, Montana, 7355",
2627+ "about": "Veniam commodo nostrud nostrud ullamco do aliquip quis dolore laboris culpa minim do est. In sunt consequat irure veniam minim duis ex commodo duis. Ullamco eu reprehenderit dolore eiusmod est exercitation nisi tempor.\r\n",
2628+ "registered": "2014-02-05T10:33:53 +08:00",
2629+ "latitude": -16.050009,
2630+ "longitude": -149.883606,
2631+ "tags": [
2632+ "Lorem",
2633+ "in",
2634+ "est",
2635+ "consequat",
2636+ "cillum",
2637+ "adipisicing",
2638+ "commodo"
2639+ ],
2640+ "friends": [
2641+ {
2642+ "id": 0,
2643+ "name": "Washington Carson"
2644+ },
2645+ {
2646+ "id": 1,
2647+ "name": "Hines Bean"
2648+ },
2649+ {
2650+ "id": 2,
2651+ "name": "Cox Powell"
2652+ }
2653+ ],
2654+ "greeting": "Hello, Wright Morris! You have 7 unread messages.",
2655+ "favoriteFruit": "banana"
2656+ },
2657+ {
2658+ "_id": "54727a9047deb3b6b5122221",
2659+ "index": 59,
2660+ "guid": "f85bae2d-b72a-4f81-b596-b5338ec41578",
2661+ "isActive": true,
2662+ "balance": "$1,928.94",
2663+ "picture": "http://placehold.it/32x32",
2664+ "age": 26,
2665+ "eyeColor": "brown",
2666+ "name": "Agnes Guzman",
2667+ "gender": "female",
2668+ "company": "PEARLESSA",
2669+ "email": "agnesguzman@pearlessa.com",
2670+ "phone": "+1 (859) 451-3816",
2671+ "address": "874 Duffield Street, Benson, Hawaii, 1388",
2672+ "about": "Ad voluptate incididunt ullamco ullamco velit adipisicing culpa aute minim adipisicing non. Consectetur elit ullamco mollit ipsum aliqua in enim Lorem eiusmod nisi fugiat exercitation. Do amet pariatur deserunt ex labore exercitation non ad commodo aliquip. Nostrud magna ipsum reprehenderit qui consectetur cillum irure nostrud do quis excepteur cillum.\r\n",
2673+ "registered": "2014-07-28T12:22:31 +07:00",
2674+ "latitude": -89.041016,
2675+ "longitude": -4.513498,
2676+ "tags": [
2677+ "eiusmod",
2678+ "deserunt",
2679+ "deserunt",
2680+ "eiusmod",
2681+ "minim",
2682+ "nisi",
2683+ "magna"
2684+ ],
2685+ "friends": [
2686+ {
2687+ "id": 0,
2688+ "name": "Kari Trujillo"
2689+ },
2690+ {
2691+ "id": 1,
2692+ "name": "Kaye Sloan"
2693+ },
2694+ {
2695+ "id": 2,
2696+ "name": "Aguilar Fields"
2697+ }
2698+ ],
2699+ "greeting": "Hello, Agnes Guzman! You have 9 unread messages.",
2700+ "favoriteFruit": "banana"
2701+ },
2702+ {
2703+ "_id": "54727a905ad56237e1e3ae99",
2704+ "index": 60,
2705+ "guid": "3244774e-3c8d-4c84-8ae6-d04486ce05d7",
2706+ "isActive": false,
2707+ "balance": "$3,045.23",
2708+ "picture": "http://placehold.it/32x32",
2709+ "age": 27,
2710+ "eyeColor": "green",
2711+ "name": "Jill Evans",
2712+ "gender": "female",
2713+ "company": "GOLISTIC",
2714+ "email": "jillevans@golistic.com",
2715+ "phone": "+1 (871) 577-2459",
2716+ "address": "738 Putnam Avenue, Ona, South Dakota, 4749",
2717+ "about": "Irure exercitation esse quis commodo sunt laborum esse id anim. Ut ut ad quis qui id labore ut tempor labore velit laborum pariatur. Dolore ipsum ea tempor excepteur esse cillum sit non eu sit irure adipisicing mollit. Nulla ut proident velit consequat officia magna ex duis proident aliqua amet exercitation do commodo. Nulla Lorem ad reprehenderit mollit deserunt veniam qui duis enim enim consectetur do.\r\n",
2718+ "registered": "2014-05-05T11:50:14 +07:00",
2719+ "latitude": -56.941561,
2720+ "longitude": -169.158104,
2721+ "tags": [
2722+ "consequat",
2723+ "minim",
2724+ "minim",
2725+ "laborum",
2726+ "aute",
2727+ "nisi",
2728+ "aliqua"
2729+ ],
2730+ "friends": [
2731+ {
2732+ "id": 0,
2733+ "name": "Compton Becker"
2734+ },
2735+ {
2736+ "id": 1,
2737+ "name": "Conner Wall"
2738+ },
2739+ {
2740+ "id": 2,
2741+ "name": "Bright Harvey"
2742+ }
2743+ ],
2744+ "greeting": "Hello, Jill Evans! You have 2 unread messages.",
2745+ "favoriteFruit": "banana"
2746+ },
2747+ {
2748+ "_id": "54727a90f530d8bc9e6faf86",
2749+ "index": 61,
2750+ "guid": "a983ed9d-fb1b-48ee-94b7-54b33634ccbc",
2751+ "isActive": false,
2752+ "balance": "$3,091.12",
2753+ "picture": "http://placehold.it/32x32",
2754+ "age": 21,
2755+ "eyeColor": "brown",
2756+ "name": "Susana Berry",
2757+ "gender": "female",
2758+ "company": "POWERNET",
2759+ "email": "susanaberry@powernet.com",
2760+ "phone": "+1 (879) 454-3173",
2761+ "address": "141 Cambridge Place, Florence, District Of Columbia, 6760",
2762+ "about": "Magna occaecat laborum voluptate excepteur. Proident esse voluptate enim est exercitation elit voluptate minim ex. Velit officia cupidatat sit quis reprehenderit minim voluptate et nulla cupidatat duis mollit. Aute incididunt id magna nostrud cupidatat qui sit. Enim anim enim excepteur est sunt non enim proident sit non deserunt et veniam culpa. Ullamco irure ullamco id esse exercitation anim et fugiat labore. Do enim exercitation deserunt sint consectetur occaecat commodo commodo elit.\r\n",
2763+ "registered": "2014-06-08T14:24:28 +07:00",
2764+ "latitude": 75.590221,
2765+ "longitude": -127.23641,
2766+ "tags": [
2767+ "esse",
2768+ "anim",
2769+ "est",
2770+ "anim",
2771+ "esse",
2772+ "adipisicing",
2773+ "mollit"
2774+ ],
2775+ "friends": [
2776+ {
2777+ "id": 0,
2778+ "name": "Helene Holcomb"
2779+ },
2780+ {
2781+ "id": 1,
2782+ "name": "Kramer Gregory"
2783+ },
2784+ {
2785+ "id": 2,
2786+ "name": "Fitzgerald Graves"
2787+ }
2788+ ],
2789+ "greeting": "Hello, Susana Berry! You have 1 unread messages.",
2790+ "favoriteFruit": "strawberry"
2791+ },
2792+ {
2793+ "_id": "54727a90e6f9c07f205357ec",
2794+ "index": 62,
2795+ "guid": "26cecce2-1202-4703-8bf5-8ff431336b37",
2796+ "isActive": false,
2797+ "balance": "$3,437.96",
2798+ "picture": "http://placehold.it/32x32",
2799+ "age": 33,
2800+ "eyeColor": "blue",
2801+ "name": "Weeks Wallace",
2802+ "gender": "male",
2803+ "company": "SUREMAX",
2804+ "email": "weekswallace@suremax.com",
2805+ "phone": "+1 (946) 528-2733",
2806+ "address": "219 Dekalb Avenue, Hasty, North Carolina, 7278",
2807+ "about": "Magna dolor ex dolor eiusmod sint laboris consequat non magna ipsum. Nostrud qui aute ut consectetur in amet deserunt aliqua voluptate. In velit nisi voluptate amet consequat. Tempor deserunt velit ut aliqua duis cupidatat laboris amet in ipsum aliquip adipisicing. Quis anim cillum labore ipsum commodo deserunt mollit tempor tempor pariatur dolore. Irure aute ipsum do occaecat laborum eiusmod ad proident exercitation elit cillum do.\r\n",
2808+ "registered": "2014-07-17T22:33:55 +07:00",
2809+ "latitude": -22.986103,
2810+ "longitude": -110.848014,
2811+ "tags": [
2812+ "ut",
2813+ "irure",
2814+ "elit",
2815+ "quis",
2816+ "ut",
2817+ "fugiat",
2818+ "sunt"
2819+ ],
2820+ "friends": [
2821+ {
2822+ "id": 0,
2823+ "name": "Colon Tyler"
2824+ },
2825+ {
2826+ "id": 1,
2827+ "name": "Dianne Lucas"
2828+ },
2829+ {
2830+ "id": 2,
2831+ "name": "Mathews Acosta"
2832+ }
2833+ ],
2834+ "greeting": "Hello, Weeks Wallace! You have 8 unread messages.",
2835+ "favoriteFruit": "banana"
2836+ },
2837+ {
2838+ "_id": "54727a9034039bde61fe5fdb",
2839+ "index": 63,
2840+ "guid": "cad69671-eb0a-4128-8024-9a0f469cf1f8",
2841+ "isActive": true,
2842+ "balance": "$2,503.03",
2843+ "picture": "http://placehold.it/32x32",
2844+ "age": 21,
2845+ "eyeColor": "green",
2846+ "name": "Watson Tucker",
2847+ "gender": "male",
2848+ "company": "IMKAN",
2849+ "email": "watsontucker@imkan.com",
2850+ "phone": "+1 (841) 499-3837",
2851+ "address": "297 Falmouth Street, Woodlands, Tennessee, 2227",
2852+ "about": "Do aliquip laboris voluptate aliqua duis duis qui. Lorem officia consectetur et in nulla do aliquip occaecat labore officia sunt ipsum ad consequat. Culpa voluptate adipisicing dolore do velit ea.\r\n",
2853+ "registered": "2014-09-16T17:39:32 +07:00",
2854+ "latitude": 76.336221,
2855+ "longitude": -154.036452,
2856+ "tags": [
2857+ "veniam",
2858+ "non",
2859+ "aliquip",
2860+ "ex",
2861+ "esse",
2862+ "sint",
2863+ "voluptate"
2864+ ],
2865+ "friends": [
2866+ {
2867+ "id": 0,
2868+ "name": "Lolita Finch"
2869+ },
2870+ {
2871+ "id": 1,
2872+ "name": "Gilmore Solis"
2873+ },
2874+ {
2875+ "id": 2,
2876+ "name": "Faith Gallegos"
2877+ }
2878+ ],
2879+ "greeting": "Hello, Watson Tucker! You have 9 unread messages.",
2880+ "favoriteFruit": "strawberry"
2881+ },
2882+ {
2883+ "_id": "54727a90780b195513995278",
2884+ "index": 64,
2885+ "guid": "625810dc-6353-4387-862c-e71ed6115966",
2886+ "isActive": false,
2887+ "balance": "$2,428.28",
2888+ "picture": "http://placehold.it/32x32",
2889+ "age": 33,
2890+ "eyeColor": "green",
2891+ "name": "Levy Ortega",
2892+ "gender": "male",
2893+ "company": "FIBEROX",
2894+ "email": "levyortega@fiberox.com",
2895+ "phone": "+1 (819) 514-2393",
2896+ "address": "485 Dunne Place, Sena, Idaho, 1583",
2897+ "about": "Exercitation reprehenderit voluptate aliqua laborum dolore consequat pariatur ipsum occaecat culpa et dolore voluptate. Laborum ut adipisicing exercitation irure ipsum ea. Occaecat aute officia et qui id elit adipisicing consectetur. Laborum ullamco pariatur eiusmod dolore aliqua ea nostrud. Occaecat ullamco nostrud deserunt ea officia. Deserunt incididunt et laboris veniam laboris adipisicing culpa laborum occaecat culpa sit labore. Irure in ipsum exercitation ea laboris culpa.\r\n",
2898+ "registered": "2014-06-19T01:29:28 +07:00",
2899+ "latitude": -66.489978,
2900+ "longitude": 35.142253,
2901+ "tags": [
2902+ "consequat",
2903+ "ut",
2904+ "ipsum",
2905+ "ullamco",
2906+ "anim",
2907+ "irure",
2908+ "consectetur"
2909+ ],
2910+ "friends": [
2911+ {
2912+ "id": 0,
2913+ "name": "Nellie Webb"
2914+ },
2915+ {
2916+ "id": 1,
2917+ "name": "Sheri Roy"
2918+ },
2919+ {
2920+ "id": 2,
2921+ "name": "Elizabeth Cooke"
2922+ }
2923+ ],
2924+ "greeting": "Hello, Levy Ortega! You have 3 unread messages.",
2925+ "favoriteFruit": "strawberry"
2926+ },
2927+ {
2928+ "_id": "54727a901df67d5f687df4ab",
2929+ "index": 65,
2930+ "guid": "73d49a86-1caa-4ef5-b637-aef68b215e96",
2931+ "isActive": true,
2932+ "balance": "$3,990.52",
2933+ "picture": "http://placehold.it/32x32",
2934+ "age": 24,
2935+ "eyeColor": "blue",
2936+ "name": "Webster Conway",
2937+ "gender": "male",
2938+ "company": "PRISMATIC",
2939+ "email": "websterconway@prismatic.com",
2940+ "phone": "+1 (857) 462-3648",
2941+ "address": "557 Dekoven Court, Sandston, Palau, 8537",
2942+ "about": "Fugiat non velit fugiat sint minim magna occaecat deserunt enim adipisicing excepteur amet. Esse incididunt mollit nisi ut id consectetur qui laborum consequat et occaecat. Tempor cupidatat enim sunt cillum. Laborum consequat Lorem enim fugiat id voluptate incididunt aliquip eu esse dolor duis ad. Officia dolore duis nisi veniam ut ut dolore fugiat deserunt aute consectetur. Excepteur voluptate mollit velit duis ullamco voluptate ullamco.\r\n",
2943+ "registered": "2014-04-30T14:39:28 +07:00",
2944+ "latitude": -67.082095,
2945+ "longitude": 38.979656,
2946+ "tags": [
2947+ "amet",
2948+ "aliquip",
2949+ "ea",
2950+ "culpa",
2951+ "incididunt",
2952+ "dolor",
2953+ "fugiat"
2954+ ],
2955+ "friends": [
2956+ {
2957+ "id": 0,
2958+ "name": "Sharp Ramirez"
2959+ },
2960+ {
2961+ "id": 1,
2962+ "name": "Leona Campbell"
2963+ },
2964+ {
2965+ "id": 2,
2966+ "name": "Hyde Reyes"
2967+ }
2968+ ],
2969+ "greeting": "Hello, Webster Conway! You have 3 unread messages.",
2970+ "favoriteFruit": "banana"
2971+ },
2972+ {
2973+ "_id": "54727a90f7b820f93d4df443",
2974+ "index": 66,
2975+ "guid": "1a306b16-3a38-426c-9254-22dd7264c108",
2976+ "isActive": true,
2977+ "balance": "$2,194.31",
2978+ "picture": "http://placehold.it/32x32",
2979+ "age": 33,
2980+ "eyeColor": "brown",
2981+ "name": "Hill Lancaster",
2982+ "gender": "male",
2983+ "company": "UNIWORLD",
2984+ "email": "hilllancaster@uniworld.com",
2985+ "phone": "+1 (836) 462-3865",
2986+ "address": "786 Dictum Court, Roulette, Minnesota, 3625",
2987+ "about": "Adipisicing ea commodo et nulla ullamco fugiat do magna occaecat consectetur cupidatat nisi fugiat consequat. Velit veniam eu cupidatat adipisicing culpa non non velit amet labore. Dolore dolor enim eiusmod ipsum excepteur non sint ullamco irure laboris nulla id.\r\n",
2988+ "registered": "2014-03-09T12:51:14 +07:00",
2989+ "latitude": -65.924237,
2990+ "longitude": 161.521943,
2991+ "tags": [
2992+ "amet",
2993+ "id",
2994+ "aliquip",
2995+ "aliquip",
2996+ "exercitation",
2997+ "excepteur",
2998+ "cupidatat"
2999+ ],
3000+ "friends": [
3001+ {
3002+ "id": 0,
3003+ "name": "Morrow Mullen"
3004+ },
3005+ {
3006+ "id": 1,
3007+ "name": "Calderon Campos"
3008+ },
3009+ {
3010+ "id": 2,
3011+ "name": "Janis Ramsey"
3012+ }
3013+ ],
3014+ "greeting": "Hello, Hill Lancaster! You have 10 unread messages.",
3015+ "favoriteFruit": "strawberry"
3016+ },
3017+ {
3018+ "_id": "54727a906c7f0305536c965c",
3019+ "index": 67,
3020+ "guid": "d1dadd20-7ced-447d-ba72-61e886f4195e",
3021+ "isActive": true,
3022+ "balance": "$3,014.64",
3023+ "picture": "http://placehold.it/32x32",
3024+ "age": 25,
3025+ "eyeColor": "brown",
3026+ "name": "Fletcher Pearson",
3027+ "gender": "male",
3028+ "company": "QOT",
3029+ "email": "fletcherpearson@qot.com",
3030+ "phone": "+1 (930) 439-2213",
3031+ "address": "779 Middagh Street, Crayne, Illinois, 2229",
3032+ "about": "Nulla sit officia velit dolore eiusmod veniam anim laborum Lorem anim et enim irure. Quis labore ad proident occaecat dolore tempor occaecat dolor dolore aliqua laboris esse enim. Dolore tempor cupidatat aute labore aliqua nulla non est.\r\n",
3033+ "registered": "2014-04-25T09:09:10 +07:00",
3034+ "latitude": -2.329892,
3035+ "longitude": 135.411164,
3036+ "tags": [
3037+ "magna",
3038+ "ipsum",
3039+ "tempor",
3040+ "velit",
3041+ "esse",
3042+ "magna",
3043+ "nisi"
3044+ ],
3045+ "friends": [
3046+ {
3047+ "id": 0,
3048+ "name": "Tonya Ashley"
3049+ },
3050+ {
3051+ "id": 1,
3052+ "name": "Latisha Burris"
3053+ },
3054+ {
3055+ "id": 2,
3056+ "name": "Tracey Rowe"
3057+ }
3058+ ],
3059+ "greeting": "Hello, Fletcher Pearson! You have 9 unread messages.",
3060+ "favoriteFruit": "banana"
3061+ },
3062+ {
3063+ "_id": "54727a9057e5269ab81d8e18",
3064+ "index": 68,
3065+ "guid": "4723bd56-76cb-4a30-bdf5-8b4c4c9805aa",
3066+ "isActive": false,
3067+ "balance": "$3,114.82",
3068+ "picture": "http://placehold.it/32x32",
3069+ "age": 23,
3070+ "eyeColor": "blue",
3071+ "name": "Odessa Lawson",
3072+ "gender": "female",
3073+ "company": "JOVIOLD",
3074+ "email": "odessalawson@joviold.com",
3075+ "phone": "+1 (921) 400-3177",
3076+ "address": "443 Ryder Avenue, Camino, Missouri, 487",
3077+ "about": "Labore aliquip nulla est eiusmod amet Lorem duis fugiat duis do excepteur voluptate in non. Consequat nisi reprehenderit ullamco eu sit id consectetur commodo culpa consequat dolore aliqua. Amet nulla ut in laboris dolor do ad laboris eu commodo qui dolore pariatur. Et qui cillum anim dolore ipsum excepteur id laboris minim dolor.\r\n",
3078+ "registered": "2014-03-26T22:07:14 +07:00",
3079+ "latitude": 18.291259,
3080+ "longitude": -86.22914,
3081+ "tags": [
3082+ "nisi",
3083+ "ut",
3084+ "dolore",
3085+ "ullamco",
3086+ "cupidatat",
3087+ "nulla",
3088+ "laborum"
3089+ ],
3090+ "friends": [
3091+ {
3092+ "id": 0,
3093+ "name": "Vonda Cote"
3094+ },
3095+ {
3096+ "id": 1,
3097+ "name": "Lewis Gonzales"
3098+ },
3099+ {
3100+ "id": 2,
3101+ "name": "Jacqueline Richmond"
3102+ }
3103+ ],
3104+ "greeting": "Hello, Odessa Lawson! You have 4 unread messages.",
3105+ "favoriteFruit": "apple"
3106+ },
3107+ {
3108+ "_id": "54727a90f748a6195f1c2b42",
3109+ "index": 69,
3110+ "guid": "697c2775-d924-436d-ba9f-e21bd4fa0f73",
3111+ "isActive": false,
3112+ "balance": "$1,269.09",
3113+ "picture": "http://placehold.it/32x32",
3114+ "age": 40,
3115+ "eyeColor": "green",
3116+ "name": "Selena Nieves",
3117+ "gender": "female",
3118+ "company": "INTRAWEAR",
3119+ "email": "selenanieves@intrawear.com",
3120+ "phone": "+1 (862) 476-3196",
3121+ "address": "101 Harkness Avenue, Worton, Connecticut, 400",
3122+ "about": "Sunt aliquip exercitation dolor dolore nostrud anim enim anim est officia. Minim ea Lorem ullamco reprehenderit officia reprehenderit ex ex reprehenderit. Qui nulla ullamco consequat minim exercitation. Veniam id eu pariatur ut veniam dolore aliquip qui aliqua incididunt ut.\r\n",
3123+ "registered": "2014-03-07T15:11:53 +08:00",
3124+ "latitude": -43.588256,
3125+ "longitude": 43.731157,
3126+ "tags": [
3127+ "duis",
3128+ "duis",
3129+ "reprehenderit",
3130+ "ad",
3131+ "magna",
3132+ "excepteur",
3133+ "officia"
3134+ ],
3135+ "friends": [
3136+ {
3137+ "id": 0,
3138+ "name": "Rutledge Hines"
3139+ },
3140+ {
3141+ "id": 1,
3142+ "name": "Carrillo Johnson"
3143+ },
3144+ {
3145+ "id": 2,
3146+ "name": "Morgan Parks"
3147+ }
3148+ ],
3149+ "greeting": "Hello, Selena Nieves! You have 9 unread messages.",
3150+ "favoriteFruit": "banana"
3151+ },
3152+ {
3153+ "_id": "54727a90628ac7e339a407a5",
3154+ "index": 70,
3155+ "guid": "6ddd302b-fd62-47f9-aa8a-9fb2c35172c5",
3156+ "isActive": true,
3157+ "balance": "$2,185.43",
3158+ "picture": "http://placehold.it/32x32",
3159+ "age": 34,
3160+ "eyeColor": "blue",
3161+ "name": "Georgia Moran",
3162+ "gender": "female",
3163+ "company": "EARTHMARK",
3164+ "email": "georgiamoran@earthmark.com",
3165+ "phone": "+1 (970) 439-3884",
3166+ "address": "848 Fay Court, Hayes, Maine, 7603",
3167+ "about": "Ea do et excepteur dolor cupidatat nisi. Quis deserunt cupidatat duis enim eu deserunt anim enim. Cillum consectetur occaecat exercitation occaecat duis dolor voluptate officia exercitation irure. Occaecat magna proident enim exercitation veniam. Est commodo ullamco minim esse enim commodo ea commodo nulla et voluptate aliqua anim. Quis magna commodo nulla quis sit duis id et ex id ea dolore anim.\r\n",
3168+ "registered": "2014-04-22T10:10:46 +07:00",
3169+ "latitude": -78.673083,
3170+ "longitude": 167.271688,
3171+ "tags": [
3172+ "non",
3173+ "labore",
3174+ "adipisicing",
3175+ "cupidatat",
3176+ "cupidatat",
3177+ "quis",
3178+ "aliquip"
3179+ ],
3180+ "friends": [
3181+ {
3182+ "id": 0,
3183+ "name": "Andrews Love"
3184+ },
3185+ {
3186+ "id": 1,
3187+ "name": "Brianna Yates"
3188+ },
3189+ {
3190+ "id": 2,
3191+ "name": "Jennifer Bass"
3192+ }
3193+ ],
3194+ "greeting": "Hello, Georgia Moran! You have 10 unread messages.",
3195+ "favoriteFruit": "strawberry"
3196+ },
3197+ {
3198+ "_id": "54727a901ec4ee748cbbc125",
3199+ "index": 71,
3200+ "guid": "0e5fc95f-e605-4baa-bc36-b2f795c42e03",
3201+ "isActive": false,
3202+ "balance": "$2,256.63",
3203+ "picture": "http://placehold.it/32x32",
3204+ "age": 22,
3205+ "eyeColor": "blue",
3206+ "name": "House Sargent",
3207+ "gender": "male",
3208+ "company": "FANFARE",
3209+ "email": "housesargent@fanfare.com",
3210+ "phone": "+1 (877) 416-3590",
3211+ "address": "961 Olive Street, Sultana, Puerto Rico, 3764",
3212+ "about": "Cillum minim aliquip sit nulla aute commodo pariatur reprehenderit aliqua laboris in sint velit. Qui irure ut nostrud elit aliqua reprehenderit tempor quis laboris. Voluptate enim eiusmod laborum est excepteur enim est. Veniam non magna ea proident deserunt ipsum Lorem adipisicing velit eiusmod. Culpa id ea non ex ad.\r\n",
3213+ "registered": "2014-04-27T09:04:21 +07:00",
3214+ "latitude": -54.902834,
3215+ "longitude": 147.773359,
3216+ "tags": [
3217+ "cupidatat",
3218+ "voluptate",
3219+ "dolor",
3220+ "excepteur",
3221+ "exercitation",
3222+ "id",
3223+ "in"
3224+ ],
3225+ "friends": [
3226+ {
3227+ "id": 0,
3228+ "name": "Francis Alford"
3229+ },
3230+ {
3231+ "id": 1,
3232+ "name": "Berta Sparks"
3233+ },
3234+ {
3235+ "id": 2,
3236+ "name": "Laura Hahn"
3237+ }
3238+ ],
3239+ "greeting": "Hello, House Sargent! You have 9 unread messages.",
3240+ "favoriteFruit": "apple"
3241+ },
3242+ {
3243+ "_id": "54727a90b51db1c7d287288e",
3244+ "index": 72,
3245+ "guid": "574450df-adad-4071-b642-0971f5f7928e",
3246+ "isActive": true,
3247+ "balance": "$2,263.30",
3248+ "picture": "http://placehold.it/32x32",
3249+ "age": 38,
3250+ "eyeColor": "green",
3251+ "name": "Roseann Lambert",
3252+ "gender": "female",
3253+ "company": "ROUGHIES",
3254+ "email": "roseannlambert@roughies.com",
3255+ "phone": "+1 (908) 551-2196",
3256+ "address": "142 Girard Street, Levant, New Mexico, 2920",
3257+ "about": "Aliquip ea elit anim aliqua in ea. Ex nisi nulla veniam amet. Occaecat pariatur qui consectetur consectetur anim ut anim cillum consectetur adipisicing pariatur. Cillum quis aliquip ad do in fugiat minim et ad labore sit ut aliqua cillum. Elit enim laboris incididunt laboris. Est in ullamco laboris deserunt aliqua veniam. Aute cillum culpa do dolore.\r\n",
3258+ "registered": "2014-04-29T13:57:00 +07:00",
3259+ "latitude": 0.812689,
3260+ "longitude": 127.517728,
3261+ "tags": [
3262+ "veniam",
3263+ "quis",
3264+ "do",
3265+ "aliqua",
3266+ "deserunt",
3267+ "id",
3268+ "ut"
3269+ ],
3270+ "friends": [
3271+ {
3272+ "id": 0,
3273+ "name": "Amelia Dunlap"
3274+ },
3275+ {
3276+ "id": 1,
3277+ "name": "Benson Huff"
3278+ },
3279+ {
3280+ "id": 2,
3281+ "name": "Aimee Fisher"
3282+ }
3283+ ],
3284+ "greeting": "Hello, Roseann Lambert! You have 6 unread messages.",
3285+ "favoriteFruit": "banana"
3286+ },
3287+ {
3288+ "_id": "54727a90285dfadf5a8ab1db",
3289+ "index": 73,
3290+ "guid": "cf2c0b72-e90e-43d1-a5ee-ff85e28272ec",
3291+ "isActive": false,
3292+ "balance": "$3,053.88",
3293+ "picture": "http://placehold.it/32x32",
3294+ "age": 20,
3295+ "eyeColor": "brown",
3296+ "name": "Althea Burgess",
3297+ "gender": "female",
3298+ "company": "RODEMCO",
3299+ "email": "altheaburgess@rodemco.com",
3300+ "phone": "+1 (946) 406-2326",
3301+ "address": "127 Fleet Place, Northridge, Northern Mariana Islands, 2106",
3302+ "about": "Ea aliquip mollit consectetur non sunt. Deserunt adipisicing sint non excepteur veniam. Sunt eu ad Lorem qui laborum labore. Dolor ut esse veniam dolor officia. Minim occaecat labore voluptate exercitation fugiat eu labore non dolor ipsum do magna qui incididunt.\r\n",
3303+ "registered": "2014-03-16T23:19:14 +07:00",
3304+ "latitude": -63.483213,
3305+ "longitude": 118.593144,
3306+ "tags": [
3307+ "amet",
3308+ "veniam",
3309+ "consequat",
3310+ "deserunt",
3311+ "magna",
3312+ "ea",
3313+ "aliqua"
3314+ ],
3315+ "friends": [
3316+ {
3317+ "id": 0,
3318+ "name": "Delacruz Pollard"
3319+ },
3320+ {
3321+ "id": 1,
3322+ "name": "Kelly Washington"
3323+ },
3324+ {
3325+ "id": 2,
3326+ "name": "Irma Freeman"
3327+ }
3328+ ],
3329+ "greeting": "Hello, Althea Burgess! You have 10 unread messages.",
3330+ "favoriteFruit": "apple"
3331+ },
3332+ {
3333+ "_id": "54727a902435e7e0219ce954",
3334+ "index": 74,
3335+ "guid": "e3079855-52fe-494a-bb64-cf88934d1f84",
3336+ "isActive": false,
3337+ "balance": "$1,615.23",
3338+ "picture": "http://placehold.it/32x32",
3339+ "age": 28,
3340+ "eyeColor": "brown",
3341+ "name": "Ursula French",
3342+ "gender": "female",
3343+ "company": "KLUGGER",
3344+ "email": "ursulafrench@klugger.com",
3345+ "phone": "+1 (803) 454-3759",
3346+ "address": "768 Bancroft Place, Layhill, Mississippi, 3591",
3347+ "about": "Anim proident aliquip non amet. Dolore occaecat non irure cillum excepteur eu officia irure ea enim incididunt. Adipisicing ad esse voluptate duis dolor irure. Non sunt cillum est exercitation labore cillum minim consequat occaecat est aliqua. Ex adipisicing consequat aliqua pariatur est elit deserunt. Proident fugiat aliquip culpa magna ut deserunt incididunt eu enim esse fugiat eu consequat amet. Ad sit do Lorem aliquip enim ea magna.\r\n",
3348+ "registered": "2014-08-01T00:12:36 +07:00",
3349+ "latitude": -31.044528,
3350+ "longitude": -131.432956,
3351+ "tags": [
3352+ "consequat",
3353+ "enim",
3354+ "nisi",
3355+ "cupidatat",
3356+ "est",
3357+ "sint",
3358+ "nostrud"
3359+ ],
3360+ "friends": [
3361+ {
3362+ "id": 0,
3363+ "name": "Mai Hudson"
3364+ },
3365+ {
3366+ "id": 1,
3367+ "name": "Erickson Perkins"
3368+ },
3369+ {
3370+ "id": 2,
3371+ "name": "Cleveland Armstrong"
3372+ }
3373+ ],
3374+ "greeting": "Hello, Ursula French! You have 8 unread messages.",
3375+ "favoriteFruit": "banana"
3376+ },
3377+ {
3378+ "_id": "54727a906ae58205e4d302e3",
3379+ "index": 75,
3380+ "guid": "f8b68baa-b922-4a5f-9d4a-fa7d9eee543c",
3381+ "isActive": true,
3382+ "balance": "$1,500.61",
3383+ "picture": "http://placehold.it/32x32",
3384+ "age": 29,
3385+ "eyeColor": "blue",
3386+ "name": "Lee Kelley",
3387+ "gender": "male",
3388+ "company": "INQUALA",
3389+ "email": "leekelley@inquala.com",
3390+ "phone": "+1 (947) 551-3499",
3391+ "address": "973 Bayard Street, Orovada, North Dakota, 8499",
3392+ "about": "Ullamco labore fugiat in minim duis duis reprehenderit deserunt eiusmod nostrud cillum laborum. Incididunt occaecat duis esse consectetur voluptate velit pariatur. Pariatur et qui sint anim sunt fugiat ut proident nulla fugiat. Nostrud ea sunt occaecat nulla qui id cupidatat proident ut.\r\n",
3393+ "registered": "2014-11-01T01:18:21 +07:00",
3394+ "latitude": -59.393379,
3395+ "longitude": -110.276914,
3396+ "tags": [
3397+ "sit",
3398+ "magna",
3399+ "in",
3400+ "consequat",
3401+ "excepteur",
3402+ "consequat",
3403+ "Lorem"
3404+ ],
3405+ "friends": [
3406+ {
3407+ "id": 0,
3408+ "name": "Walton Daniels"
3409+ },
3410+ {
3411+ "id": 1,
3412+ "name": "Hammond Robbins"
3413+ },
3414+ {
3415+ "id": 2,
3416+ "name": "Evangelina Chaney"
3417+ }
3418+ ],
3419+ "greeting": "Hello, Lee Kelley! You have 8 unread messages.",
3420+ "favoriteFruit": "strawberry"
3421+ },
3422+ {
3423+ "_id": "54727a902a956e2130c70b9c",
3424+ "index": 76,
3425+ "guid": "3f62418d-23f0-4ed2-a76f-51645437223b",
3426+ "isActive": false,
3427+ "balance": "$2,477.19",
3428+ "picture": "http://placehold.it/32x32",
3429+ "age": 28,
3430+ "eyeColor": "green",
3431+ "name": "Miles Poole",
3432+ "gender": "male",
3433+ "company": "YOGASM",
3434+ "email": "milespoole@yogasm.com",
3435+ "phone": "+1 (866) 412-2294",
3436+ "address": "744 Sutton Street, Richford, Vermont, 7668",
3437+ "about": "Nostrud reprehenderit officia officia ex proident sint nulla sint quis duis laborum duis. Anim adipisicing officia officia anim aliquip incididunt culpa duis sint do ullamco ex consectetur. Commodo et tempor eu consequat laboris tempor ipsum magna elit labore consectetur excepteur.\r\n",
3438+ "registered": "2014-07-20T11:37:28 +07:00",
3439+ "latitude": 23.618997,
3440+ "longitude": -80.142779,
3441+ "tags": [
3442+ "magna",
3443+ "exercitation",
3444+ "Lorem",
3445+ "nostrud",
3446+ "pariatur",
3447+ "ut",
3448+ "laborum"
3449+ ],
3450+ "friends": [
3451+ {
3452+ "id": 0,
3453+ "name": "Claudine Gill"
3454+ },
3455+ {
3456+ "id": 1,
3457+ "name": "Huff Kramer"
3458+ },
3459+ {
3460+ "id": 2,
3461+ "name": "Bryan Doyle"
3462+ }
3463+ ],
3464+ "greeting": "Hello, Miles Poole! You have 10 unread messages.",
3465+ "favoriteFruit": "apple"
3466+ },
3467+ {
3468+ "_id": "54727a90357b2420c0dc0895",
3469+ "index": 77,
3470+ "guid": "ef7aa63d-53b9-4e85-ac36-4cfb1afd214a",
3471+ "isActive": true,
3472+ "balance": "$1,105.70",
3473+ "picture": "http://placehold.it/32x32",
3474+ "age": 39,
3475+ "eyeColor": "green",
3476+ "name": "Cohen Clemons",
3477+ "gender": "male",
3478+ "company": "EARBANG",
3479+ "email": "cohenclemons@earbang.com",
3480+ "phone": "+1 (936) 599-3992",
3481+ "address": "952 Paerdegat Avenue, Frizzleburg, Rhode Island, 7905",
3482+ "about": "Consequat exercitation fugiat ut labore. Ad magna sunt dolore magna nulla. Laborum deserunt magna eu incididunt magna occaecat ut sit aliqua nisi culpa dolor ullamco esse. Enim adipisicing proident proident enim qui est ad non. Ex proident sit irure cillum in nostrud veniam amet excepteur voluptate commodo eu eiusmod ullamco.\r\n",
3483+ "registered": "2014-06-15T00:23:03 +07:00",
3484+ "latitude": 78.28454,
3485+ "longitude": 64.170517,
3486+ "tags": [
3487+ "non",
3488+ "ex",
3489+ "sit",
3490+ "ipsum",
3491+ "esse",
3492+ "enim",
3493+ "minim"
3494+ ],
3495+ "friends": [
3496+ {
3497+ "id": 0,
3498+ "name": "Sanchez Wolf"
3499+ },
3500+ {
3501+ "id": 1,
3502+ "name": "Trudy Melendez"
3503+ },
3504+ {
3505+ "id": 2,
3506+ "name": "Magdalena Hatfield"
3507+ }
3508+ ],
3509+ "greeting": "Hello, Cohen Clemons! You have 3 unread messages.",
3510+ "favoriteFruit": "strawberry"
3511+ },
3512+ {
3513+ "_id": "54727a90ae5beac7dec2ba78",
3514+ "index": 78,
3515+ "guid": "1bccbb43-2801-4c99-a646-001622f3653c",
3516+ "isActive": false,
3517+ "balance": "$1,246.07",
3518+ "picture": "http://placehold.it/32x32",
3519+ "age": 35,
3520+ "eyeColor": "blue",
3521+ "name": "Evelyn Combs",
3522+ "gender": "female",
3523+ "company": "BITENDREX",
3524+ "email": "evelyncombs@bitendrex.com",
3525+ "phone": "+1 (937) 463-3648",
3526+ "address": "498 Beayer Place, Caln, Michigan, 637",
3527+ "about": "Laboris ipsum ea est nisi exercitation adipisicing commodo ea ipsum tempor. Laboris duis sit aliquip reprehenderit id cillum officia. Tempor velit reprehenderit adipisicing dolor ut qui id magna consequat. Fugiat proident sunt sit reprehenderit duis. Eu ipsum adipisicing eu magna cupidatat mollit esse.\r\n",
3528+ "registered": "2014-06-14T20:28:41 +07:00",
3529+ "latitude": 13.771679,
3530+ "longitude": 58.844141,
3531+ "tags": [
3532+ "ex",
3533+ "irure",
3534+ "quis",
3535+ "velit",
3536+ "deserunt",
3537+ "mollit",
3538+ "irure"
3539+ ],
3540+ "friends": [
3541+ {
3542+ "id": 0,
3543+ "name": "Melton Wright"
3544+ },
3545+ {
3546+ "id": 1,
3547+ "name": "Letitia Osborn"
3548+ },
3549+ {
3550+ "id": 2,
3551+ "name": "Delgado Hebert"
3552+ }
3553+ ],
3554+ "greeting": "Hello, Evelyn Combs! You have 7 unread messages.",
3555+ "favoriteFruit": "apple"
3556+ },
3557+ {
3558+ "_id": "54727a90a58e6a9e15665417",
3559+ "index": 79,
3560+ "guid": "6c039c25-e902-4121-9319-aa5e25f09b90",
3561+ "isActive": true,
3562+ "balance": "$1,839.17",
3563+ "picture": "http://placehold.it/32x32",
3564+ "age": 27,
3565+ "eyeColor": "blue",
3566+ "name": "Lakeisha Glover",
3567+ "gender": "female",
3568+ "company": "REALMO",
3569+ "email": "lakeishaglover@realmo.com",
3570+ "phone": "+1 (962) 444-3749",
3571+ "address": "259 Homecrest Court, Villarreal, Oklahoma, 5463",
3572+ "about": "Lorem cupidatat non elit mollit commodo tempor dolore sint qui officia fugiat mollit ex. Ea commodo minim labore commodo commodo sint occaecat eu aute est excepteur labore eiusmod ut. Fugiat voluptate laborum mollit aliqua ea. Ut fugiat culpa do velit non nisi voluptate exercitation. Duis elit velit adipisicing esse.\r\n",
3573+ "registered": "2014-10-07T01:42:52 +07:00",
3574+ "latitude": 7.777536,
3575+ "longitude": -148.148716,
3576+ "tags": [
3577+ "officia",
3578+ "Lorem",
3579+ "eu",
3580+ "eiusmod",
3581+ "mollit",
3582+ "duis",
3583+ "exercitation"
3584+ ],
3585+ "friends": [
3586+ {
3587+ "id": 0,
3588+ "name": "Hodge Snider"
3589+ },
3590+ {
3591+ "id": 1,
3592+ "name": "Maritza Gilliam"
3593+ },
3594+ {
3595+ "id": 2,
3596+ "name": "Barbra Harding"
3597+ }
3598+ ],
3599+ "greeting": "Hello, Lakeisha Glover! You have 5 unread messages.",
3600+ "favoriteFruit": "strawberry"
3601+ },
3602+ {
3603+ "_id": "54727a904e60ffa71e64c330",
3604+ "index": 80,
3605+ "guid": "764804ce-2ded-4ab7-aef7-cc638d74a1f6",
3606+ "isActive": true,
3607+ "balance": "$3,096.79",
3608+ "picture": "http://placehold.it/32x32",
3609+ "age": 36,
3610+ "eyeColor": "green",
3611+ "name": "Hall Woodard",
3612+ "gender": "male",
3613+ "company": "HOTCAKES",
3614+ "email": "hallwoodard@hotcakes.com",
3615+ "phone": "+1 (923) 579-2251",
3616+ "address": "678 Johnson Avenue, Nescatunga, West Virginia, 5718",
3617+ "about": "Nulla Lorem proident incididunt nulla amet. Consectetur ea fugiat est adipisicing nisi exercitation ea irure. Id nisi anim culpa incididunt ea laborum. Non est aute anim deserunt ad cupidatat.\r\n",
3618+ "registered": "2014-07-25T16:17:12 +07:00",
3619+ "latitude": -72.300952,
3620+ "longitude": 149.908938,
3621+ "tags": [
3622+ "magna",
3623+ "fugiat",
3624+ "laboris",
3625+ "nulla",
3626+ "tempor",
3627+ "consequat",
3628+ "officia"
3629+ ],
3630+ "friends": [
3631+ {
3632+ "id": 0,
3633+ "name": "Tessa Mccray"
3634+ },
3635+ {
3636+ "id": 1,
3637+ "name": "Hendricks Larson"
3638+ },
3639+ {
3640+ "id": 2,
3641+ "name": "Cecilia Mooney"
3642+ }
3643+ ],
3644+ "greeting": "Hello, Hall Woodard! You have 1 unread messages.",
3645+ "favoriteFruit": "apple"
3646+ },
3647+ {
3648+ "_id": "54727a9095c0ba3039bba2a0",
3649+ "index": 81,
3650+ "guid": "477bf131-1833-4ceb-a02d-367662e8a0ad",
3651+ "isActive": true,
3652+ "balance": "$3,975.04",
3653+ "picture": "http://placehold.it/32x32",
3654+ "age": 20,
3655+ "eyeColor": "brown",
3656+ "name": "Mccray Holman",
3657+ "gender": "male",
3658+ "company": "NETROPIC",
3659+ "email": "mccrayholman@netropic.com",
3660+ "phone": "+1 (888) 582-2650",
3661+ "address": "930 Alton Place, Stouchsburg, Iowa, 8307",
3662+ "about": "Officia laboris laboris ea magna nulla exercitation ullamco est magna proident cupidatat dolor. Et dolore fugiat nostrud elit in Lorem cillum eu incididunt ullamco irure eiusmod voluptate aliqua. Sint velit veniam nisi in amet incididunt ex et voluptate. Amet laborum sint fugiat nulla dolor adipisicing eiusmod ea. Labore amet nisi et pariatur duis non aliquip ea pariatur sit. Est eu dolore consequat ex quis qui adipisicing minim ea. Proident eiusmod enim irure cillum eu do laborum do voluptate occaecat id consectetur irure dolor.\r\n",
3663+ "registered": "2014-07-15T14:32:20 +07:00",
3664+ "latitude": 69.28999,
3665+ "longitude": 20.24303,
3666+ "tags": [
3667+ "deserunt",
3668+ "labore",
3669+ "voluptate",
3670+ "sint",
3671+ "occaecat",
3672+ "non",
3673+ "sunt"
3674+ ],
3675+ "friends": [
3676+ {
3677+ "id": 0,
3678+ "name": "Ashley Mcintosh"
3679+ },
3680+ {
3681+ "id": 1,
3682+ "name": "Augusta Barr"
3683+ },
3684+ {
3685+ "id": 2,
3686+ "name": "Page Wiley"
3687+ }
3688+ ],
3689+ "greeting": "Hello, Mccray Holman! You have 8 unread messages.",
3690+ "favoriteFruit": "strawberry"
3691+ },
3692+ {
3693+ "_id": "54727a908bfd72d2f3594530",
3694+ "index": 82,
3695+ "guid": "e7128ea4-81e3-4888-ba11-4f3670e473ea",
3696+ "isActive": false,
3697+ "balance": "$3,306.06",
3698+ "picture": "http://placehold.it/32x32",
3699+ "age": 22,
3700+ "eyeColor": "green",
3701+ "name": "Sherri Villarreal",
3702+ "gender": "female",
3703+ "company": "TERRAGEN",
3704+ "email": "sherrivillarreal@terragen.com",
3705+ "phone": "+1 (881) 513-2832",
3706+ "address": "922 Surf Avenue, Oberlin, Federated States Of Micronesia, 8301",
3707+ "about": "Occaecat Lorem nostrud sint esse ullamco voluptate cillum sit aliquip sint nostrud. Velit aliqua cupidatat eu adipisicing sunt aute dolore cillum. Voluptate laboris exercitation magna non elit. Excepteur eiusmod enim amet fugiat quis. Anim cillum aute sit magna fugiat ut aliquip incididunt enim.\r\n",
3708+ "registered": "2014-01-29T03:48:07 +08:00",
3709+ "latitude": 70.685812,
3710+ "longitude": -159.885272,
3711+ "tags": [
3712+ "adipisicing",
3713+ "officia",
3714+ "laborum",
3715+ "ipsum",
3716+ "voluptate",
3717+ "sint",
3718+ "cupidatat"
3719+ ],
3720+ "friends": [
3721+ {
3722+ "id": 0,
3723+ "name": "Vinson Berg"
3724+ },
3725+ {
3726+ "id": 1,
3727+ "name": "Emily Strong"
3728+ },
3729+ {
3730+ "id": 2,
3731+ "name": "Lori Gonzalez"
3732+ }
3733+ ],
3734+ "greeting": "Hello, Sherri Villarreal! You have 1 unread messages.",
3735+ "favoriteFruit": "apple"
3736+ },
3737+ {
3738+ "_id": "54727a90ed7615708c5d1f8e",
3739+ "index": 83,
3740+ "guid": "cb7d9a4c-9739-43c8-b75e-0d3cdf462e89",
3741+ "isActive": false,
3742+ "balance": "$3,087.41",
3743+ "picture": "http://placehold.it/32x32",
3744+ "age": 28,
3745+ "eyeColor": "brown",
3746+ "name": "Little Nielsen",
3747+ "gender": "male",
3748+ "company": "LUDAK",
3749+ "email": "littlenielsen@ludak.com",
3750+ "phone": "+1 (826) 557-2684",
3751+ "address": "842 Banner Avenue, Gadsden, Kentucky, 3196",
3752+ "about": "Officia nostrud anim aliqua veniam ut. Non culpa et dolore nostrud elit esse sint mollit anim pariatur id velit irure culpa. Officia irure adipisicing velit velit culpa sunt proident occaecat irure voluptate ullamco. Labore mollit pariatur minim in cillum deserunt. Sint irure ex laborum et minim id ea fugiat excepteur velit veniam velit consequat sint. Culpa anim velit elit officia irure exercitation ex labore est amet. Do do eiusmod ipsum officia veniam laboris irure sint eiusmod non cillum eiusmod.\r\n",
3753+ "registered": "2014-09-19T15:02:29 +07:00",
3754+ "latitude": 26.743234,
3755+ "longitude": -53.174043,
3756+ "tags": [
3757+ "et",
3758+ "sint",
3759+ "culpa",
3760+ "dolore",
3761+ "ea",
3762+ "irure",
3763+ "excepteur"
3764+ ],
3765+ "friends": [
3766+ {
3767+ "id": 0,
3768+ "name": "Gillespie Branch"
3769+ },
3770+ {
3771+ "id": 1,
3772+ "name": "Cantu Kent"
3773+ },
3774+ {
3775+ "id": 2,
3776+ "name": "Nell Meyer"
3777+ }
3778+ ],
3779+ "greeting": "Hello, Little Nielsen! You have 5 unread messages.",
3780+ "favoriteFruit": "strawberry"
3781+ },
3782+ {
3783+ "_id": "54727a909137471ca6b126c8",
3784+ "index": 84,
3785+ "guid": "169b0cbf-781c-4b46-8285-e18b3aa6bc0e",
3786+ "isActive": true,
3787+ "balance": "$2,853.96",
3788+ "picture": "http://placehold.it/32x32",
3789+ "age": 33,
3790+ "eyeColor": "green",
3791+ "name": "Kristi Marquez",
3792+ "gender": "female",
3793+ "company": "RONELON",
3794+ "email": "kristimarquez@ronelon.com",
3795+ "phone": "+1 (838) 414-3765",
3796+ "address": "566 Love Lane, Fresno, New Jersey, 5219",
3797+ "about": "Proident enim commodo ut nisi minim esse eiusmod nisi irure consequat proident voluptate. Culpa ut sunt incididunt sint minim duis excepteur nulla cupidatat ullamco proident nisi ex enim. Qui culpa ex velit do pariatur Lorem dolor ad labore adipisicing magna sunt voluptate dolore. Lorem minim commodo non amet. Nulla reprehenderit consectetur ad nisi voluptate. Ea consectetur deserunt dolore ut. Esse duis consequat reprehenderit cillum commodo consequat ex consectetur do sint velit non deserunt.\r\n",
3798+ "registered": "2014-02-21T07:19:48 +08:00",
3799+ "latitude": 38.750345,
3800+ "longitude": -111.349096,
3801+ "tags": [
3802+ "minim",
3803+ "minim",
3804+ "occaecat",
3805+ "tempor",
3806+ "dolore",
3807+ "fugiat",
3808+ "laborum"
3809+ ],
3810+ "friends": [
3811+ {
3812+ "id": 0,
3813+ "name": "Eddie Soto"
3814+ },
3815+ {
3816+ "id": 1,
3817+ "name": "Valencia Serrano"
3818+ },
3819+ {
3820+ "id": 2,
3821+ "name": "Sears Richards"
3822+ }
3823+ ],
3824+ "greeting": "Hello, Kristi Marquez! You have 3 unread messages.",
3825+ "favoriteFruit": "apple"
3826+ },
3827+ {
3828+ "_id": "54727a90deb8bb21d9c88b7a",
3829+ "index": 85,
3830+ "guid": "58c6180e-8bc6-4ae0-9988-52df23beedac",
3831+ "isActive": false,
3832+ "balance": "$2,028.59",
3833+ "picture": "http://placehold.it/32x32",
3834+ "age": 39,
3835+ "eyeColor": "blue",
3836+ "name": "Callie Sweeney",
3837+ "gender": "female",
3838+ "company": "POLARIA",
3839+ "email": "calliesweeney@polaria.com",
3840+ "phone": "+1 (999) 576-3446",
3841+ "address": "278 Gunnison Court, Wakulla, Nevada, 3605",
3842+ "about": "Minim non eu sint culpa. Non irure ea eiusmod est dolore id culpa laborum ex aliquip et eu. Laborum occaecat labore incididunt et ipsum adipisicing cupidatat eu consectetur reprehenderit quis dolor.\r\n",
3843+ "registered": "2014-11-06T17:55:38 +08:00",
3844+ "latitude": 22.578553,
3845+ "longitude": 70.713617,
3846+ "tags": [
3847+ "veniam",
3848+ "ad",
3849+ "aliqua",
3850+ "id",
3851+ "quis",
3852+ "esse",
3853+ "est"
3854+ ],
3855+ "friends": [
3856+ {
3857+ "id": 0,
3858+ "name": "Cochran Raymond"
3859+ },
3860+ {
3861+ "id": 1,
3862+ "name": "Perry Pugh"
3863+ },
3864+ {
3865+ "id": 2,
3866+ "name": "Walsh Cummings"
3867+ }
3868+ ],
3869+ "greeting": "Hello, Callie Sweeney! You have 8 unread messages.",
3870+ "favoriteFruit": "apple"
3871+ },
3872+ {
3873+ "_id": "54727a9092b4caeee42e4083",
3874+ "index": 86,
3875+ "guid": "b37a99a1-89ea-4257-bd5c-f8070c6e5d72",
3876+ "isActive": false,
3877+ "balance": "$2,333.35",
3878+ "picture": "http://placehold.it/32x32",
3879+ "age": 27,
3880+ "eyeColor": "brown",
3881+ "name": "Henson Parrish",
3882+ "gender": "male",
3883+ "company": "MANTRO",
3884+ "email": "hensonparrish@mantro.com",
3885+ "phone": "+1 (983) 409-3702",
3886+ "address": "749 Malbone Street, Century, California, 6571",
3887+ "about": "Pariatur nisi magna laboris ipsum ad sint. Exercitation sit id reprehenderit fugiat ea dolor. Duis exercitation voluptate nulla duis enim culpa eiusmod nulla mollit et occaecat eu Lorem.\r\n",
3888+ "registered": "2014-06-21T02:15:00 +07:00",
3889+ "latitude": 42.27087,
3890+ "longitude": 88.230275,
3891+ "tags": [
3892+ "sunt",
3893+ "excepteur",
3894+ "veniam",
3895+ "cillum",
3896+ "sunt",
3897+ "consequat",
3898+ "ullamco"
3899+ ],
3900+ "friends": [
3901+ {
3902+ "id": 0,
3903+ "name": "Dunn Cantrell"
3904+ },
3905+ {
3906+ "id": 1,
3907+ "name": "Mendoza Keller"
3908+ },
3909+ {
3910+ "id": 2,
3911+ "name": "Josefa Green"
3912+ }
3913+ ],
3914+ "greeting": "Hello, Henson Parrish! You have 7 unread messages.",
3915+ "favoriteFruit": "strawberry"
3916+ },
3917+ {
3918+ "_id": "54727a9001009b488b9deadf",
3919+ "index": 87,
3920+ "guid": "4a8e033a-6160-44a0-b6f6-e07f11455db9",
3921+ "isActive": false,
3922+ "balance": "$2,886.19",
3923+ "picture": "http://placehold.it/32x32",
3924+ "age": 33,
3925+ "eyeColor": "blue",
3926+ "name": "Mcgowan Hogan",
3927+ "gender": "male",
3928+ "company": "MAGNEMO",
3929+ "email": "mcgowanhogan@magnemo.com",
3930+ "phone": "+1 (816) 507-2353",
3931+ "address": "979 Reed Street, Roberts, Maryland, 9773",
3932+ "about": "Sunt sint labore aliqua nisi ipsum mollit. Lorem aliquip nisi Lorem eu velit. Laborum reprehenderit minim cillum culpa cupidatat commodo do aute dolore. Sunt ullamco consectetur ex officia anim fugiat quis fugiat laboris est quis officia aliqua pariatur. Adipisicing nulla culpa officia ut reprehenderit ea cupidatat.\r\n",
3933+ "registered": "2014-05-26T12:57:18 +07:00",
3934+ "latitude": -24.348796,
3935+ "longitude": 25.886101,
3936+ "tags": [
3937+ "ex",
3938+ "ullamco",
3939+ "non",
3940+ "ea",
3941+ "enim",
3942+ "quis",
3943+ "ipsum"
3944+ ],
3945+ "friends": [
3946+ {
3947+ "id": 0,
3948+ "name": "Terry Burton"
3949+ },
3950+ {
3951+ "id": 1,
3952+ "name": "Cara Estes"
3953+ },
3954+ {
3955+ "id": 2,
3956+ "name": "Johanna Dillard"
3957+ }
3958+ ],
3959+ "greeting": "Hello, Mcgowan Hogan! You have 1 unread messages.",
3960+ "favoriteFruit": "strawberry"
3961+ },
3962+ {
3963+ "_id": "54727a9021cae47006152c91",
3964+ "index": 88,
3965+ "guid": "ebae8f41-1ba7-4f91-8d61-1a1a0d6b515f",
3966+ "isActive": false,
3967+ "balance": "$2,168.49",
3968+ "picture": "http://placehold.it/32x32",
3969+ "age": 25,
3970+ "eyeColor": "brown",
3971+ "name": "Riddle Alvarado",
3972+ "gender": "male",
3973+ "company": "INTERLOO",
3974+ "email": "riddlealvarado@interloo.com",
3975+ "phone": "+1 (892) 530-2012",
3976+ "address": "488 Loring Avenue, Homeworth, Washington, 8337",
3977+ "about": "Officia labore commodo eu consectetur. Consectetur consequat voluptate minim dolor do anim magna deserunt ullamco. Mollit laborum eiusmod veniam velit officia dolore dolore in ex veniam officia eu elit fugiat. Labore non in Lorem nulla irure ea id cupidatat eu consectetur. Tempor non quis eu nulla aliquip proident elit commodo duis laboris laborum eu amet occaecat.\r\n",
3978+ "registered": "2014-11-13T11:12:08 +08:00",
3979+ "latitude": 21.377099,
3980+ "longitude": 128.211659,
3981+ "tags": [
3982+ "ex",
3983+ "excepteur",
3984+ "magna",
3985+ "enim",
3986+ "magna",
3987+ "et",
3988+ "incididunt"
3989+ ],
3990+ "friends": [
3991+ {
3992+ "id": 0,
3993+ "name": "Elisa Vinson"
3994+ },
3995+ {
3996+ "id": 1,
3997+ "name": "Peterson Reynolds"
3998+ },
3999+ {
4000+ "id": 2,
4001+ "name": "Mason Odonnell"
4002+ }
4003+ ],
4004+ "greeting": "Hello, Riddle Alvarado! You have 1 unread messages.",
4005+ "favoriteFruit": "strawberry"
4006+ },
4007+ {
4008+ "_id": "54727a901459251e4d519953",
4009+ "index": 89,
4010+ "guid": "6fe0652a-7055-47d0-8b6a-8bc3b3f6a7d0",
4011+ "isActive": true,
4012+ "balance": "$1,638.04",
4013+ "picture": "http://placehold.it/32x32",
4014+ "age": 29,
4015+ "eyeColor": "blue",
4016+ "name": "Stone Maynard",
4017+ "gender": "male",
4018+ "company": "CONJURICA",
4019+ "email": "stonemaynard@conjurica.com",
4020+ "phone": "+1 (827) 532-2021",
4021+ "address": "631 Orient Avenue, Homestead, Utah, 8151",
4022+ "about": "In voluptate voluptate veniam reprehenderit dolor est ut est voluptate dolore occaecat voluptate. Laboris cillum ex aliquip quis dolor qui qui fugiat sit. Veniam magna dolor mollit sint laborum duis id duis aliqua dolore reprehenderit qui et. Irure cupidatat ea sunt anim amet mollit adipisicing id sint deserunt veniam irure. Reprehenderit elit mollit do ex reprehenderit ipsum aliqua qui. Ea non eiusmod officia laboris dolor tempor deserunt elit velit ex aliqua. Duis reprehenderit duis duis elit irure elit dolore dolore.\r\n",
4023+ "registered": "2014-05-26T12:55:16 +07:00",
4024+ "latitude": -20.476755,
4025+ "longitude": 76.876321,
4026+ "tags": [
4027+ "fugiat",
4028+ "dolore",
4029+ "consequat",
4030+ "do",
4031+ "esse",
4032+ "consectetur",
4033+ "anim"
4034+ ],
4035+ "friends": [
4036+ {
4037+ "id": 0,
4038+ "name": "Mckenzie Bartlett"
4039+ },
4040+ {
4041+ "id": 1,
4042+ "name": "Villarreal Welch"
4043+ },
4044+ {
4045+ "id": 2,
4046+ "name": "Amparo Kelly"
4047+ }
4048+ ],
4049+ "greeting": "Hello, Stone Maynard! You have 5 unread messages.",
4050+ "favoriteFruit": "apple"
4051+ },
4052+ {
4053+ "_id": "54727a9015625be6710ded3e",
4054+ "index": 90,
4055+ "guid": "d079e795-b71e-446b-91f8-6347ca0e2e57",
4056+ "isActive": false,
4057+ "balance": "$1,156.54",
4058+ "picture": "http://placehold.it/32x32",
4059+ "age": 28,
4060+ "eyeColor": "blue",
4061+ "name": "Baird Jones",
4062+ "gender": "male",
4063+ "company": "KNEEDLES",
4064+ "email": "bairdjones@kneedles.com",
4065+ "phone": "+1 (898) 574-3748",
4066+ "address": "890 Lancaster Avenue, Falconaire, Wisconsin, 9406",
4067+ "about": "Officia veniam sunt minim ex tempor labore consequat laborum adipisicing officia. Incididunt enim excepteur anim et do cupidatat magna excepteur culpa. Dolore enim ea excepteur non commodo aliqua nostrud commodo exercitation dolor duis. Consectetur consequat ullamco in esse fugiat pariatur anim mollit aliqua aliquip qui. Voluptate cupidatat ipsum labore aliquip fugiat cillum amet sunt voluptate occaecat occaecat nostrud.\r\n",
4068+ "registered": "2014-01-22T19:38:09 +08:00",
4069+ "latitude": -30.096555,
4070+ "longitude": -119.933566,
4071+ "tags": [
4072+ "occaecat",
4073+ "qui",
4074+ "enim",
4075+ "in",
4076+ "pariatur",
4077+ "irure",
4078+ "officia"
4079+ ],
4080+ "friends": [
4081+ {
4082+ "id": 0,
4083+ "name": "Gail Flynn"
4084+ },
4085+ {
4086+ "id": 1,
4087+ "name": "Sanford Harmon"
4088+ },
4089+ {
4090+ "id": 2,
4091+ "name": "Noble Chambers"
4092+ }
4093+ ],
4094+ "greeting": "Hello, Baird Jones! You have 3 unread messages.",
4095+ "favoriteFruit": "strawberry"
4096+ },
4097+ {
4098+ "_id": "54727a90b147f5343b9ce16b",
4099+ "index": 91,
4100+ "guid": "af036dfd-72dd-451e-b93d-6dceea4796c4",
4101+ "isActive": false,
4102+ "balance": "$3,703.12",
4103+ "picture": "http://placehold.it/32x32",
4104+ "age": 33,
4105+ "eyeColor": "blue",
4106+ "name": "Leila Gay",
4107+ "gender": "female",
4108+ "company": "ZOXY",
4109+ "email": "leilagay@zoxy.com",
4110+ "phone": "+1 (845) 467-2535",
4111+ "address": "800 Little Street, Troy, Louisiana, 233",
4112+ "about": "Ea aliqua excepteur duis est velit eiusmod irure est eiusmod non elit. Consequat nostrud elit ullamco minim labore deserunt commodo. Mollit amet duis laboris mollit est ex aliquip. Minim et veniam reprehenderit voluptate aliqua id officia excepteur consequat fugiat non ex eu. Fugiat officia cupidatat pariatur voluptate excepteur in.\r\n",
4113+ "registered": "2014-08-02T18:50:58 +07:00",
4114+ "latitude": 59.481938,
4115+ "longitude": 141.038749,
4116+ "tags": [
4117+ "ipsum",
4118+ "commodo",
4119+ "velit",
4120+ "sit",
4121+ "aliquip",
4122+ "ullamco",
4123+ "nisi"
4124+ ],
4125+ "friends": [
4126+ {
4127+ "id": 0,
4128+ "name": "Conway Summers"
4129+ },
4130+ {
4131+ "id": 1,
4132+ "name": "Deirdre Moody"
4133+ },
4134+ {
4135+ "id": 2,
4136+ "name": "Curtis Dickerson"
4137+ }
4138+ ],
4139+ "greeting": "Hello, Leila Gay! You have 10 unread messages.",
4140+ "favoriteFruit": "apple"
4141+ },
4142+ {
4143+ "_id": "54727a90ffed9e529a6fa6b2",
4144+ "index": 92,
4145+ "guid": "7deb0cd2-5374-40c4-a38d-060ef674b2df",
4146+ "isActive": true,
4147+ "balance": "$2,980.94",
4148+ "picture": "http://placehold.it/32x32",
4149+ "age": 20,
4150+ "eyeColor": "brown",
4151+ "name": "Alma England",
4152+ "gender": "female",
4153+ "company": "SOLAREN",
4154+ "email": "almaengland@solaren.com",
4155+ "phone": "+1 (941) 595-3246",
4156+ "address": "727 Covert Street, Nutrioso, Florida, 9152",
4157+ "about": "Commodo quis occaecat voluptate tempor commodo non ipsum quis tempor pariatur elit. Ea fugiat velit dolor ea et occaecat eu ad aute ipsum. In sunt ad reprehenderit duis. Qui deserunt voluptate proident eu officia laborum pariatur incididunt id nisi. Eiusmod adipisicing do pariatur et incididunt aliquip consectetur.\r\n",
4158+ "registered": "2014-08-08T20:51:29 +07:00",
4159+ "latitude": 70.990007,
4160+ "longitude": -119.193428,
4161+ "tags": [
4162+ "irure",
4163+ "cillum",
4164+ "incididunt",
4165+ "nisi",
4166+ "magna",
4167+ "ullamco",
4168+ "ex"
4169+ ],
4170+ "friends": [
4171+ {
4172+ "id": 0,
4173+ "name": "Downs Keith"
4174+ },
4175+ {
4176+ "id": 1,
4177+ "name": "Dawn Velazquez"
4178+ },
4179+ {
4180+ "id": 2,
4181+ "name": "Deanna Simpson"
4182+ }
4183+ ],
4184+ "greeting": "Hello, Alma England! You have 9 unread messages.",
4185+ "favoriteFruit": "strawberry"
4186+ },
4187+ {
4188+ "_id": "54727a9075e4734b622a166a",
4189+ "index": 93,
4190+ "guid": "c0adc5f1-039a-4b52-a8cf-0196f3c23129",
4191+ "isActive": true,
4192+ "balance": "$2,658.69",
4193+ "picture": "http://placehold.it/32x32",
4194+ "age": 21,
4195+ "eyeColor": "brown",
4196+ "name": "Lou Rose",
4197+ "gender": "female",
4198+ "company": "INFOTRIPS",
4199+ "email": "lourose@infotrips.com",
4200+ "phone": "+1 (845) 564-3943",
4201+ "address": "343 Krier Place, Evergreen, Indiana, 5249",
4202+ "about": "Tempor ullamco id reprehenderit sunt veniam incididunt laboris. Ea ut officia do velit dolor officia Lorem consectetur nisi velit nisi. Aliquip dolore minim sint deserunt deserunt est.\r\n",
4203+ "registered": "2014-04-22T07:46:26 +07:00",
4204+ "latitude": 12.216368,
4205+ "longitude": 8.875707,
4206+ "tags": [
4207+ "velit",
4208+ "consectetur",
4209+ "Lorem",
4210+ "est",
4211+ "adipisicing",
4212+ "ad",
4213+ "ullamco"
4214+ ],
4215+ "friends": [
4216+ {
4217+ "id": 0,
4218+ "name": "Coleen Foley"
4219+ },
4220+ {
4221+ "id": 1,
4222+ "name": "Boone Fitzpatrick"
4223+ },
4224+ {
4225+ "id": 2,
4226+ "name": "Elise Osborne"
4227+ }
4228+ ],
4229+ "greeting": "Hello, Lou Rose! You have 5 unread messages.",
4230+ "favoriteFruit": "banana"
4231+ },
4232+ {
4233+ "_id": "54727a90512b4f65287789e9",
4234+ "index": 94,
4235+ "guid": "26d470db-29c3-4c14-894b-5654462385a5",
4236+ "isActive": false,
4237+ "balance": "$2,751.47",
4238+ "picture": "http://placehold.it/32x32",
4239+ "age": 23,
4240+ "eyeColor": "blue",
4241+ "name": "Velez Wong",
4242+ "gender": "male",
4243+ "company": "FRANSCENE",
4244+ "email": "velezwong@franscene.com",
4245+ "phone": "+1 (821) 577-3492",
4246+ "address": "197 Huron Street, Hilltop, New Hampshire, 6969",
4247+ "about": "Minim id ullamco ullamco do proident Lorem commodo tempor ea. Est ut id non proident eiusmod. Deserunt fugiat enim culpa veniam sint.\r\n",
4248+ "registered": "2014-07-21T05:23:01 +07:00",
4249+ "latitude": -37.262537,
4250+ "longitude": 132.661281,
4251+ "tags": [
4252+ "culpa",
4253+ "non",
4254+ "elit",
4255+ "nulla",
4256+ "laboris",
4257+ "elit",
4258+ "ex"
4259+ ],
4260+ "friends": [
4261+ {
4262+ "id": 0,
4263+ "name": "Charmaine Curry"
4264+ },
4265+ {
4266+ "id": 1,
4267+ "name": "Clara Randall"
4268+ },
4269+ {
4270+ "id": 2,
4271+ "name": "Lauren Jacobs"
4272+ }
4273+ ],
4274+ "greeting": "Hello, Velez Wong! You have 4 unread messages.",
4275+ "favoriteFruit": "banana"
4276+ },
4277+ {
4278+ "_id": "54727a9095dc4743a5a84bd7",
4279+ "index": 95,
4280+ "guid": "1d1b9166-affc-4d15-ab60-b2edc51f29b4",
4281+ "isActive": true,
4282+ "balance": "$1,063.39",
4283+ "picture": "http://placehold.it/32x32",
4284+ "age": 22,
4285+ "eyeColor": "brown",
4286+ "name": "Catalina Baxter",
4287+ "gender": "female",
4288+ "company": "GAZAK",
4289+ "email": "catalinabaxter@gazak.com",
4290+ "phone": "+1 (839) 435-3437",
4291+ "address": "904 Miller Avenue, Callaghan, Kansas, 7896",
4292+ "about": "Ut ex exercitation commodo sint sint ipsum ea incididunt. Sunt nostrud tempor sint occaecat qui laborum culpa ipsum ullamco veniam est excepteur nostrud. Consequat occaecat id adipisicing esse culpa occaecat. Proident veniam laboris aute minim dolore eiusmod nulla minim elit sint.\r\n",
4293+ "registered": "2014-05-02T10:13:41 +07:00",
4294+ "latitude": 18.545597,
4295+ "longitude": -99.991313,
4296+ "tags": [
4297+ "do",
4298+ "proident",
4299+ "reprehenderit",
4300+ "minim",
4301+ "cillum",
4302+ "quis",
4303+ "esse"
4304+ ],
4305+ "friends": [
4306+ {
4307+ "id": 0,
4308+ "name": "Monique Wilcox"
4309+ },
4310+ {
4311+ "id": 1,
4312+ "name": "Hilda Craig"
4313+ },
4314+ {
4315+ "id": 2,
4316+ "name": "Leola Higgins"
4317+ }
4318+ ],
4319+ "greeting": "Hello, Catalina Baxter! You have 10 unread messages.",
4320+ "favoriteFruit": "apple"
4321+ }
4322+]
benchmarks/json-data/dates-fract.jsonnew file+1
@@ -0,0 +1 @@
1+["2015-02-02T09:10:11.123Z","2015-02-03T09:10:11.000+0000","2014-01-02T09:10:11.333Z","2014-01-03T02:09:12.000-02:00","2013-05-06T07:08:09.444Z","2015-02-02T09:10:11.66+03:00","2015-02-03T09:10:11.66Z","2014-01-02T09:10:11.66-1200","2014-01-03T02:09:12.66Z","2013-05-06T07:08:09.66+00:00"]
benchmarks/json-data/dates.jsonnew file+1
@@ -0,0 +1 @@
1+["2015-02-02T09:10:11Z","2015-02-03T09:10:11+0000","2014-01-02T09:10:11Z","2014-01-03T02:09:12-0300","2013-05-06T07:08:09Z","2015-02-02T09:10:11+04:00","2015-02-03T09:10:11Z","2014-01-02T09:10:11-11:45","2014-01-03T02:09:12Z","2013-05-06T07:08:09+0000"]
benchmarks/json-data/example.jsonnew file+88
@@ -0,0 +1,88 @@
1+{"web-app": {
2+ "servlet": [
3+ {
4+ "servlet-name": "cofaxCDS",
5+ "servlet-class": "org.cofax.cds.CDSServlet",
6+ "init-param": {
7+ "configGlossary:installationAt": "Philadelphia, PA",
8+ "configGlossary:adminEmail": "ksm@pobox.com",
9+ "configGlossary:poweredBy": "Cofax",
10+ "configGlossary:poweredByIcon": "/images/cofax.gif",
11+ "configGlossary:staticPath": "/content/static",
12+ "templateProcessorClass": "org.cofax.WysiwygTemplate",
13+ "templateLoaderClass": "org.cofax.FilesTemplateLoader",
14+ "templatePath": "templates",
15+ "templateOverridePath": "",
16+ "defaultListTemplate": "listTemplate.htm",
17+ "defaultFileTemplate": "articleTemplate.htm",
18+ "useJSP": false,
19+ "jspListTemplate": "listTemplate.jsp",
20+ "jspFileTemplate": "articleTemplate.jsp",
21+ "cachePackageTagsTrack": 200,
22+ "cachePackageTagsStore": 200,
23+ "cachePackageTagsRefresh": 60,
24+ "cacheTemplatesTrack": 100,
25+ "cacheTemplatesStore": 50,
26+ "cacheTemplatesRefresh": 15,
27+ "cachePagesTrack": 200,
28+ "cachePagesStore": 100,
29+ "cachePagesRefresh": 10,
30+ "cachePagesDirtyRead": 10,
31+ "searchEngineListTemplate": "forSearchEnginesList.htm",
32+ "searchEngineFileTemplate": "forSearchEngines.htm",
33+ "searchEngineRobotsDb": "WEB-INF/robots.db",
34+ "useDataStore": true,
35+ "dataStoreClass": "org.cofax.SqlDataStore",
36+ "redirectionClass": "org.cofax.SqlRedirection",
37+ "dataStoreName": "cofax",
38+ "dataStoreDriver": "com.microsoft.jdbc.sqlserver.SQLServerDriver",
39+ "dataStoreUrl": "jdbc:microsoft:sqlserver://LOCALHOST:1433;DatabaseName=goon",
40+ "dataStoreUser": "sa",
41+ "dataStorePassword": "dataStoreTestQuery",
42+ "dataStoreTestQuery": "SET NOCOUNT ON;select test='test';",
43+ "dataStoreLogFile": "/usr/local/tomcat/logs/datastore.log",
44+ "dataStoreInitConns": 10,
45+ "dataStoreMaxConns": 100,
46+ "dataStoreConnUsageLimit": 100,
47+ "dataStoreLogLevel": "debug",
48+ "maxUrlLength": 500}},
49+ {
50+ "servlet-name": "cofaxEmail",
51+ "servlet-class": "org.cofax.cds.EmailServlet",
52+ "init-param": {
53+ "mailHost": "mail1",
54+ "mailHostOverride": "mail2"}},
55+ {
56+ "servlet-name": "cofaxAdmin",
57+ "servlet-class": "org.cofax.cds.AdminServlet"},
58+
59+ {
60+ "servlet-name": "fileServlet",
61+ "servlet-class": "org.cofax.cds.FileServlet"},
62+ {
63+ "servlet-name": "cofaxTools",
64+ "servlet-class": "org.cofax.cms.CofaxToolsServlet",
65+ "init-param": {
66+ "templatePath": "toolstemplates/",
67+ "log": 1,
68+ "logLocation": "/usr/local/tomcat/logs/CofaxTools.log",
69+ "logMaxSize": "",
70+ "dataLog": 1,
71+ "dataLogLocation": "/usr/local/tomcat/logs/dataLog.log",
72+ "dataLogMaxSize": "",
73+ "removePageCache": "/content/admin/remove?cache=pages&id=",
74+ "removeTemplateCache": "/content/admin/remove?cache=templates&id=",
75+ "fileTransferFolder": "/usr/local/tomcat/webapps/content/fileTransferFolder",
76+ "lookInContext": 1,
77+ "adminGroupID": 4,
78+ "betaServer": true}}],
79+ "servlet-mapping": {
80+ "cofaxCDS": "/",
81+ "cofaxEmail": "/cofaxutil/aemail/*",
82+ "cofaxAdmin": "/admin/*",
83+ "fileServlet": "/static/*",
84+ "cofaxTools": "/tools/*"},
85+
86+ "taglib": {
87+ "taglib-uri": "cofax.tld",
88+ "taglib-location": "/WEB-INF/tlds/cofax.tld"}}}
benchmarks/json-data/geometry.jsonnew file+1
@@ -0,0 +1 @@
1+{"geometry": {"type": "Polygon", "coordinates": [[[-0.939359853061118, 51.57401065198471], [-0.939440892477492, 51.57431080772057], [-0.939543636564569, 51.57460846194951], [-0.939564627628489, 51.574822653966265], [-0.939763179055758, 51.575406210178826], [-0.939787182642249, 51.575552991614], [-0.939819571231525, 51.57564949527348], [-0.939851290904264, 51.57571272360808], [-0.939975682132949, 51.57588648747347], [-0.940036822193859, 51.57598774653439], [-0.940072640734852, 51.57606090267849], [-0.940109693338918, 51.576205104339515], [-0.940125502187331, 51.57645611534466], [-0.940118623499009, 51.57662779459441], [-0.94008851367835, 51.57680555827417], [-0.939998015208524, 51.57709787034017], [-0.939928028667517, 51.577252794653916], [-0.939830628174189, 51.57740747134858], [-0.939796941313687, 51.57749078985784], [-0.939785586773343, 51.57754463746666], [-0.939770656147318, 51.57769016804059], [-0.939658154074368, 51.57824573765943], [-0.939485738834128, 51.57883313597966], [-0.93945717030888, 51.579192545519916], [-0.939524336079755, 51.57928306919007], [-0.939540939284811, 51.57931379092206], [-0.939553921057406, 51.579748206813974], [-0.939549110634237, 51.57983088690364], [-0.939520940649101, 51.58004913048237], [-0.93951863934971, 51.58014801827346], [-0.939525037302583, 51.580245186310094], [-0.939540364690294, 51.58033074581249], [-0.939561798495469, 51.58040197377017], [-0.939594984852117, 51.58046431619436], [-0.939708262827559, 51.580619996404984], [-0.939729069878358, 51.58065615108302], [-0.939759224390201, 51.58072476025555], [-0.939813615319267, 51.58093026195459], [-0.939900523550716, 51.58172321441459], [-0.939894144544868, 51.581997403240464], [-0.939910832471369, 51.58208657162566], [-0.940114353648015, 51.582457967531546], [-0.94022333049887, 51.58267475179605], [-0.940267247821581, 51.58277225843995], [-0.94038427828014, 51.583077233742756], [-0.940493362377966, 51.583289522851196], [-0.940571515796737, 51.58340442254201], [-0.940725857371931, 51.58359464061899], [-0.941198340240742, 51.584069167875626], [-0.941335307610427, 51.584261925920295], [-0.941372786463165, 51.5843261048293], [-0.941416540699353, 51.58443080287741], [-0.941461326187118, 51.584739621364996], [-0.941517445876004, 51.5849954910945], [-0.941575869597484, 51.58533860085252], [-0.941574762730556, 51.58538624677686], [-0.941565185406358, 51.58542572382202], [-0.941550002863301, 51.58545795698674], [-0.941515976834126, 51.58549361692739], [-0.941470510606583, 51.585524677868065], [-0.941423872780384, 51.585544039043356], [-0.94131509921043, 51.585566436558274], [-0.941075026707647, 51.58558675057684], [-0.940953181611661, 51.58561262652464], [-0.940734943851404, 51.58568708689612], [-0.940229533088359, 51.585883040066975], [-0.940067635923264, 51.58595531027499], [-0.939917220191166, 51.58603038143916], [-0.939797255285709, 51.586099433232604], [-0.939675637701456, 51.586177461657186], [-0.939611074554604, 51.58622273608784], [-0.939340396866166, 51.586441486256], [-0.93912244296424, 51.58662744303347], [-0.938817233975319, 51.58671729893312], [-0.938661522913105, 51.586771639765516], [-0.938087678078033, 51.586992141762096], [-0.937332636663603, 51.5873072119485], [-0.93492634290483, 51.58836081134952], [-0.934774110277819, 51.58845114531925], [-0.934663126573178, 51.588505886685766], [-0.934565467487243, 51.588546362183585], [-0.934462140700832, 51.588582290320545], [-0.934337145222589, 51.58861892084846], [-0.934213782000904, 51.588647473549656], [-0.934055887760941, 51.588671216763295], [-0.933259701136762, 51.58864510257983], [-0.933213278816969, 51.588716614209304], [-0.932681740160827, 51.588792708227174], [-0.931992471253759, 51.58900853446031], [-0.930629113767652, 51.58946908647644], [-0.928525036745892, 51.59005953842682], [-0.928533690860491, 51.59024394687689], [-0.928456010745829, 51.59047792078815], [-0.928256501298223, 51.5906748158337], [-0.927916132025856, 51.59066181734799], [-0.927671608556404, 51.590624516635486], [-0.927319567022116, 51.59061680481465], [-0.926850285435352, 51.59062240702726], [-0.926313746570405, 51.59066425819173], [-0.925516790702947, 51.59079184232522], [-0.925387133168341, 51.59078076476673], [-0.925293323156809, 51.59077990606886], [-0.925202187496562, 51.59078806346173], [-0.925112304116411, 51.59080432476366], [-0.925036768134577, 51.59082431403807], [-0.924968299737815, 51.59085066215826], [-0.924899640304234, 51.59088510100373], [-0.924851228495836, 51.590917926896914], [-0.924734051019008, 51.59105082982951], [-0.924694255912291, 51.59108553291224], [-0.924446018071168, 51.59126668934789], [-0.924204972773907, 51.59150995377465], [-0.923492520665307, 51.59215352189589], [-0.922775141969353, 51.59288246146081], [-0.922298613651092, 51.59343737077436], [-0.922101568270595, 51.59365046303728], [-0.92149319027045, 51.59422483935332], [-0.921029930136652, 51.59464499018023], [-0.919455791303858, 51.595519790418045], [-0.919908472816787, 51.59560757835559], [-0.919902358174605, 51.595621908790214], [-0.919721503870405, 51.59588190272939], [-0.919513222918683, 51.59614164398608], [-0.919057326435374, 51.59661490568889], [-0.918991959815932, 51.59669253146064], [-0.918853979663433, 51.59690975873926], [-0.91882720841051, 51.59694278142396], [-0.918711889332325, 51.597056812913756], [-0.918614808732714, 51.59713234806153], [-0.918297245740306, 51.59749448485627], [-0.918073703114389, 51.59778825130676], [-0.917853804369843, 51.59811082427763], [-0.917772408698363, 51.59831598343439], [-0.917709563771812, 51.59853030520902], [-0.917692745480418, 51.59856971355161], [-0.917634249201942, 51.59866178857289], [-0.917443039919903, 51.59887043094418], [-0.917335250471836, 51.598971042984616], [-0.916888284039272, 51.599309503426845], [-0.916921110547038, 51.59938623548714], [-0.916942485633783, 51.5995195094582], [-0.916937652924948, 51.599601289122916], [-0.916945811778801, 51.599683188627004], [-0.916964246289877, 51.599757989575366], [-0.917049297107238, 51.59994580090974], [-0.917089705367533, 51.60000731699611], [-0.917171120773417, 51.60010517795964], [-0.91752823274465, 51.60044925531009], [-0.917834023417531, 51.600765883511485], [-0.917913079603466, 51.600902386385464], [-0.918033251654948, 51.60107073894696], [-0.91851090277833, 51.601507638962644], [-0.918694916056997, 51.601663091331545], [-0.919167224655989, 51.60214309940451], [-0.919302231291783, 51.6024167896932], [-0.919552009673002, 51.60266096432073], [-0.919812571846437, 51.60293760761218], [-0.920091738726093, 51.60358667644501], [-0.920208566517809, 51.603592246724574], [-0.920644522919282, 51.60359715428394], [-0.921093152621479, 51.6036156641763], [-0.921168285587618, 51.603613657034074], [-0.921469264587163, 51.6035867495928], [-0.921584776688781, 51.603586911416876], [-0.921718864440287, 51.603595336217005], [-0.921999521996191, 51.60363387995426], [-0.922136050325758, 51.603661209181794], [-0.922248015684399, 51.60368921195661], [-0.922346882036963, 51.60372159023333], [-0.922478548042792, 51.60377135359644], [-0.922605777045377, 51.603825571929555], [-0.92269948345521, 51.60389297005248], [-0.922855181916126, 51.60396453348124], [-0.922908065211369, 51.60398749776935], [-0.923525984356841, 51.604174796116844], [-0.923689774691443, 51.6042095667925], [-0.923842334751645, 51.60423074681459], [-0.924020987014581, 51.604247669912816], [-0.924152253615336, 51.604253368572344], [-0.924379056519158, 51.60424915231234], [-0.924491916632975, 51.60423939614583], [-0.925129396784027, 51.604149022807746], [-0.925308707040747, 51.60413807581467], [-0.925396812395019, 51.604137083863186], [-0.925816640142735, 51.60415261457396], [-0.926339243350925, 51.604157394450915], [-0.926627592983669, 51.60417621577326], [-0.928219342008724, 51.60433911850777], [-0.928540897883304, 51.60435823822504], [-0.928666454251138, 51.6043611822271], [-0.928925123731038, 51.60435275210506], [-0.929272427371303, 51.60432085222454], [-0.929350681081097, 51.604308977474346], [-0.929525019586135, 51.60426381040009], [-0.929730308556221, 51.60419195021111], [-0.929806393059037, 51.60414948374236], [-0.929854111423592, 51.60408517871234], [-0.929877477717563, 51.604012559228565], [-0.929880189120251, 51.60395863398061], [-0.930157001898001, 51.603362311928585], [-0.930233415197893, 51.60324431822904], [-0.930397156019029, 51.60303540508514], [-0.93058677482955, 51.602831223239896], [-0.930747612253953, 51.60268432562219], [-0.931065151604954, 51.602443542878724], [-0.931358556224333, 51.60224659876122], [-0.931494751600125, 51.602165114969594], [-0.931807666849096, 51.601998019766675], [-0.932115553298882, 51.60186055047904], [-0.932344261944379, 51.601774512081256], [-0.932581062209752, 51.601712824287226], [-0.932837650566022, 51.60166929919289], [-0.93304760157037, 51.60164423223924], [-0.933247236692325, 51.60162806284857], [-0.933524572231589, 51.601623388892406], [-0.93367307135076, 51.60163283011416], [-0.933854562367985, 51.601651562386515], [-0.934222940436163, 51.60170526005669], [-0.934582321335698, 51.60177326158339], [-0.935176916778695, 51.60190903449902], [-0.935323237909383, 51.60194992468383], [-0.935449328012611, 51.60199153042619], [-0.935555166022244, 51.60203475076641], [-0.935754957696255, 51.60213547009268], [-0.935920944220561, 51.60219991608389], [-0.936105992086264, 51.60225194623237], [-0.936251123590137, 51.60228203448254], [-0.9362553703842, 51.602285669620606], [-0.935954861941404, 51.603034649313756], [-0.936025513047831, 51.60328615677915], [-0.937604653681525, 51.60374194595848], [-0.937842729718605, 51.6037494948452], [-0.937998245297976, 51.60376798569096], [-0.938149157504488, 51.60379812385097], [-0.938282536474463, 51.60383709493093], [-0.938398403200176, 51.60388400001471], [-0.938549544157173, 51.60396629131982], [-0.938542113846477, 51.60403725821696], [-0.938540670189083, 51.60403724516617], [-0.938690470772444, 51.60417707075241], [-0.93885671831091, 51.60429276731543], [-0.938949655717409, 51.60433227129961], [-0.939171393952754, 51.60435945147724], [-0.939491406642938, 51.60438302306183], [-0.939580914110842, 51.60438383145672], [-0.939698081584302, 51.604374998744255], [-0.939860253923854, 51.60435578228165], [-0.940131370864495, 51.60430877574863], [-0.940224037565311, 51.60429792302206], [-0.941065905352937, 51.604358569226044], [-0.941456261791824, 51.60439985396626], [-0.94172260946072, 51.604433725629356], [-0.942065117075164, 51.604483568721975], [-0.942405972956444, 51.60454238758566], [-0.942542307804962, 51.60457868292929], [-0.942668453620936, 51.60461848302318], [-0.942754322773386, 51.60465162617505], [-0.942930037674105, 51.6047332338937], [-0.94300827141212, 51.60478429141865], [-0.943050642772121, 51.60482513526179], [-0.943095505071305, 51.604883085645305], [-0.943175837511794, 51.60503037259752], [-0.943199044776033, 51.60508812802956], [-0.943264927978451, 51.605360268787045], [-0.94328295289835, 51.6055168856955], [-0.943285556153251, 51.605653582182974], [-0.94327790338372, 51.60573443814757], [-0.943262026480571, 51.60579633763445], [-0.943228365851772, 51.605877858692274], [-0.943092212068021, 51.60614458434088], [-0.943074097962666, 51.60624063192375], [-0.943061365824471, 51.606415854446915], [-0.943044862244347, 51.60650472320056], [-0.943017897594943, 51.606608783583646], [-0.942979591589439, 51.606703750216774], [-0.942905884027612, 51.60683076806164], [-0.942741267849139, 51.60707925374213], [-0.942655006715899, 51.607249318295594], [-0.942630361430127, 51.60731563455148], [-0.942616263944651, 51.607425205688976], [-0.942621958529523, 51.60749089598715], [-0.942636336634899, 51.60755576531453], [-0.942660904708633, 51.607617129739225], [-0.942696981288364, 51.607680396114986], [-0.942747433102709, 51.60774648940761], [-0.942856244975984, 51.6078490746924], [-0.94299552290573, 51.60794563997599], [-0.943040847342192, 51.60798381288104], [-0.943186973159248, 51.608158666884215], [-0.943285889122319, 51.60825217104693], [-0.943509689787491, 51.60844031193307], [-0.94379690141149, 51.609007570967925], [-0.943824004868445, 51.60908424372538], [-0.943831400135399, 51.609201201602104], [-0.943839541642426, 51.60922375393887], [-0.943852077204152, 51.6092436483043], [-0.943874740412961, 51.60926273459518], [-0.943900416430683, 51.60927645299323], [-0.944008015202393, 51.60930709311221], [-0.944074894993692, 51.60934995527111], [-0.944126815315737, 51.60941516198104], [-0.944143328071964, 51.60945037786937], [-0.944150844233183, 51.609499899486615], [-0.944148608042361, 51.60953404761941], [-0.944074023202655, 51.60969882315075], [-0.94403415265091, 51.60986121332522], [-0.944017357658548, 51.60996266784037], [-0.943992023164905, 51.61030771903426], [-0.943965568458423, 51.61051428886229], [-0.943938629028152, 51.61067949277199], [-0.943919488028492, 51.61075754789674], [-0.943885949921455, 51.61083367520212], [-0.943827406881077, 51.61092935920088], [-0.943739589608875, 51.61104186395993], [-0.943638735204063, 51.61115604969767], [-0.943533757272514, 51.611261206608894], [-0.942952360107171, 51.61179457356613], [-0.942768364001955, 51.61194397664764], [-0.942436714102017, 51.61217027698273], [-0.942010518369458, 51.61248743929258], [-0.941742162181165, 51.61266215641604], [-0.941369087685306, 51.61286829880399], [-0.941218061678922, 51.612965845186196], [-0.941055044244821, 51.613082165678385], [-0.940962318642569, 51.61315685920963], [-0.940802313735133, 51.613329853845215], [-0.940532273923746, 51.613638528438315], [-0.940201080800705, 51.61403027273604], [-0.940058816377521, 51.614185443187054], [-0.939985695447699, 51.614286388653916], [-0.939953592073967, 51.614362527773245], [-0.939906859457064, 51.614508669589505], [-0.939802341993177, 51.61490335803689], [-0.939554942446072, 51.615603370947234], [-0.939452722231603, 51.61596121406953], [-0.939421935085161, 51.61604275989804], [-0.939387192811998, 51.616108085051245], [-0.939207265482904, 51.61639149465681], [-0.939036585027605, 51.61671185322904], [-0.938852844916865, 51.61697274874371], [-0.938765881571911, 51.61710953487875], [-0.938636321443754, 51.617400592062225], [-0.93858227703968, 51.617550263869646], [-0.938563060896774, 51.61763101488344], [-0.938557821588965, 51.617793716095726], [-0.938568952285691, 51.6178738422429], [-0.938586194898738, 51.61793963701825], [-0.93864824402059, 51.61806608070808], [-0.938712639101221, 51.61815388154161], [-0.938801458484915, 51.61824729803767], [-0.938902019778203, 51.61833272809444], [-0.939001577491258, 51.61839926656718], [-0.939080060597956, 51.6184404379885], [-0.939144458958051, 51.618466196342986], [-0.93924483456823, 51.61849767462955], [-0.939389936057716, 51.61853135511866], [-0.939533886937889, 51.618552436752374], [-0.939605967169062, 51.618558482633226], [-0.939704125343146, 51.618561167280205], [-0.940011869234288, 51.61855765138392], [-0.940970156479417, 51.61846828865034], [-0.942814559287174, 51.61834913395653], [-0.9433943585448, 51.61832378069166], [-0.943791844341078, 51.61831207069643], [-0.944095316626396, 51.61830580819228], [-0.944345189840605, 51.61830625638639], [-0.944633949874169, 51.618311549349706], [-0.944866264500346, 51.618321729423634], [-0.945069571918896, 51.61833704343469], [-0.945259736594118, 51.618358533188456], [-0.945405071369022, 51.6183823175338], [-0.945538707551366, 51.61841229079249], [-0.945670733169093, 51.618449442740584], [-0.945789657802543, 51.61849097274293], [-0.945898390514756, 51.618536007789324], [-0.946002624502939, 51.61858819565799], [-0.946144975691139, 51.61867849034559], [-0.946290660655923, 51.61881197458077], [-0.946424293873759, 51.618966930407886], [-0.94648587943588, 51.619052004215185], [-0.946597289998464, 51.61923103785771], [-0.946748500992991, 51.619500344620654], [-0.946865282768134, 51.619759451627154], [-0.94692090631825, 51.619852564183816], [-0.946986743272162, 51.619941272483025], [-0.947121992710119, 51.62008904866086], [-0.947221067183078, 51.620177155655796], [-0.947357337089385, 51.62028088174252], [-0.947636341593443, 51.62045871900467], [-0.947732020809812, 51.62050633282523], [-0.947832261440868, 51.62054409665008], [-0.948024909405708, 51.6205835873772], [-0.948272727755043, 51.62061098363029], [-0.94903310890345, 51.62064836261257], [-0.949342820854191, 51.62068530212313], [-0.949548509996597, 51.62072310869445], [-0.949603327033706, 51.620726296510135], [-0.94966121922192, 51.62072141934501], [-0.949725095662238, 51.62070760405018], [-0.949813979767225, 51.620674230793945], [-0.949850856696741, 51.620766275113425], [-0.949938127431095, 51.62092800552347], [-0.95012170684362, 51.62142328688538], [-0.950137689181391, 51.621481875301626], [-0.950144591409982, 51.621558365780544], [-0.950143525838059, 51.62166715485939], [-0.950086848280287, 51.62218276713024], [-0.950081566444785, 51.62234906486587], [-0.950091380322934, 51.6227375905417], [-0.950012857804674, 51.623198158520914], [-0.949963053357781, 51.62366617649237], [-0.94993621019599, 51.62382778558582], [-0.949887611273865, 51.62405573809743], [-0.94981748429385, 51.62434014525264], [-0.949698012983878, 51.6246969431444], [-0.949601071539472, 51.62520410239216], [-0.949519655994856, 51.62547671925938], [-0.949509640700394, 51.62553507516918], [-0.949509569744091, 51.62560071332227], [-0.949517625184728, 51.6256898023632], [-0.949539397678852, 51.62581048474923], [-0.949602831958219, 51.626066413978656], [-0.949622600072634, 51.6262113557699], [-0.949625807500304, 51.62644786389373], [-0.949588359660548, 51.62688092470566], [-0.949587162842075, 51.62718303218221], [-0.949593421398238, 51.627287390862], [-0.949641886384285, 51.62762860642186], [-0.949677564559904, 51.627772791296934], [-0.949732061930258, 51.62791534613564], [-0.949847071945823, 51.62812767746571], [-0.95005020451512, 51.62890367131774], [-0.949860358893705, 51.62924185674224], [-0.949849459019953, 51.62927592739189], [-0.949848649628705, 51.62931098742953], [-0.949857806222275, 51.62935243070728], [-0.949882540677514, 51.62940750068883], [-0.949782851646605, 51.62940750843079], [-0.949684104107472, 51.6296170289926], [-0.949619670293909, 51.62984214210067], [-0.949589348281571, 51.62990391300069], [-0.949478823262764, 51.63006027755304], [-0.949419643728549, 51.63018293320961], [-0.949378577882241, 51.63033452402259], [-0.949364251310331, 51.63051692549393], [-0.949339228920643, 51.63059942443184], [-0.949248633732607, 51.63076855530058], [-0.949181283974238, 51.630869557872636], [-0.949044504574139, 51.63103647701982], [-0.948893935504611, 51.63136242402941], [-0.948761069414249, 51.631297394415576], [-0.948669492362367, 51.63125880992652], [-0.948537801268757, 51.63120547966423], [-0.948447461288637, 51.63117589768262], [-0.948353982967507, 51.63115707745748], [-0.948302104865814, 51.63115121794117], [-0.948079606840815, 51.63115102360314], [-0.947964190602531, 51.63114369566099], [-0.94782149485015, 51.63112892992514], [-0.947725107052886, 51.63111098229264], [-0.947684910040859, 51.63109983219839], [-0.947483021604023, 51.63102069524269], [-0.947447137482345, 51.63101048287877], [-0.947306094892948, 51.630986739722026], [-0.947000710620611, 51.63094713644845], [-0.946674033898238, 51.6308911565172], [-0.946364247153943, 51.63079216747898], [-0.946230490849763, 51.63076579091048], [-0.946172752135344, 51.63076347450912], [-0.94612066649297, 51.630766603772976], [-0.945914796224295, 51.63079712600587], [-0.94583241748209, 51.63079818492752], [-0.945382953779145, 51.63067905708907], [-0.945085984219956, 51.63058827220451], [-0.944883205963743, 51.630547786680644], [-0.944304065189339, 51.630538086402446], [-0.94394898927073, 51.630523204990325], [-0.943611477254356, 51.63049858971805], [-0.943603681926519, 51.6307098224617], [-0.943277115569317, 51.63102249010073], [-0.943359247728321, 51.63109426279834], [-0.942862682241593, 51.631385618132356], [-0.942777562378065, 51.63144239822567], [-0.942532313252267, 51.63161282917167], [-0.942337892928893, 51.63177202827151], [-0.94226606523137, 51.631816339444626], [-0.942197377359527, 51.63184988892168], [-0.942115813951467, 51.631877927416205], [-0.941937005967162, 51.631924871353945], [-0.941512981586086, 51.63201636159427], [-0.94144898217334, 51.6320346671529], [-0.94125937051438, 51.632111184999914], [-0.940790185204025, 51.6323425346351], [-0.940501042462563, 51.632535943664614], [-0.940243238615803, 51.63268647504363], [-0.940131608045529, 51.632764593869275], [-0.939328651391563, 51.63361514453957], [-0.939011405652477, 51.634145481445906], [-0.93882930544315, 51.63451878632893], [-0.93850479164515, 51.63486472819315], [-0.93841585373771, 51.63483694950617], [-0.938308667759282, 51.63503379600045], [-0.938237520065274, 51.63511048065125], [-0.938174497877949, 51.635148574806536], [-0.938097155068085, 51.63518114448376], [-0.938014243480848, 51.63520467214815], [-0.937885103100742, 51.635227781700706], [-0.937899482630853, 51.63529265131639], [-0.937852791962712, 51.635312010611116], [-0.937756752174709, 51.63534081433219], [-0.93768849662133, 51.635355482713884], [-0.937445207164159, 51.63537845841074], [-0.937282775985471, 51.6354039635962], [-0.936848828519967, 51.635485456519916], [-0.935951432459366, 51.63561220386278], [-0.935719677036262, 51.635636179646525], [-0.935420148631615, 51.63565414571281], [-0.935249454884316, 51.63560044703531], [-0.935077590540852, 51.635535048401415], [-0.934717727795324, 51.63535285185533], [-0.934413155884105, 51.635216113905294], [-0.934240481559584, 51.635123731852076], [-0.934130824273522, 51.63505529964683], [-0.934018404467151, 51.63498144729724], [-0.93379675026591, 51.63482118293064], [-0.933679892303923, 51.6347517857655], [-0.933595523374065, 51.63471415412531], [-0.933350473747258, 51.63462740768713], [-0.933261876876166, 51.63458524160035], [-0.933052343088727, 51.63446285066096], [-0.932887751506176, 51.63439571653097], [-0.932638117941304, 51.63431971687678], [-0.932307197466639, 51.63419801967628], [-0.931343887912331, 51.63380981222079], [-0.931071830619705, 51.63376597498289], [-0.930956833347264, 51.63374065092008], [-0.930823331188951, 51.63370346918478], [-0.930701576222194, 51.633658301797674], [-0.930601553796263, 51.63361063468632], [-0.930506119022842, 51.63355221932683], [-0.930386739592999, 51.633467510133144], [-0.930286034494439, 51.633387466714524], [-0.930225334024314, 51.63332666999925], [-0.930188937852857, 51.633276884582266], [-0.930114567680391, 51.63312155131756], [-0.92999324620862, 51.63293521875163], [-0.929900400330813, 51.63282827174111], [-0.929602366751531, 51.6325378240622], [-0.929499431873266, 51.632429885607195], [-0.929341000864788, 51.63222433167361], [-0.929059923028374, 51.631889079042224], [-0.928963213558906, 51.63176231446386], [-0.928896162303318, 51.6316645934755], [-0.928844852932023, 51.631573310156845], [-0.928688841592085, 51.63126527289447], [-0.928672375509884, 51.6312282570475], [-0.928615004479859, 51.631026321392014], [-0.928599834825331, 51.63099561149414], [-0.928552267379979, 51.63092953870757], [-0.928477466267079, 51.630854225808044], [-0.928389580173335, 51.630782390113474], [-0.928294323595921, 51.6307167812279], [-0.928190294396403, 51.63065558801307], [-0.928078937075949, 51.630598823630024], [-0.927494137115659, 51.630339021667446], [-0.927177150281751, 51.63017967221046], [-0.927053070740772, 51.63011110151437], [-0.926922044883713, 51.63003077810591], [-0.926774152423019, 51.6299305188448], [-0.926569924361936, 51.62976860145066], [-0.926465515994788, 51.62966244509719], [-0.926222881099496, 51.62935271335746], [-0.925807083215573, 51.62885077488713], [-0.925685153671251, 51.62869140695483], [-0.925627779063265, 51.628612654944924], [-0.925107975398826, 51.62780494620014], [-0.925039238852947, 51.627717997425265], [-0.924853081975605, 51.627525670804864], [-0.924566287633664, 51.62725149768458], [-0.924018135317732, 51.62666651663998], [-0.9236755124427, 51.62631000590676], [-0.923506463123086, 51.62618886774415], [-0.92325024557972, 51.62602736696645], [-0.923179326155173, 51.62597186775246], [-0.923151247824846, 51.62593744208942], [-0.923025917353845, 51.62573937605691], [-0.922746731858051, 51.625388839233764], [-0.922647729925315, 51.625421200084226], [-0.922438316532782, 51.62517470633975], [-0.922266691774008, 51.62491866820555], [-0.922176577184834, 51.624819832363215], [-0.921722712186069, 51.62440384906751], [-0.921324388846087, 51.624082786314446], [-0.921078577970903, 51.623909687134365], [-0.920860652296657, 51.62377910436709], [-0.920574889783577, 51.623646099345635], [-0.920239048968319, 51.623492851580735], [-0.920014292502202, 51.62371107994427], [-0.919774493442185, 51.623954346092496], [-0.9196346398006, 51.62406455586703], [-0.919395541436808, 51.62427815528515], [-0.919291601043514, 51.624396787581134], [-0.919216417933559, 51.6245210794288], [-0.919153464283899, 51.62467785367513], [-0.919134125069682, 51.624762197061855], [-0.919115026043568, 51.62495803894169], [-0.919049238753011, 51.62517323267518], [-0.919009465019033, 51.625266379578875], [-0.918926652164549, 51.625407685106715], [-0.91889138185638, 51.62549368011671], [-0.918887531877765, 51.62553410703284], [-0.918896749679156, 51.62569334383204], [-0.918892707420934, 51.62574186144837], [-0.918872585162246, 51.62579832350382], [-0.918836276012485, 51.62586722482348], [-0.918763089019947, 51.62596815648993], [-0.918486277330256, 51.626309088016214], [-0.918317614737411, 51.62653682130949], [-0.917905561785174, 51.626975413689514], [-0.917718470441796, 51.62724883363936], [-0.917588198962995, 51.627380709193844], [-0.917518986462533, 51.627435819379606], [-0.917391270738013, 51.627520961779815], [-0.916852199941663, 51.62783249660931], [-0.916708494011591, 51.62822500463541], [-0.916564194300437, 51.62882431452802], [-0.91642514281193, 51.62950639562586], [-0.916399138398425, 51.62974892972319], [-0.916394191477189, 51.62995659074321], [-0.917260413231125, 51.62992321851857], [-0.917422640699178, 51.63166639247214], [-0.91745600722272, 51.63232848375385], [-0.917204699151121, 51.632324368705305], [-0.916787813832452, 51.632356490901394], [-0.916473041038736, 51.63240843616508], [-0.91615824611563, 51.63246127954521], [-0.916096846672852, 51.632491284427324], [-0.916000979824314, 51.632573122584574], [-0.916035541448316, 51.63300234215989], [-0.916058746179642, 51.633180590521675], [-0.916070697537387, 51.63322475979131], [-0.916098260729099, 51.63328076225654], [-0.916287121367376, 51.6334803208717], [-0.916556537933578, 51.63369500893812], [-0.916833436931067, 51.63389897542989], [-0.916980624704717, 51.63396776999687], [-0.917236275570907, 51.634093312450645], [-0.91746761535009, 51.63414759643489], [-0.917599467742121, 51.63382870989293], [-0.917652284973834, 51.63367364156546], [-0.917677934007693, 51.63362802065708], [-0.917745133700401, 51.63359716923921], [-0.917749446066394, 51.633598108140106], [-0.917778102484095, 51.633608262991594], [-0.918084580428658, 51.633662338963], [-0.918258883815884, 51.633684625273325], [-0.918506861448772, 51.63370758977881], [-0.918953829589691, 51.63374767133924], [-0.919245145699076, 51.633771033193085], [-0.919300707852053, 51.63386505735126], [-0.919518444759651, 51.63449197843591], [-0.919277685382965, 51.63446908250848], [-0.919031520477806, 51.63467362436313], [-0.918786199566619, 51.63490335001199], [-0.918632752044247, 51.63503681158531], [-0.918623327237537, 51.63512933850577], [-0.918590569006466, 51.635413172104], [-0.918679820058316, 51.63554886817429], [-0.918329488250497, 51.63557621368664], [-0.918276435808259, 51.635741170885815], [-0.918247752304029, 51.6360358318421], [-0.918226764712395, 51.6364321689642], [-0.918316733144818, 51.63702374696847], [-0.918287332378286, 51.63783452012518], [-0.918306713699577, 51.63835621240955], [-0.918316674296085, 51.639213205140855], [-0.918347519668651, 51.639799742499974], [-0.918322169732004, 51.63995416480466], [-0.918318885834364, 51.64003146244247], [-0.91832686087795, 51.64012145202931], [-0.91837911416845, 51.640354816042915], [-0.918418495846573, 51.64070405330022], [-0.918530296534871, 51.64128953760163], [-0.918512952473936, 51.64147190762244], [-0.918367217757134, 51.64200916315153], [-0.917905817511154, 51.6420255938785], [-0.917874522823857, 51.64200462484983], [-0.9178264462409, 51.64196012300076], [-0.917792775459127, 51.641917552189355], [-0.917773553228143, 51.64187511449974], [-0.917765526057023, 51.64184806570082], [-0.917757894232724, 51.6417436926823], [-0.917749532884981, 51.64142711089125], [-0.917739557627689, 51.64136048104305], [-0.917720785029217, 51.641299165096676], [-0.917688816437575, 51.64124581999865], [-0.917649452591449, 51.641199600032465], [-0.917568381483579, 51.64114490323613], [-0.917433423830488, 51.64098630616572], [-0.917315173490429, 51.64079369481265], [-0.916601390868836, 51.640243120219885], [-0.916329281834837, 51.640018517003504], [-0.916001068304932, 51.63966211774633], [-0.915790319174844, 51.63947044935813], [-0.915502073944432, 51.63913509831614], [-0.915393357554307, 51.63902799332443], [-0.915169439572157, 51.63884339546647], [-0.914312592230519, 51.638234837864296], [-0.913969150495335, 51.63797270396478], [-0.913808719070197, 51.63773204326735], [-0.913709021859032, 51.63761063348384], [-0.913238840648949, 51.637814889395024], [-0.912211197236081, 51.63818662075986], [-0.912057780107923, 51.6382571327065], [-0.911911629192503, 51.63832591344631], [-0.911683066608314, 51.6384568717294], [-0.911571655864317, 51.638583520328496], [-0.910821072629623, 51.63897039510019], [-0.910799442348496, 51.63890815232427], [-0.910457034748542, 51.63884473254883], [-0.90959863753988, 51.63872527019996], [-0.909397970101408, 51.639078576087414], [-0.909048252097236, 51.63925965643008], [-0.909362542404515, 51.63959166868019], [-0.90780907162756, 51.64013291512084], [-0.906217399025103, 51.640939038154336], [-0.905898125060113, 51.64111499768922], [-0.905490384709512, 51.641363863281036], [-0.905329841704473, 51.64154939281248], [-0.905189541321435, 51.641794455508446], [-0.90489098319803, 51.64194992468491], [-0.904781623731163, 51.641990266433346], [-0.904676706895303, 51.64202615370086], [-0.904609919053975, 51.64203901826923], [-0.904237228330216, 51.64209218907456], [-0.90337364044862, 51.64224597828853], [-0.902975191138407, 51.642348358507896], [-0.90292303291413, 51.6422939216028], [-0.902563354675933, 51.64240655335107], [-0.902346768622897, 51.642458479170756], [-0.900824166346957, 51.64291090498388], [-0.900831401206159, 51.64297031739377], [-0.900456613238591, 51.64299018760407], [-0.900019098619797, 51.64297440185565], [-0.899740380937974, 51.64290615240652], [-0.899740489711103, 51.64290165761423], [-0.899316872364163, 51.642849133775655], [-0.899203336991784, 51.642822893203494], [-0.898949902655656, 51.64272520647125], [-0.898783095909619, 51.642631028913314], [-0.898613530793898, 51.64253143027416], [-0.898274969154989, 51.64230885935864], [-0.898003026265053, 51.642080618381755], [-0.897815191816853, 51.641840577798526], [-0.897681652652772, 51.6416262230417], [-0.897327401428262, 51.64091885338664], [-0.896908641882592, 51.6401308512027], [-0.896689777704333, 51.63985994571793], [-0.896199107519928, 51.639356299928586], [-0.896147069948886, 51.63929736526477], [-0.896071667668875, 51.63912941223961], [-0.896034388155249, 51.63881974973283], [-0.89604243255033, 51.63866696761571], [-0.896079873457203, 51.63849378104931], [-0.896158355572289, 51.63829670279626], [-0.896345617779906, 51.63796397393339], [-0.896436991088377, 51.637771512438086], [-0.896627579786388, 51.63748017587825], [-0.896853716275347, 51.63721255114492], [-0.896930541034958, 51.63714313797598], [-0.897052325259386, 51.63706695367484], [-0.897622203318074, 51.636806151704704], [-0.897875248140837, 51.636679946210485], [-0.898045509693898, 51.63657094674504], [-0.898161794997489, 51.63648302058021], [-0.898300490282884, 51.636364732965696], [-0.898761753797595, 51.63587451909389], [-0.898944791614438, 51.635595696246455], [-0.899167964890093, 51.63497197055003], [-0.899296205851425, 51.63450920414348], [-0.899574174378538, 51.633591065468096], [-0.89965934952667, 51.63323579470252], [-0.899745200652967, 51.632733067337156], [-0.89977291429982, 51.632065248259224], [-0.899749317297925, 51.63190587518938], [-0.899730833669311, 51.631833768913715], [-0.899698165870897, 51.631750739777836], [-0.89965967663145, 51.63166945441679], [-0.899415121605884, 51.63126703489972], [-0.899342021743563, 51.6311233827535], [-0.899274678557411, 51.630980683675816], [-0.899221406706553, 51.63067446858268], [-0.899099405183406, 51.63046202142283], [-0.899036514315775, 51.63037421293725], [-0.898969246754073, 51.63028816171176], [-0.898790586842518, 51.63008867047265], [-0.898592010806669, 51.62987640386868], [-0.898497321924236, 51.62978919602221], [-0.898330098469121, 51.62965455114822], [-0.898092642525963, 51.62949676796704], [-0.897090362270362, 51.62894426419184], [-0.896737033461809, 51.62879887742956], [-0.896347312922056, 51.6286648367393], [-0.895633444660858, 51.62837398981453], [-0.895432402381131, 51.628264199314984], [-0.895328663542796, 51.62819308870188], [-0.895257753282041, 51.62813847178444], [-0.895144755729953, 51.62803220648194], [-0.894948239644532, 51.627795675481295], [-0.894944118635818, 51.62766795529761], [-0.894659948504904, 51.62723368184], [-0.894597856997988, 51.62711350846984], [-0.894557343909314, 51.62699713484451], [-0.894469809950127, 51.62655661915932], [-0.894297931114171, 51.625960652861906], [-0.894027819576293, 51.62530531541029], [-0.893931965007508, 51.62514795788166], [-0.893770350871199, 51.62496210671055], [-0.893637995566781, 51.62476124514902], [-0.893507481839104, 51.62466290563429], [-0.892108104715385, 51.62369479825078], [-0.891788795844237, 51.623459800649094], [-0.891922368328922, 51.62337294285213], [-0.891402229815371, 51.62296161084893], [-0.891224922435199, 51.622768414566416], [-0.890089770742591, 51.621276764770215], [-0.890188416566163, 51.62120036880181], [-0.889947380146256, 51.62101466068101], [-0.889727152716072, 51.62086421627997], [-0.889328903798693, 51.62066892786315], [-0.889153387824523, 51.620758083474584], [-0.888409981594066, 51.6201459098237], [-0.888016456293258, 51.619876030785385], [-0.887588982852847, 51.619754191291285], [-0.887143566599165, 51.61965735685454], [-0.88701981132148, 51.61963820065132], [-0.886790744842007, 51.619613550199404], [-0.886603228328527, 51.619602780759124], [-0.886388075513318, 51.619599841439666], [-0.886090409498186, 51.61960421155123], [-0.8851368584814, 51.61967159165818], [-0.883828125903616, 51.61979133688442], [-0.883515973065361, 51.619797361107345], [-0.883424375160774, 51.6198216668555], [-0.883259776293847, 51.619877648328995], [-0.883163867754863, 51.61990101371408], [-0.883044634749604, 51.619815357981636], [-0.881854770311083, 51.61956485587701], [-0.881704286246311, 51.61951666620604], [-0.881635675440863, 51.619487239450166], [-0.881560131370525, 51.619446057447796], [-0.881477720403852, 51.619390423316226], [-0.881374708667671, 51.619291432867335], [-0.880834298239682, 51.61853547912722], [-0.880617549323506, 51.618127888748454], [-0.880388345702594, 51.61816796449318], [-0.879226788544387, 51.6185884841998], [-0.878534686661489, 51.61883184500677], [-0.878385021629543, 51.61898507235025], [-0.878148819949825, 51.61913297697072], [-0.878102165244257, 51.61915051459153], [-0.87804120240859, 51.61916252048532], [-0.877967464227806, 51.619165412606506], [-0.877896924603018, 51.61915574690363], [-0.877839648002824, 51.61913541789456], [-0.877812586845032, 51.61911987344738], [-0.877382402665225, 51.61869944717381], [-0.877261875140598, 51.61866682400238], [-0.877087293116294, 51.618600414623565], [-0.876592344555959, 51.61846350297477], [-0.876408990128558, 51.61845995037962], [-0.876374465270622, 51.61845422502283], [-0.876347205240439, 51.61844677083749], [-0.87630299358364, 51.61842386858449], [-0.876241963569583, 51.618380124514495], [-0.876216636094276, 51.618352907107045], [-0.876152781748704, 51.618131100785114], [-0.876106882196741, 51.61811807314475], [-0.876305643178539, 51.617614643124426], [-0.875030363348109, 51.6174927341714], [-0.874705473526163, 51.61748872204597], [-0.874564111923802, 51.6174810731233], [-0.874279482039409, 51.61730930128958], [-0.874259717266618, 51.61699889890464], [-0.874416434195306, 51.61673604585861], [-0.874423036602998, 51.61652750219062], [-0.870144618410033, 51.61769939147719], [-0.870074692270606, 51.617607003497994], [-0.869665459226217, 51.61768399010514], [-0.869137937974611, 51.617812887107476], [-0.868711126950696, 51.61789959196275], [-0.868460959800069, 51.617969115035805], [-0.866874516019656, 51.61827841686334], [-0.866642434191741, 51.6183175388698], [-0.866517885416195, 51.61833072340073], [-0.866392071649004, 51.61833670224208], [-0.865776872894858, 51.61833166083683], [-0.865633662902087, 51.618340168339564], [-0.865493072065054, 51.618359490991885], [-0.864874419821269, 51.618492883413026], [-0.864829070270363, 51.61851582340227], [-0.8648101986804, 51.61846169086974], [-0.864778464993556, 51.618402038980314], [-0.864733824417545, 51.61833866562683], [-0.864681918741689, 51.61827702035103], [-0.864649512487616, 51.61824433697217], [-0.864492159027339, 51.61812502442397], [-0.864510219622979, 51.618037979732996], [-0.864490008258273, 51.61792179156664], [-0.863791866117017, 51.616668790850674], [-0.863578496430752, 51.61619016667409], [-0.863939572338851, 51.6160749702936], [-0.864141702322916, 51.61602027805823], [-0.864343742093738, 51.615969181278444], [-0.864684853799959, 51.61590144547291], [-0.864287415633653, 51.61573755014447], [-0.864114344880943, 51.615611790807684], [-0.86394143216696, 51.615479738556914], [-0.863424226660599, 51.6150224515856], [-0.863108525016747, 51.61470918210108], [-0.862999136822108, 51.61463618943345], [-0.862947760773663, 51.614611414387845], [-0.862827479233939, 51.614569786988696], [-0.862764327092327, 51.6145538895073], [-0.862690954996651, 51.614542388851355], [-0.862422671693898, 51.614528100870835], [-0.862278208948609, 51.61452939875511], [-0.862025067586916, 51.614544929155834], [-0.861633333855888, 51.61461576315295], [-0.861195617216796, 51.61467715820802], [-0.860991546767721, 51.61469406144679], [-0.860819513274215, 51.61470048511226], [-0.860591345418716, 51.61469917048917], [-0.860366335624517, 51.61468709604235], [-0.860199196800327, 51.61467108707321], [-0.860140174693704, 51.6146633207896], [-0.859842784619867, 51.61460018922178], [-0.85969929013584, 51.61456282905675], [-0.859501466379857, 51.61450336097874], [-0.859306643699259, 51.614439425872085], [-0.859175017225196, 51.614389591981386], [-0.858977780895874, 51.61430675031806], [-0.858172868778381, 51.61392127488393], [-0.856305510909038, 51.61299763777437], [-0.855879431428414, 51.61282624136621], [-0.855413827571698, 51.612676038205095], [-0.855073660630441, 51.61259179657028], [-0.854915624510577, 51.612558784566126], [-0.854688372582268, 51.61252150056368], [-0.854459541396129, 51.6124895957323], [-0.854208848612115, 51.61246556965946], [-0.853413812340721, 51.612436228916096], [-0.851724243907319, 51.61242871018406], [-0.851450292115, 51.612410744947404], [-0.850998615679464, 51.61233888823236], [-0.850653274334699, 51.61223120468302], [-0.850372939737194, 51.61235164666859], [-0.850315593337778, 51.61233490012849], [-0.850193999216673, 51.612288751000705], [-0.850146601119627, 51.612278395984944], [-0.849926028861458, 51.61226274823948], [-0.849854084982468, 51.61225215268858], [-0.849714847013531, 51.612218418620564], [-0.849473435162227, 51.61217019573735], [-0.849372523204365, 51.61216291272777], [-0.849235958321253, 51.61219484371945], [-0.849170915863905, 51.6121969037703], [-0.849112126238191, 51.61218014249445], [-0.8487984760956, 51.61201881385575], [-0.848813983178796, 51.61186251023449], [-0.848805967905994, 51.611779707971536], [-0.848777693193183, 51.61169850541887], [-0.848751669639592, 51.61164250170296], [-0.848740414389996, 51.61163070213332], [-0.848685616135578, 51.61162746733029], [-0.848598109857592, 51.61148993537107], [-0.848561752293423, 51.61144282198033], [-0.848420551583887, 51.61131555337684], [-0.848346143135118, 51.61123120073643], [-0.848017978126262, 51.61073074025961], [-0.84803240586268, 51.61067423405594], [-0.848009203184881, 51.61062095534751], [-0.848010806265629, 51.61061467688053], [-0.848360723390725, 51.61054078070849], [-0.848731046077576, 51.61040234328455], [-0.848814480324059, 51.61035820278237], [-0.848820437461021, 51.610351067821576], [-0.848690278305866, 51.610072847084595], [-0.847947554822518, 51.60900543974003], [-0.847435103308081, 51.6083125448088], [-0.847167998407497, 51.60796823756615], [-0.846186886755928, 51.60662333116728], [-0.845549998419521, 51.605828497430636], [-0.845383680959569, 51.60566770865375], [-0.844840468159951, 51.60522267062485], [-0.84443530295085, 51.60497141150611], [-0.844232696249957, 51.60481835643492], [-0.843486943931864, 51.60416181103064], [-0.84332558359401, 51.60420428093958], [-0.842908147301968, 51.603868373383044], [-0.842663709069561, 51.603714004109015], [-0.842310199280505, 51.603533382087996], [-0.841471682375652, 51.60311958453644], [-0.841215384127901, 51.602977683579475], [-0.840873068217364, 51.60281155440105], [-0.840467421086961, 51.602637605395635], [-0.840268344470896, 51.602516948405764], [-0.840203154295604, 51.60246864832527], [-0.838474883614574, 51.601841924417336], [-0.838334815858368, 51.60178568911777], [-0.838125139250388, 51.60168470536249], [-0.837520083534699, 51.60134782062488], [-0.837365310402971, 51.60124558073874], [-0.837143016970701, 51.6010734356079], [-0.83702163004049, 51.600964332538595], [-0.836879440722268, 51.60082175386177], [-0.836733036616179, 51.60067463738169], [-0.836105420124444, 51.59992210370809], [-0.836001567218505, 51.59980508080317], [-0.835894758960057, 51.59969072601903], [-0.835646409012494, 51.5994652683849], [-0.835572705263831, 51.59941148620318], [-0.835355212679077, 51.599278049641256], [-0.835001490423373, 51.59910819321327], [-0.834666328550124, 51.59894661249016], [-0.834023851532118, 51.59860753956394], [-0.833813699592692, 51.59846967713012], [-0.832219972267628, 51.59727861587006], [-0.831975375091702, 51.59713321406168], [-0.83180286996819, 51.597047874561696], [-0.83156138306724, 51.59695015903964], [-0.831279067386554, 51.596868221715724], [-0.831119729288761, 51.59683246683902], [-0.830996129682144, 51.596810555210986], [-0.830798964246538, 51.59678611250204], [-0.829935838169309, 51.596720865686486], [-0.82967342169104, 51.596707460026586], [-0.829378950815281, 51.59670542343618], [-0.828672101908656, 51.596738836236966], [-0.828529092462618, 51.59674190522934], [-0.828241907711544, 51.596737240965595], [-0.828066024571149, 51.59672739285258], [-0.827854311754233, 51.596707295846045], [-0.827399248313258, 51.59666228882735], [-0.827164974703315, 51.59662128423301], [-0.827063074447412, 51.59659778687348], [-0.826830893268571, 51.59653162563389], [-0.826403126611598, 51.596379885757386], [-0.826320361645679, 51.596342192238744], [-0.826196596762853, 51.596270819297594], [-0.825930135887572, 51.596078429107884], [-0.825702044863314, 51.59590980062742], [-0.825239717878873, 51.595531118786504], [-0.824901250965003, 51.59522021379687], [-0.824412039116432, 51.59470908081712], [-0.8242790371805, 51.59460434384618], [-0.824162427084317, 51.59453573788591], [-0.823734544991122, 51.59433363318264], [-0.822923577534385, 51.59387232098135], [-0.82274220720895, 51.593740122024236], [-0.822758790294358, 51.59343366962803], [-0.822450529949737, 51.592123177421634], [-0.822408018987733, 51.591980681321466], [-0.82236394886053, 51.59184266543808], [-0.822242174035691, 51.59158338051977], [-0.821801765862476, 51.5908065697487], [-0.821372709449585, 51.59009371260957], [-0.821171850754746, 51.58982284235581], [-0.820679968304875, 51.58936291919855], [-0.820417155492676, 51.58914357740762], [-0.82015811620844, 51.5888901042506], [-0.820045903377484, 51.58876399099103], [-0.81975498206002, 51.5884040936899], [-0.819793038416411, 51.58838379523831], [-0.819648800144719, 51.588268149727725], [-0.819147039514258, 51.58763368041164], [-0.818936357700162, 51.58740856531028], [-0.818746726401906, 51.58698404449756], [-0.818744261992127, 51.58691208559554], [-0.818786542624285, 51.586561832259704], [-0.818798419467402, 51.58638211648965], [-0.818772601288344, 51.58593047014409], [-0.818622316220491, 51.585380460186784], [-0.818493730937228, 51.58471737211902], [-0.818460174123387, 51.58461992329734], [-0.818316632401033, 51.58436670899539], [-0.818092592164715, 51.58404524580265], [-0.817774082795079, 51.58341531231479], [-0.817553796530972, 51.58311636524129], [-0.817445537064436, 51.58300557512581], [-0.81689125274485, 51.582562990062094], [-0.816348587477007, 51.58217357091916], [-0.816214612729635, 51.58210837837547], [-0.816144330954904, 51.58209148442308], [-0.816059129697027, 51.58209332267878], [-0.815742672724781, 51.5820523651453], [-0.815217212787465, 51.58194545592985], [-0.815002344756643, 51.58188304223224], [-0.814826435408141, 51.5818210214772], [-0.814485295861823, 51.581730356582035], [-0.81444044205173, 51.581790148477246], [-0.813566956536122, 51.581635656767844], [-0.813282023122958, 51.58154825394594], [-0.813052037332166, 51.581456910143594], [-0.812870182657061, 51.581346270732034], [-0.812790810356639, 51.58129061819263], [-0.812604263086127, 51.581138568732094], [-0.812386509085548, 51.58085492331321], [-0.812249092317067, 51.58070067277682], [-0.812167619564544, 51.58055957666617], [-0.812051961231651, 51.58029045130041], [-0.812042798783181, 51.580254391465495], [-0.812034433182585, 51.580187767648724], [-0.812033188044369, 51.58012481260171], [-0.812058064730261, 51.580000977815104], [-0.81229781440549, 51.579440518478464], [-0.812247901650195, 51.57941753400863], [-0.812446355706805, 51.57916777205078], [-0.81277233113049, 51.578787120404634], [-0.813191367818544, 51.57821318632392], [-0.813476583358647, 51.57767926033569], [-0.81372993476285, 51.57714950751218], [-0.813894821439398, 51.57669169369027], [-0.813998634879093, 51.57614064720803], [-0.814138744624452, 51.57508193151095], [-0.814120940539715, 51.57493428638376], [-0.81419874804071, 51.57321943977239], [-0.814492542549023, 51.572575897898666], [-0.814547744449169, 51.57211787423915], [-0.814549364628156, 51.57200009817749], [-0.81449843948966, 51.57157247390041], [-0.81447275908744, 51.57022974030085], [-0.814470739157426, 51.56964165674743], [-0.814429823166273, 51.56938407823071], [-0.814416473674158, 51.5693425811485], [-0.814362577800679, 51.569251219648685], [-0.81406844007837, 51.5689659058573], [-0.813908308238922, 51.56874308971205], [-0.813853532979604, 51.56863013877188], [-0.81375715260415, 51.56839717647337], [-0.81371284208748, 51.56815934527622], [-0.813667666933597, 51.567788426746645], [-0.813915408556528, 51.567527470860746], [-0.814280993234198, 51.56684059466537], [-0.814704823511867, 51.56613272518902], [-0.814994772052415, 51.56569055892733], [-0.815202529336662, 51.56519091397622], [-0.815219131565213, 51.56505170869626], [-0.815351636137841, 51.564671793906264], [-0.815511116853932, 51.56436408558186], [-0.815565592175225, 51.5642108755608], [-0.815662011458114, 51.564053592855515], [-0.815731002538058, 51.56389693250399], [-0.815762954470268, 51.56377766396064], [-0.815882314039101, 51.56307031436626], [-0.815899206541573, 51.563030920866616], [-0.815918960262566, 51.5629924554096], [-0.816100387305838, 51.56272812828101], [-0.816239061970809, 51.562387838558415], [-0.816351227865814, 51.56217946080997], [-0.816402225233145, 51.562104443964415], [-0.816445731089239, 51.56204014171416], [-0.816755073070336, 51.56173843863565], [-0.81682883069147, 51.5615089920632], [-0.81709149295673, 51.56100450196165], [-0.817126546068515, 51.5610435199925], [-0.817036868291134, 51.56144185218239], [-0.817602599672938, 51.56148891511105], [-0.817650902097453, 51.56129517879352], [-0.81772376875861, 51.56109989153342], [-0.818544773098936, 51.56114952106405], [-0.818940645385275, 51.56112652991029], [-0.819286252234888, 51.56087194248433], [-0.820505192935939, 51.560762809232635], [-0.821152924392013, 51.56109751750433], [-0.821401734784996, 51.56112699167495], [-0.821468077854438, 51.561127657861135], [-0.821837057068471, 51.56108460493917], [-0.822551882107614, 51.56083281445182], [-0.822991148836609, 51.56069335159132], [-0.823298868990794, 51.56056425765945], [-0.823427756279142, 51.560489119484224], [-0.823816316952276, 51.56018999039105], [-0.823841530161624, 51.56016326766115], [-0.823879440321637, 51.5600917131651], [-0.823939663402364, 51.55926686943448], [-0.824000930577316, 51.55924050793579], [-0.823876052668265, 51.55798579953388], [-0.823797968341331, 51.557154174451156], [-0.823813910366727, 51.55698348995032], [-0.824268965579194, 51.556733581409404], [-0.824612742777356, 51.55649154853787], [-0.826344281900068, 51.55484359477631], [-0.826657025878971, 51.55457337099326], [-0.827233265990788, 51.554040521447654], [-0.827929376968602, 51.55344502444081], [-0.828029419518581, 51.553368693973354], [-0.828246668974642, 51.55322159923911], [-0.828485269800709, 51.5530855074047], [-0.828605105979095, 51.55302466009866], [-0.829372820563392, 51.55267264797847], [-0.830416538296143, 51.552300003050114], [-0.830341853307235, 51.55217517181714], [-0.830015969895102, 51.55217192349864], [-0.82991663595149, 51.55216463892005], [-0.829524156953837, 51.55211486704629], [-0.829282415323888, 51.552092673855796], [-0.828838545910614, 51.55207835426137], [-0.828599504055965, 51.55206338004898], [-0.828680519991051, 51.55199764928292], [-0.828534433277995, 51.55195752639793], [-0.828384829125967, 51.55188589688778], [-0.827987906418731, 51.55167242458396], [-0.827957477145366, 51.551621766572], [-0.827834232346298, 51.55159086272802], [-0.827633977763617, 51.551525919798664], [-0.827259642164726, 51.55144395104261], [-0.826879262755715, 51.5513727108443], [-0.826619197529414, 51.551334143723224], [-0.825020961294276, 51.55117248609027], [-0.825087548806697, 51.55099511486544], [-0.825080332863119, 51.55093929339289], [-0.825041927300218, 51.55086247849746], [-0.82502361605882, 51.55078946149474], [-0.825044884876699, 51.55069166368164], [-0.825058487270179, 51.550667521970404], [-0.82509857658956, 51.550622964257876], [-0.825145597538488, 51.55058926609727], [-0.825325151596322, 51.5505056412203], [-0.824909915146001, 51.550164291306395], [-0.82525013660448, 51.550002248032946], [-0.825332063085088, 51.549957209837], [-0.825638185418255, 51.54977504214384], [-0.82578350044032, 51.54967668704559], [-0.825923116734683, 51.54957557721289], [-0.826170603160388, 51.54937393870707], [-0.826371785812396, 51.54917813090106], [-0.826492161334072, 51.549039961540565], [-0.826611394860751, 51.548890091280356], [-0.82670116630089, 51.54876420424681], [-0.826782355507479, 51.54863553380353], [-0.826823019292071, 51.54856850170786], [-0.827062757600335, 51.548106920435835], [-0.827101368877001, 51.54800749719491], [-0.827194201898492, 51.54770629998806], [-0.827307057244965, 51.54741159704493], [-0.827582602426052, 51.54684696658141], [-0.827901482950928, 51.54639156924703], [-0.828226190833503, 51.54604592938406], [-0.828636291311094, 51.545744301711125], [-0.82879259021163, 51.54566673370386], [-0.828904643767125, 51.545627388779295], [-0.829074413403866, 51.54558682127211], [-0.829642313890905, 51.54554213206049], [-0.831137752395514, 51.5457125947128], [-0.831296230672639, 51.545718668970665], [-0.831381409559054, 51.545715021306385], [-0.831520416985355, 51.54569302674314], [-0.831658465956176, 51.54565213966273], [-0.832162223002951, 51.54540897973132], [-0.832259763552867, 51.545373083913695], [-0.832342495362879, 51.54535232675641], [-0.832449690786029, 51.545333611293344], [-0.832560958333776, 51.54532482723805], [-0.832748224427793, 51.54533298427906], [-0.833594396864807, 51.5455158387706], [-0.833803468208608, 51.5455736658201], [-0.834066591719905, 51.54566080332341], [-0.834319302360527, 51.54576042533909], [-0.834632701147966, 51.545911902800114], [-0.834743597643834, 51.54597414830218], [-0.834972095381443, 51.546118487532766], [-0.835101437527799, 51.546192605160904], [-0.835308853525451, 51.54642845092972], [-0.835597379030446, 51.546650714213946], [-0.835675530378703, 51.54669644865621], [-0.835765285050956, 51.54673960061442], [-0.835946924814448, 51.54679895002405], [-0.836738145066418, 51.54693268079673], [-0.837616543696299, 51.54698454508781], [-0.837668585980954, 51.546979665457], [-0.837867989708348, 51.546964555807335], [-0.83797367625272, 51.54694851789646], [-0.838105566972017, 51.54692284834119], [-0.838233315283634, 51.54688994418392], [-0.838329229403341, 51.54686122067977], [-0.838482151664417, 51.546802489195365], [-0.839036827411148, 51.54642762424692], [-0.83955396219585, 51.54605418383688], [-0.840116011657223, 51.54567219327131], [-0.840736658187885, 51.54525391246058], [-0.840941426195899, 51.54514083988849], [-0.841049279937165, 51.54509604683764], [-0.841194847094701, 51.5450426342828], [-0.841299520083949, 51.545009498946165], [-0.841898633062652, 51.544870644649805], [-0.842282244574123, 51.54481328536381], [-0.842762474116396, 51.54475597844143], [-0.843565178344648, 51.54477737891959], [-0.844086979548171, 51.54484366398717], [-0.845732620874625, 51.545006428046236], [-0.847066038668597, 51.54519847249473], [-0.847735465249349, 51.545415455459946], [-0.84773690700669, 51.54541546961599], [-0.848634731053663, 51.54572550693968], [-0.849946581441456, 51.54620234699594], [-0.850255922443757, 51.54628810259981], [-0.850450510421732, 51.5463493547082], [-0.850677807173489, 51.54642891042725], [-0.850994850981171, 51.546552505063595], [-0.852786328510159, 51.547342426670774], [-0.85300310746802, 51.547496506935786], [-0.853571212311598, 51.54778799706584], [-0.854020445083318, 51.54798930492918], [-0.854581807452525, 51.548205193183556], [-0.85478620907829, 51.54827822314386], [-0.854963577157503, 51.54833660211785], [-0.855161244465997, 51.54839068294659], [-0.855663052553423, 51.5485088736389], [-0.856166529832507, 51.54867563412252], [-0.856279761006, 51.54870371304979], [-0.856530960852844, 51.54875111981111], [-0.856804082121709, 51.54878705024175], [-0.857112033920981, 51.54881432744164], [-0.857381573472553, 51.548820548731904], [-0.857549123049589, 51.54881049056259], [-0.857844479857821, 51.548764809719025], [-0.858057604662229, 51.54872012637499], [-0.858337617310588, 51.54865361386837], [-0.858552497890933, 51.54859635820055], [-0.859049392399301, 51.548450127924276], [-0.859439117962245, 51.5483792842905], [-0.859697682244768, 51.54836291412634], [-0.859779823131423, 51.54836551056866], [-0.860170027263243, 51.548390881318824], [-0.860456238387038, 51.54842243448379], [-0.861009536104037, 51.548500639150554], [-0.861158816462501, 51.54852906321894], [-0.861352413335375, 51.54857320311727], [-0.861544411683264, 51.54862362144007], [-0.861731905414109, 51.5486811891874], [-0.862073439754406, 51.548807688741114], [-0.86254414698236, 51.54901726458452], [-0.86282747298222, 51.54916477803516], [-0.863015068128655, 51.549276295417606], [-0.863120154717426, 51.549342054318615], [-0.863285809311142, 51.54946594721784], [-0.863418211576468, 51.54959311456195], [-0.863530092020445, 51.54973357070672], [-0.863653360363745, 51.549937978681236], [-0.863733641061499, 51.550131180181424], [-0.863790336700716, 51.5503448343906], [-0.863824973966162, 51.550691353426465], [-0.863841717303786, 51.55100353042492], [-0.863889686614544, 51.55116225019172], [-0.863971345177536, 51.55135816235228], [-0.864192531443895, 51.5518009005184], [-0.864636908176204, 51.552606367995786], [-0.864885616784935, 51.55304487507487], [-0.864984710926909, 51.55317801261536], [-0.865042267578469, 51.5532415116859], [-0.86524661818949, 51.553434113390985], [-0.866448255146234, 51.55464702695421], [-0.866553639357719, 51.55475954277147], [-0.86713929523259, 51.555454866418074], [-0.86728119491555, 51.55560729781788], [-0.867357192432134, 51.55568356216347], [-0.867846797612144, 51.55612348793147], [-0.867948777192819, 51.5561991033314], [-0.868039688780355, 51.55625572917072], [-0.868162193200772, 51.55631805467487], [-0.868334859667638, 51.55639345221028], [-0.868507816648064, 51.556457162985154], [-0.868686743286876, 51.556512838449954], [-0.868885971532242, 51.55656421341042], [-0.869870431325262, 51.55700170522159], [-0.870538382015661, 51.557289577406756], [-0.87065953954758, 51.55734829060127], [-0.870968323528286, 51.55751940747054], [-0.871084688448939, 51.55759695683154], [-0.871173919806704, 51.55766345498963], [-0.871421843971099, 51.55790412108149], [-0.871517352960249, 51.558008444760674], [-0.871560414081151, 51.55807539786269], [-0.871689483441928, 51.558339198343305], [-0.871715457861831, 51.558455441841], [-0.871819115572425, 51.558871857901316], [-0.872116688986198, 51.559438501590606], [-0.87224925001588, 51.559678057158926], [-0.872395481580982, 51.5598898694294], [-0.872503199025109, 51.56002578071336], [-0.872616797176149, 51.56015725249727], [-0.872767427555836, 51.560307962534345], [-0.873712440787397, 51.560887112412736], [-0.874019840047307, 51.56105730856152], [-0.874413245272104, 51.56124990894107], [-0.875159636577155, 51.56157807024888], [-0.875469862748955, 51.561692540724444], [-0.875618818634067, 51.561736229028845], [-0.87605776549836, 51.56183754414599], [-0.876366373823489, 51.56190074371407], [-0.87668521195865, 51.561958645316366], [-0.876968369886447, 51.56200091867397], [-0.877197163756339, 51.56202468778881], [-0.877516822654725, 51.5620493254706], [-0.878098847659676, 51.56208186543848], [-0.879220205739232, 51.56212315048378], [-0.879742407250114, 51.562124539056946], [-0.8803196812009, 51.56211566057546], [-0.88047709073344, 51.562109069498774], [-0.880781923890852, 51.5620912956137], [-0.881058065229737, 51.56206695318683], [-0.881262135404653, 51.56204012483733], [-0.881418631531618, 51.562011943580096], [-0.881649213834679, 51.56196288783239], [-0.882003250428868, 51.56187993977645], [-0.882376388095226, 51.56178278572967], [-0.882764299497775, 51.56167138432022], [-0.883194585739291, 51.561537905452155], [-0.883498576630078, 51.5614364931922], [-0.883756281221724, 51.56134003501421], [-0.884086956514705, 51.56120920221847], [-0.884407665982054, 51.56107287871968], [-0.885457870533961, 51.5606602434964], [-0.885606584631741, 51.56059601575753], [-0.88578613479336, 51.56050960117672], [-0.88595858283258, 51.56041862303493], [-0.886091760097573, 51.560340759581955], [-0.886521253482028, 51.56006159461465], [-0.886883345687433, 51.559824949307504], [-0.887389733197074, 51.559468282123994], [-0.887580604245187, 51.55927227271282], [-0.887708691217493, 51.559107139161064], [-0.888191015763102, 51.55861266662589], [-0.888192457957821, 51.55861268028735], [-0.888287760756616, 51.55849039596854], [-0.888562664893145, 51.558278995716826], [-0.888677108662246, 51.55814070717499], [-0.888887527216288, 51.55791161122132], [-0.889030158653071, 51.55774121885465], [-0.889203011709727, 51.557514464273005], [-0.88945350380216, 51.55717964382524], [-0.889600043815338, 51.556967026485395], [-0.889736358446423, 51.55670036168757], [-0.889858423154084, 51.55648571413559], [-0.889957478394766, 51.55626815130874], [-0.88999480235023, 51.556157006507235], [-0.890171676314085, 51.5555274577222], [-0.89040150985715, 51.554855248874496], [-0.891496918227321, 51.55316795557777], [-0.892148150167392, 51.55212836271704], [-0.892302414411729, 51.5517746441604], [-0.892679622502675, 51.55097074336506], [-0.892968782461996, 51.55046633574481], [-0.893655961353766, 51.54930928124159], [-0.894173495307085, 51.548604708475054], [-0.894625223197592, 51.54805597035748], [-0.895275002004698, 51.547308578527485], [-0.895581553072133, 51.54691762432374], [-0.89567259455686, 51.54679079793778], [-0.895853734572665, 51.54651645501248], [-0.896746527292651, 51.54508077321264], [-0.896901839906062, 51.544860136456265], [-0.897255891587921, 51.54494888564188], [-0.898115394177492, 51.545187148067974], [-0.89822539056202, 51.54523044209882], [-0.898280925208036, 51.54525973711452], [-0.898317695099433, 51.54528975512979], [-0.898473190139101, 51.54530020648797], [-0.899619101095523, 51.54544313546729], [-0.901006352145532, 51.54562517973134], [-0.901825064903737, 51.54570208025918], [-0.903152296119515, 51.54586195719927], [-0.903215411109321, 51.54587603470979], [-0.903297183099556, 51.545893883241035], [-0.903017403675823, 51.54655396139701], [-0.902616538461231, 51.54745118838641], [-0.902395351374664, 51.54801290343283], [-0.902224993241029, 51.54837997226972], [-0.902166365216381, 51.54859882282856], [-0.902146545476892, 51.54876318664974], [-0.902208891983797, 51.54892921824649], [-0.902230894835185, 51.549033728477525], [-0.902380735585514, 51.54999904656443], [-0.902673692529055, 51.551610411429984], [-0.902806620567669, 51.55250003963136], [-0.902816651036337, 51.55268266601908], [-0.902804979597758, 51.55292803179951], [-0.902756997764027, 51.55318384821566], [-0.902654701329301, 51.55353896524768], [-0.902427419928527, 51.55423280167036], [-0.901847751389036, 51.555843197130926], [-0.901770133963284, 51.556011515784924], [-0.90172081219273, 51.556082988265544], [-0.902203201151337, 51.55617741874876], [-0.906010818638152, 51.55679743475821], [-0.906204734572883, 51.556771367660915], [-0.906311884484255, 51.55675438267928], [-0.906358975073264, 51.55689599188705], [-0.90638590166065, 51.55691602462513], [-0.906615524939952, 51.55696492104195], [-0.907278267614382, 51.55705831304524], [-0.907858939004531, 51.55720578727805], [-0.908174621569804, 51.5572752632291], [-0.908339760107985, 51.55730647205926], [-0.908420198492941, 51.557320707807335], [-0.908923514869315, 51.557385632424236], [-0.909322889103033, 51.5574540848968], [-0.909506497855653, 51.557497152980005], [-0.909658336207082, 51.557541723987356], [-0.909754316957776, 51.55756959081508], [-0.909871264277585, 51.557625526703404], [-0.91002439519459, 51.55767640345812], [-0.91014009429463, 51.557724234915874], [-0.910363938659539, 51.55783421414451], [-0.910769828656022, 51.55805288423369], [-0.910899633150579, 51.55817457810929], [-0.911134211672749, 51.55843931338367], [-0.911191431662737, 51.558519870694006], [-0.911262279817118, 51.55863382382822], [-0.911345597527786, 51.558829717406], [-0.911347039740573, 51.55882973078292], [-0.911354152248679, 51.55895478193117], [-0.911501156990394, 51.55932300828838], [-0.911744284152759, 51.55977395051585], [-0.911784714781588, 51.55983277167005], [-0.911848028397377, 51.559899897522016], [-0.911951124589094, 51.55999256899618], [-0.912043240814804, 51.56006176008463], [-0.912343203354435, 51.560247072388215], [-0.91252735254784, 51.560389049785144], [-0.912663001694362, 51.56050809825428], [-0.913644040185922, 51.561715780647766], [-0.914729932802775, 51.56149024267299], [-0.915936249212879, 51.561720788632314], [-0.917099342153636, 51.56255696600573], [-0.917716153850379, 51.56209778262442], [-0.918510926061236, 51.561494569835055], [-0.919190082061234, 51.56187308324347], [-0.919265061021478, 51.56187467281339], [-0.919319677161742, 51.561883268238525], [-0.919395565855925, 51.56190734542486], [-0.919450182060758, 51.561915940789575], [-0.919451624375034, 51.56191595406745], [-0.919612764956992, 51.561873377936905], [-0.919684473323871, 51.562134798108005], [-0.919731696029427, 51.56227280618616], [-0.919795125391412, 51.562396576626476], [-0.919877773921036, 51.56250074208832], [-0.920024454979703, 51.56264236275641], [-0.920273793481437, 51.562835281288635], [-0.920455811890565, 51.56300779833283], [-0.92054707457537, 51.56311384087594], [-0.920622684574115, 51.56321074767881], [-0.920768557091237, 51.56344767224896], [-0.920815933327546, 51.56357938704838], [-0.92087756775181, 51.56365728255545], [-0.920897207761338, 51.56368084160506], [-0.920950783915168, 51.5637334861553], [-0.921113636188415, 51.563862665653886], [-0.921195103215065, 51.56395602921301], [-0.921351882125165, 51.56422002842434], [-0.921395592904906, 51.56432383493418], [-0.921420893006769, 51.56441308549212], [-0.921438619701684, 51.56451755238376], [-0.921413985191466, 51.56464410933019], [-0.92167481147157, 51.56453500840272], [-0.923479752756133, 51.56373602685831], [-0.924155377789785, 51.5634113259626], [-0.924873111301507, 51.56399247344971], [-0.924951149378637, 51.56404803772923], [-0.925274524870032, 51.56428388466152], [-0.92664770764064, 51.56515336065692], [-0.927393574791524, 51.56558368874587], [-0.927927453464337, 51.5659491340051], [-0.92835633038721, 51.56599441223158], [-0.928244524844939, 51.56725223174753], [-0.928125342518282, 51.56741209518939], [-0.9281054698832, 51.56745956981058], [-0.927839528670842, 51.568092855254655], [-0.93052584537502, 51.568532778436946], [-0.930434864440691, 51.56872077542371], [-0.930290537945866, 51.568968530677175], [-0.93032458943141, 51.568993118606556], [-0.930407160146686, 51.56904062792432], [-0.930494248489543, 51.56908008580425], [-0.93056005729139, 51.5691040638391], [-0.930644619283805, 51.56912821268005], [-0.930755210497826, 51.569149901051155], [-0.931002865082897, 51.56917193845677], [-0.931506345671459, 51.5692367670135], [-0.9319179887186, 51.56928007686346], [-0.93222706378822, 51.569328746497334], [-0.932389335623021, 51.56936169347699], [-0.932508352034028, 51.56939334769875], [-0.932608510110525, 51.56942932617174], [-0.932871163025979, 51.56955040480943], [-0.933086053531851, 51.569616199317096], [-0.933414865356232, 51.569684826955594], [-0.93386895042082, 51.56976448240679], [-0.934635570791928, 51.5700537823344], [-0.934785550106084, 51.57011898456062], [-0.934985327167408, 51.57021431104797], [-0.935122135234023, 51.5702874858722], [-0.935333952219633, 51.570423383659445], [-0.935683954424458, 51.570697207984594], [-0.935948857561102, 51.57084617434456], [-0.936321009353978, 51.57109861741231], [-0.936776166293208, 51.57138058458356], [-0.936874033955222, 51.57139136186155], [-0.937185388877335, 51.57140497135624], [-0.937358713203379, 51.57139754881963], [-0.937474500211682, 51.571382411871916], [-0.937604964789291, 51.57135661760672], [-0.938082770631526, 51.571224267138255], [-0.938303744516349, 51.57115343316592], [-0.938622419406116, 51.57103852370375], [-0.938583754985448, 51.57127375671787], [-0.938615426417796, 51.5714008261012], [-0.938651384040882, 51.57152973256723], [-0.938810396393867, 51.572013125409214], [-0.938917102284257, 51.5723881447753], [-0.938977920287056, 51.572564931845086], [-0.939147081147104, 51.57298457478389], [-0.93921529881351, 51.57340150695511], [-0.939295227462625, 51.57374930879435], [-0.939359853061118, 51.57401065198471]]]}}
benchmarks/json-data/integers.jsonnew file+1
@@ -0,0 +1 @@
1+[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 6, 6, 7, 7, 7, 8, 9, 9, 10, 10, 11, 12, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 26, 27, 29, 31, 33, 35, 37, 39, 42, 44, 47, 50, 53, 56, 60, 63, 67, 72, 76, 81, 86, 91, 96, 102, 109, 115, 122, 130, 138, 146, 155, 165, 175, 186, 197, 209, 222, 236, 250, 266, 282, 299, 318, 337, 358, 380, 403, 428, 454, 482, 511, 543, 576, 611, 649, 688, 730, 775, 823, 873, 926, 983, 1043, 1107, 1175, 1247, 1323, 1404, 1490, 1582, 1679, 1781, 1890, 2006, 2129, 2259, 2398, 2544, 2700, 2865, 3041, 3227, 3425, 3634, 3857, 4093, 4343, 4609, 4891, 5191, 5509, 5846, 6204, 6583, 6986, 7414, 7868, 8349, 8860, 9403, 9978, 10589, 11237, 11925, 12655, 13430, 14252, 15124, 16050, 17032, 18075, 19181, 20355, 21601, 22923, 24326, 25815, 27396, 29072, 30852, 32740, 34744, 36871, 39128, 41523, 44064, 46762, 49624, 52661, 55884, 59305, 62935, 66787, 70875, 75213, 79817, 84702, 89887, 95389, 101227, 107423, 113998, 120976, 128381, 136239, 144578, 153427, 162818, 172784, 183360, 194583, 206493, 219132, 232545, 246778, 261883, 277912, 294923, 312975, 332131, 352460, 374034, 396928, 421223, 447005, 474365, 503400, 534212, 566911, 601610, 638433, 677511, 718980, 762987, 809688, 859247, 911840, 967652, 1026880, 1089734, 1156434, 1227217, 1302333, 1382046, 1466638, 1556408, 1651673, 1752769, 1860052, 1973902, 2094721, 2222934, 2358996, 2503385, 2656613, 2819219, 2991777, 3174898, 3369227, 3575451, 3794297, 4026539, 4272995, 4534536, 4812086, 5106625, 5419191, 5750889, 6102889, 6476435, 6872845, 7293518, 7739939, 8213686, 8716429, 9249944, 9816115, 10416939, 11054539, 11731166, 12449207, 13211198, 14019829, 14877955, 15788605, 16754994, 17780533, 18868844, 20023768, 21249383, 22550016, 23930257, 25394980, 26949356, 28598872, 30349352, 32206975, 34178300, 36270285, 38490317, 40846232, 43346349, 45999492, 48815029, 51802899, 54973651, 58338478, 61909260, 65698602, 69719882, 73987297, 78515911, 83321713, 88421668, 93833782, 99577160, 105672079, 112140056, 119003924, 126287916, 134017747, 142220706, 150925751, 160163614, 169966908, 180370243, 191410345, 203126189, 215559137, 228753081, 242754599, 257613123, 273381107, 290114218, 307871529, 326715729, 346713346, 367934976, 390455540, 414354543, 439716356, 466630515, 495192035, 525501749, 557666661, 591800322, 628023236, 666463282, 707256166, 750545902, 796485316, 845236589, 896971830, 951873682, 1010135966, 1071964368, 1137577163, 1207205986, 1281096650, 1359510014, 1442722903, 1531029087, 1624740315, 1724187420, 1829721484, 1941715077, 2060563573, 2186686548, 2320529259, 2462564214, 2613292844, 2773247272, 2942992191, 3123126858, 3314287206, 3517148098, 3732425698, 3960880011, 4203317554, 4460594215, 4733618266, 5023353573, 5330822998, 5657112012, 6003372524, 6370826950, 6760772526, 7174585891, 7613727944, 8079749004, 8574294281, 9099109685, 9656047991, 10247075377, 10874278366, 11539871197, 12246203633, 12995769265, 13791214310, 14635346955, 15531147272, 16481777734, 17490594386, 18561158687, 19697250088, 20902879371, 22182302812, 23540037202, 24980875800, 26509905246, 28132523526, 29854459026, 31681790754, 33620969802, 35678842122, 37862672691, 40180171161, 42639519077, 45249398761, 48019023960, 50958172379, 54077220194, 57387178688, 60899733121, 64627283986, 68582990784, 72780818484, 77235586822, 81963022620, 86979815309, 92303675844, 97953399235, 103948930895, 110311437058, 117063379497, 124228594829, 131832378662, 139901574895, 148464670491, 157551896043, 167195332496, 177429024407, 188289100133, 199813899374, 212044108527, 225022904322, 238796106249, 253412338321, 268923200725, 285383451995, 302851202324, 321388118716, 341059642687, 361935221296, 384088552321, 407597844432, 432546093294, 459021374572, 487117154867, 516932621682, 548573033590, 582150091830, 617782334651, 655595555791, 695723248569, 738307077168, 783497376747, 831453684183, 882345301285, 936351892486, 993664119121, 1054484312524, 1119027188325, 1187520604468, 1260206365627, 1337341076854, 1419197049486, 1506063262491, 1598246382662, 1696071847252, 1799885012878, 1910052374747, 2026962860500, 2151029203266, 2282689398739, 2422408251457, 2570679015712, 2728025136906, 2895002099486, 3072199387991, 3260242568131, 3459795495242, 3671562657914, 3896291665080, 4134775885316, 4387857247705, 4656429214122, 4941439933460, 5243895588908, 5564863950114, 5905478142772, 6266940648935, 6650527552175, 7057593042589, 7489574197539, 7947996055022, 8434476997558, 8950734465625, 9498591020797, 10079980779998, 10696956243580, 11351695541337, 12046510122031, 12783852913581, 13566326982715, 14396694724673, 15277887615381, 16213016560543, 17205382878181, 18258489953389, 19376055606456, 20562025218016, 21820585657560, 23156180064488, 24573523533875, 26077619762337, 27673778712750, 29367635360200, 31165169585327, 33072727285306, 35097042776985, 37245262571278, 39524970602741, 41944215003394, 44511536515321, 47235998642351, 50127219647252, 53195406507421, 56451390948928, 59906667686130, 63573435001862, 67464637811456, 71594013362620, 75976139732519, 80626487293267, 85561473327514, 90798519986944, 96356115798305, 102253880934088, 108512636478302, 115154477931865, 122202853217119, 129682645456833, 137620260819954, 146043721744222, 154982765864743, 164468950997792, 174535766550465, 185218751749486, 196555621106568, 208586397563259, 221353553785311, 234902162105402, 249280053643550, 264537987166964, 280729828285480, 297912739615178, 316147382581544, 335498131574595, 356033301212013, 377825387512598, 400951323831468, 425492752460545, 451536312853150, 479173947490266, 508503226468250, 539627691953919, 572657223723034, 607708427072674, 644905044476938, 684378392439283, 726267825083707, 770721226121430, 817895530929871, 867957280587026, 921083209817197, 977460870923688, 1037289295911185, 1100779699135317, 1168156222959992, 1239656729054927, 1315533638126921, 1396054821049394, 1481504544536185, 1572184474698156, 1668414742025481, 1770535071555377, 1878905982215138, 1993910059574563, 2115953306501003, 2245466576485316, 2382907094698829, 2528760072151156, 2683540418647385, 2847794560591953]
benchmarks/json-data/jp10.jsonnew file+1
@@ -0,0 +1 @@
1+{"results":[{"from_user_id_str":"2458313","profile_image_url":"http://a2.twimg.com/profile_images/1203653060/fure091226_normal.png","created_at":"Thu, 27 Jan 2011 20:30:04 +0000","from_user":"19princess","id_str":"30724239224995840","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6d77\u6674\u300c\u672c\u65e5\u306e\u6771\u4eac\u306e\u304a\u5929\u6c17\u306f\u6674\u6642\u3005\u66c7\u3067\u3057\u3087\u3046\u3002\u6700\u9ad8\u6c17\u6e29\u306f8\u5ea6\u3001\u6700\u4f4e\u6c17\u6e29\u306f1\u5ea6\u3067\u3059\u3002\u3042\u306a\u305f\u306e\u4eca\u65e5\u306e\u4eba\u751f\u306b\u3068\u3073\u3063\u304d\u308a\u306e\u304a\u5929\u6c17\u3092\u2665\u300d","id":30724239224995840,"from_user_id":2458313,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://babyprincess.sakura.ne.jp/about/&quot; rel=&quot;nofollow&quot;&gt;\u5929\u4f7f\u5bb6\u306e\u88cf\u5c71&lt;/a&gt;"},{"from_user_id_str":"66578965","profile_image_url":"http://a0.twimg.com/profile_images/1183763267/fossetta_normal.png","created_at":"Thu, 27 Jan 2011 20:00:04 +0000","from_user":"Fossetta_Tokyo","id_str":"30716689779785729","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u304a\u306f\u3088\u3046\u3054\u3056\u3044\u307e\u3059!!\u6771\u4eac\u90fd\u3001\u672c\u65e5\u306e\u304a\u5929\u6c17\u306f\u6674\u6642\u3005\u66c7\u3002\u6700\u9ad8\u6c17\u6e298\u5ea6\u3001\u6700\u4f4e\u6c17\u6e291\u5ea6\u3002\u6771\u4eac\u5730\u65b9\u3067\u306f\u3001\u7a7a\u6c17\u306e\u4e7e\u71e5\u3057\u305f\u72b6\u614b\u304c\u7d9a\u3044\u3066\u3044\u307e\u3059\u3002\u706b\u306e\u53d6\u308a\u6271\u3044\u306b\u6ce8\u610f\u3057\u3066\u4e0b\u3055\u3044\u3002\u4f0a\u8c46\u8af8\u5cf6\u3068\u5c0f\u7b20\u539f\u8af8\u5cf6\u306b\u306f\u3001\u5f37\u98a8\u3001\u6ce2\u6d6a\u3001\u4e7e\u71e5\u3001\u971c\u306e\u6ce8\u610f\u5831\u3092\u767a\u8868\u4e2d\u3067\u3059\u3002","id":30716689779785729,"from_user_id":66578965,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://bit.ly/Fossetta&quot; rel=&quot;nofollow&quot;&gt;\u30d5\u30a9\u30bb\u30c3\u30bf ver.3.1.1&lt;/a&gt;"},{"from_user_id_str":"104041146","profile_image_url":"http://a2.twimg.com/profile_images/863965118/001jwatokyo_normal.jpg","created_at":"Thu, 27 Jan 2011 19:44:33 +0000","from_user":"jwa_tokyo","id_str":"30712787537756160","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6c17\u8c61\u5e81\u304b\u3089\u6771\u4eac\u306e\u5929\u6c17\u4e88\u5831\u304c\u767a\u8868\u3055\u308c\u307e\u3057\u305f\u3000\u305d\u306e\u5929\u6c17\u4e88\u5831\u3092\u3053\u3053\u3067\u3064\u3076\u3084\u3053\u3046\u304b\u306a\u3041\uff5e\uff1f\u3000\u8003\u3048\u4e2d\u3000\u307e\u3066\u6b21\u53f7\uff08\u7b11","id":30712787537756160,"from_user_id":104041146,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.docodemo.jp/twil/&quot; rel=&quot;nofollow&quot;&gt;Twil2 (Tweet Anytime, Anywhere by Mail)&lt;/a&gt;"},{"from_user_id_str":"144500192","profile_image_url":"http://a3.twimg.com/a/1294874399/images/default_profile_3_normal.png","created_at":"Thu, 27 Jan 2011 18:59:33 +0000","from_user":"kyo4to4","id_str":"30701462774358016","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u90fd \u516b\u4e08\u5cf6 - \u4eca\u65e5\u306e\u5929\u6c17\u306f\u30fb\u30fb\u30fb\u66c7\u306e\u3061\u6674\u3067\u3059\u306e\uff01","id":30701462774358016,"from_user_id":144500192,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/kyo4to4&quot; rel=&quot;nofollow&quot;&gt;lost-sheep-bot&lt;/a&gt;"},{"from_user_id_str":"165724582","profile_image_url":"http://a0.twimg.com/profile_images/1222842347/163087_1256281064506_1753997852_484926_2761052_n_normal.jpg","created_at":"Thu, 27 Jan 2011 17:39:06 +0000","from_user":"Rifqi_19931020","id_str":"30681213748387840","metadata":{"result_type":"recent"},"to_user_id":113796067,"text":"@CHLionRagbaby \u30b1\u30f3\u3061\u3083\u3093\u3001\u671d\u4eca\u307e\u3067\u306e\u81ea\u5206\u306e\u30db\u30fc\u30e0\u30a8\u30ea\u30a2\u304b\u3089\u307e\u3060\u975e\u5e38\u306b\u5bd2\u3044\u3068\u96e8\u304c\u964d\u3063\u3066\u3044\u305f..\u3069\u306e\u3088\u3046\u306b\u73fe\u5728\u306e\u6771\u4eac\u306e\u5929\u6c17\uff1f","id":30681213748387840,"from_user_id":165724582,"to_user":"CHLionRagbaby","geo":null,"iso_language_code":"ja","to_user_id_str":"113796067","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"120911929","profile_image_url":"http://a0.twimg.com/profile_images/772435076/20100312___capture2_normal.png","created_at":"Thu, 27 Jan 2011 17:28:30 +0000","from_user":"Cirno_fan","id_str":"30678546020040705","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4eca\u65e5\u306e\u6771\u4eac\u306e\u5929\u6c17\u306f\u3001\u66c7\u6642\u3005\u6674\u3067\u6700\u9ad8\u6c17\u6e29\u306f8\u2103\uff01 \u6700\u4f4e\u6c17\u6e29\u306f2\u2103\u3060\u3063\u305f\u3088\uff01 RT @mimi22999 \uff08\uff65\u2200\uff65\uff09\uff4c\u3001\u865a\u5f31\u306a\u8005\u306b\u3068\u3063\u3066\u3001\u6717\u3089\u304b\u306a\u9854\u306f\u4e0a\u5929\u6c17\u3068\u540c\u3058\u304f\u3089\u3044\u3046\u308c\u3057\u3044\u3082\u306e\u3060\u3002\u30d5\u30e9\u30f3\u30af\u30ea\u30f3 #tenki #bot","id":30678546020040705,"from_user_id":120911929,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://blog.livedoor.jp/fairycirno/archives/34686.html&quot; rel=&quot;nofollow&quot;&gt;\u5e7b\u60f3\u90f7 \u9727\u306e\u6e56&lt;/a&gt;"},{"from_user_id_str":"65976527","profile_image_url":"http://a0.twimg.com/profile_images/452810990/little_italies_____normal.jpg","created_at":"Thu, 27 Jan 2011 17:00:03 +0000","from_user":"heta_weather01","id_str":"30671388754845696","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3010\u30d8\u30bf\u5929\u3011Tere hommikust.\u30a8\u30b9\u30c8\u30cb\u30a2\u3067\u3059\u3002\u4eca\u65e5\u306e\u6771\u4eac\u306e\u5929\u6c17\u306f\u6674\u6642\u3005\u66c7\u3067\u660e\u65e5\u306f\u66c7\u308a\u3067\u3059\u3002\u3061\u306a\u307f\u306b\u50d5\u306e\u3068\u3053\u308d\u3067\u306f\u66c7\u308a\u3067\u6c17\u6e29-7\u2103\u3067\u3059\u3002\u3061\u306a\u307f\u306b\u30b9\u30ab\u30a4\u30d7\u306e\u958b\u767a\u672c\u90e8\u306f\u50d5\u306e\u5bb6\u306b\u3042\u308b\u3093\u3067\u3059\u3002","id":30671388754845696,"from_user_id":65976527,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www15.atpages.jp/~kageyanma/&quot; rel=&quot;nofollow&quot;&gt;\u5730\u7403\u306e\u4e2d&lt;/a&gt;"},{"from_user_id_str":"7278433","profile_image_url":"http://a3.twimg.com/profile_images/1218965303/michael-1_normal.png","created_at":"Thu, 27 Jan 2011 16:50:16 +0000","from_user":"shimohiko","id_str":"30668926035689472","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3042\u308a\u3002\n\u3010\u7f8e\u4eba\u5929\u6c17/\u6771\u4eac\u3011\u7f8e\u4eba\u5929\u6c17\u30ad\u30e3\u30b9\u30bf\u30fc\u306e&quot;\u3055\u3042\u3084\u3093\u3055\u3093&quot;\u306b\u3088\u308b\u3068\u300c1/29(\u571f)\u306f\u304f\u3082\u308a\u3067\u3001\u964d\u6c34\u78ba\u738740%\u3001\u6700\u9ad8\u6c17\u6e29\u306f6\u2103\u3067\u6700\u4f4e\u6c17\u6e29\u306f1\u2103\u3067\u3059\u300d\u7f8e\u4eba\u5929\u6c17\u21d2http://bit.ly/djB8th http://twitpic.com/3twnl0 #bt_tenki","id":30668926035689472,"from_user_id":7278433,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://bijintenki.jp&quot; rel=&quot;nofollow&quot;&gt;bijintenki.jp&lt;/a&gt;"},{"from_user_id_str":"61770","profile_image_url":"http://a3.twimg.com/profile_images/1206955079/tw172a_normal.png","created_at":"Thu, 27 Jan 2011 16:40:52 +0000","from_user":"rsky","id_str":"30666561853333504","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3075\u3068\u591c\u7a7a\u3092\u898b\u4e0a\u3052\u3066\u30aa\u30ea\u30aa\u30f3\u304c\u898b\u3048\u306a\u304f\u3066\u300c\u6771\u4eac\u306b\u306f\u7a7a\u304c\u306a\u3044\u300d\u3068\u667a\u6075\u5b50\u306e\u3088\u3046\u306a\u3053\u3068\u3092\u601d\u3063\u305f\u308f\u3051\u3060\u304c\u3001\u305f\u3076\u3093\u534a\u5206\u3050\u3089\u3044\u306f\u5929\u6c17\u306e\u305b\u3044\u3067\u3059","id":30666561853333504,"from_user_id":61770,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"103259265","profile_image_url":"http://a0.twimg.com/profile_images/767857973/anime_icon_normal.gif","created_at":"Thu, 27 Jan 2011 16:37:42 +0000","from_user":"liveshowonly","id_str":"30665765698928640","metadata":{"result_type":"recent"},"to_user_id":null,"text":"iPhone\u5929\u6c17\u3002\u6771\u4eac4\u2103\u3063\u3066\u7d50\u69cb\u5bd2\u304f\u306a\u3044\u3058\u3083\u3093\u3002\uff08\u78ba\u304b\u306b\u3082\u306e\u51c4\u304f\u5bd2\u3044\u8a33\u3067\u306f\u7121\u3044\uff09\u3002\u798f\u5ca1\u5e02\u306f1\u2103\u3060\u3002\u52dd\u3061\u3060\u305c\u3002Rock'n'roll","id":30665765698928640,"from_user_id":103259265,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"165242761","profile_image_url":"http://a1.twimg.com/profile_images/1147334744/SN3E00600001_normal.jpg","created_at":"Thu, 27 Jan 2011 16:37:35 +0000","from_user":"deuxavril0502","id_str":"30665736556912640","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6b8b\u5ff5\u3001\u79c1\u306f\u6c96\u7e04\u3067\u3059(&gt;_&lt;)\u3067\u3082\u304a\u5929\u6c17\u826f\u3055\u305d\u3046\u3067\u826f\u304b\u3063\u305f\u306d\u3002\u3053\u3061\u3089\u306f\u96e8\u3088\uff5eRT @rinandy2010: \u305d\u3046\u3067\u3059\u3063\u266a\u51fa\u5f35\u3067(^^)\u304a\u306d\u3048\u3055\u307e\u306f\u6771\u4eac\u3067\u3059\u304b\uff1f\u3081\u3063\u3061\u3083\u5929\u6c17\u826f\u304f\u3066\u3073\u3063\u304f\u308a\u3067\u3059\u3002\u624b\u888b\u3068\u304b\u5168\u7136\u3044\u3089\u306a\u3044\u3067\u3059\u306d\u30fc RT @deuxavril0502 \u6771\u4eac\u306a\u306e\u30fc\uff1f","id":30665736556912640,"from_user_id":165242761,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"163900288","profile_image_url":"http://a1.twimg.com/profile_images/1210224823/icon12945064955238_normal.jpg","created_at":"Thu, 27 Jan 2011 16:24:37 +0000","from_user":"nyao_yurichan","id_str":"30662472734089216","metadata":{"result_type":"recent"},"to_user_id":100985873,"text":"@ray_ko302 \u767a\u898b\u3042\u308a\u304c\u3068\u3067\u3059\u3045\u3002\u3053\u3061\u3089\u3067\u3082\u3088\u308d\u3057\u304f\u306d\u3002\u6771\u4eac\u306f\u4eca\u65e5\u3082\u4e7e\u71e5\u3067\u5927\u5909\u3088\u3002\u305d\u3063\u3061\u3068\u771f\u9006\u306e\u5929\u6c17\u3060\u306d\u3002\u30a2\u30a4\u30b9\u30d0\u30fc\u30f3\u304d\u3092\u3064\u3051\u3066\u3088\u306d\u3002","id":30662472734089216,"from_user_id":163900288,"to_user":"ray_ko302","geo":null,"iso_language_code":"ja","to_user_id_str":"100985873","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"49227098","profile_image_url":"http://a3.twimg.com/profile_images/965007882/____normal.jpg","created_at":"Thu, 27 Jan 2011 15:52:26 +0000","from_user":"dosannko6","id_str":"30654371016478720","metadata":{"result_type":"recent"},"to_user_id":108570870,"text":"@peke_hajiP \u4ffa\u304c\u6771\u4eac \u6765\u3066\u6700\u521d\u306b\u9a5a\u3044\u305f\u306e\u304c\u3001\u5929\u6c17\u4e88\u5831\u3067\u82b1\u7c89\u60c5\u5831\u304c\u6d41\u308c\u308b\u3053\u3068\u3067\u3001\u6700\u521d\u306b\u8a66\u3057\u305f\u306e\u304c \u30b4\u30ad\u69d8 \u53ec\u559a\u306e\u5100\u5f0f\u3067\u3059\u304a\uff1f","id":30654371016478720,"from_user_id":49227098,"to_user":"peke_hajip","geo":null,"iso_language_code":"ja","to_user_id_str":"108570870","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"71148934","profile_image_url":"http://a0.twimg.com/profile_images/1209223630/image_normal.jpg","created_at":"Thu, 27 Jan 2011 15:46:49 +0000","from_user":"123keiko","id_str":"30652958311981058","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u9727\u5cf6\u306e\u964d\u7070\u306e\u30cb\u30e5\u30fc\u30b9\u3092\u898b\u3066\u601d\u3044\u51fa\u3057\u307e\u3057\u305f\u3002\u4e0a\u4eac\u3057\u305f\u59cb\u3081\u306e\u9803\u3001\u6771\u4eac\u306f1\u5e74\u4e2d\u3001\u7070\u304c\u964d\u3089\u306a\u3044\u304b\u3089\u7a7a\u6c17\u304c\u6f84\u3093\u3067\u3066\u904e\u3054\u3057\u3084\u3059\u3044\u306a\u3041\u3001\u3068\u601d\u3063\u305f\u306a\u3041\u3001\u3063\u3066\u3002\n\u5b9f\u5bb6\u306f\u51ac\u306e\u5b63\u7bc0\u98a8\u3067\u685c\u5cf6\u306e\u7070\u304c\u964d\u308b\u5730\u533a\u3067\u3057\u305f\u3002\u9e7f\u5150\u5cf6\u306e\u5929\u6c17\u4e88\u5831\u3067\u306f\u3001\u6bce\u65e5\u3001\u685c\u5cf6\u4e0a\u7a7a\u306e\u98a8\u5411\u304d\u4e88\u5831\u304c\u3067\u307e\u3059\u3002\u3053\u308c\u304b\u3089\u306f\u9727\u5cf6\u3082\u304b\u306a\uff1f","id":30652958311981058,"from_user_id":71148934,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"91124773","profile_image_url":"http://a3.twimg.com/profile_images/1139308356/prof101007_3-1_normal.jpg","created_at":"Thu, 27 Jan 2011 15:43:35 +0000","from_user":"sanposuruhito","id_str":"30652146277945345","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4eca\u5bb5\u306e\u90fd\u5fc3\u306f\u3001\u8eab\u3082\u5f15\u304d\u7de0\u307e\u308b\u3068\u3044\u3046\u3088\u308a\u306f\u51cd\u3048\u308b\u7a0b\u306e\u51b7\u6c17\u3092\u611f\u3058\u308b\u5bd2\u3044\u591c\u3067\u3059\u3002\u660e\u65e5\u65e5\u4e2d\u306e\u6771\u4eac\u306e\u5929\u6c17\u306f\u3001\u5915\u65b9\u306b\u591a\u5c11\u96f2\u304c\u51fa\u308b\u5834\u6240\u304c\u3042\u308a\u305d\u3046\u306a\u3082\u306e\u306e\u6982\u306d\u6674\u308c\u7a7a\u304c\u5e83\u304c\u308a\u7d9a\u3051\u305d\u3046\u3067\u3059\u3002\u6700\u9ad8\u6c17\u6e29\u306f\u30015-6\u5ea6\u4f4d\u3068\u306a\u308a\u305d\u3046\u3067\u3059\u3002#weather_tokyo","id":30652146277945345,"from_user_id":91124773,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://projects.playwell.jp/go/Saezuri&quot; rel=&quot;nofollow&quot;&gt;Saezuri&lt;/a&gt;"}],"max_id":30724239224995840,"since_id":28179956995457024,"refresh_url":"?since_id=30724239224995840&q=%E6%9D%B1%E4%BA%AC%E3%80%80%E5%A4%A9%E6%B0%97","next_page":"?page=2&max_id=30724239224995840&lang=ja&q=%E6%9D%B1%E4%BA%AC%E3%80%80%E5%A4%A9%E6%B0%97","results_per_page":15,"page":1,"completed_in":0.104827,"warning":"adjusted since_id to 28179956995457024 (), requested since_id was older than allowed -- since_id removed for pagination.","since_id_str":"28179956995457024","max_id_str":"30724239224995840","query":"%E6%9D%B1%E4%BA%AC%E3%80%80%E5%A4%A9%E6%B0%97"}
benchmarks/json-data/jp100.jsonnew file+1
@@ -0,0 +1 @@
1+{"results":[{"from_user_id_str":"178045354","profile_image_url":"http://a0.twimg.com/profile_images/1214479381/154722_10100141954893059_808622_55276626_7445050_n_normal.jpg","created_at":"Fri, 25 Feb 2011 17:40:04 +0000","from_user":"ChuriSta_gt","id_str":"41190705623732224","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3072\u3089\u304c\u306a\u306e\u300c\u3064\u300d\u306f\u3082\u3046Twitter\u306e\u300c\u3064\u300d\u3060\uff01","id":41190705623732224,"from_user_id":178045354,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b for iPhone&lt;/a&gt;"},{"from_user_id_str":"71746558","profile_image_url":"http://a2.twimg.com/profile_images/591641547/wwd_normal.gif","created_at":"Fri, 25 Feb 2011 17:40:02 +0000","from_user":"fuckkilldiestar","id_str":"41190699571494912","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u306b\u3057\u3066\u3082Twitter\u3084pixiv\u96e2\u308c\u3092\u3069\u3046\u306b\u304b\u3057\u308d\u674f\u4ec1\u30d6\u30eb\u30de","id":41190699571494912,"from_user_id":71746558,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"131230176","profile_image_url":"http://a2.twimg.com/sticky/default_profile_images/default_profile_5_normal.png","created_at":"Fri, 25 Feb 2011 17:39:58 +0000","from_user":"proory_bot","id_str":"41190683922546688","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30ea\u30cd\u30f3\u30dd\u30fc\u30c1 http://bit.ly/btjqlH","id":41190683922546688,"from_user_id":131230176,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://proory.com/&quot; rel=&quot;nofollow&quot;&gt;proory tems&lt;/a&gt;"},{"from_user_id_str":"120359038","profile_image_url":"http://a1.twimg.com/profile_images/946521484/200805161826000_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:58 +0000","from_user":"tukinosuke","id_str":"41190680835391488","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @fuefukioyasumi: \u3082\u3046\u3044\u3044\u3002\u300c\u671d\u751f\u300d\u306a\u3093\u304b\u3044\u3044\u3002BBC\u3082CNN\u3082\u82f1\u8a9e\u653e\u9001\u3060\u3002\u307f\u3093\u306a\u3001\u30c6\u30ec\u30d3\u3092\u3076\u3061\u3063\u3068\u5207\u3063\u3066Twitter\u3092\u898b\u3088\u3046\u3002\u3053\u3053\u306b\u300c\u751f\u304d\u305f\u60c5\u5831\u300d\u304c\u6d41\u308c\u3066\u3044\u308b\u3002\u300c\u751f\u304d\u305f\u53eb\u3073\u300d\u304c\u3042\u308b\u3002\u3053\u3053\u304b\u3089\u3067\u3082\u6b74\u53f2\u306e\u8ee2\u63db\u70b9\u3092\u611f\u3058\u308b\u4e8b\u304c\u3067\u304d\u308b\u306e\u3060\u3002 @gjmorley #libjp","id":41190680835391488,"from_user_id":120359038,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"166512109","profile_image_url":"http://a3.twimg.com/profile_images/1224583217/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:50 +0000","from_user":"yurii1129","id_str":"41190649839620096","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4eca\u6c17\u4ed8\u3044\u305f\u2026\u307f\u3043\u304f\u3093\u306eTwitter\u540d\u3001\u3084\u307e\u306d\u3084\u3093(\uffe3\u25c7\uffe3;)","id":41190649839620096,"from_user_id":166512109,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"228999619","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_6_normal.png","created_at":"Fri, 25 Feb 2011 17:39:49 +0000","from_user":"takami926","id_str":"41190644793745408","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u7530\u539f\u3055\u3093\u3001\u5fdc\u63f4\u3057\u3066\u307e\u3059\u3002WEB\u3082TWITTER\u3082\u62dd\u898b\u3057\u3066\u307e\u3059\u3002\u7530\u539f\u3055\u3093\u304c\u653f\u6cbb\u5bb6\u306b\u306a\u3063\u3066\u3001\u65e5\u672c\u3092\u5909\u3048\u3066\u304f\u3060\u3055\u3044\u3002\u5c16\u95a3\u3001\u5317\u65b9\u554f\u984c\u5171\u306b\u65e5\u672c\u306e\u653f\u6cbb\u306e\u5931\u6557\u3067\u3059\u3002\u8a55\u8ad6\u5bb6\u306f\u8272\u3005\u8a00\u3063\u3066\u307e\u3059\u304c\u3001\u4e2d\u6771\u307b\u3069\u56fd\u6c11\u306e\u71b1\u6c17\u304c\u7121\u304f\u3001\u683c\u5dee\u304c\u3042\u308a\u3001\u4f55\u3082\u5909\u308f\u3089\u306a\u3044\u666f\u6c17\u4f4e\u8ff7\u306e\u65e5\u672c\u306b\u56fd\u6c11\u306f\u8ae6\u3081\u3066\u308b\u3093\u3067\u3059\u3002","id":41190644793745408,"from_user_id":228999619,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"151773701","profile_image_url":"http://a0.twimg.com/profile_images/1213699753/obi_nao_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:44 +0000","from_user":"obi_nao","id_str":"41190622949941248","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3060\u3044\u3076\u5e74\u4e0b\u306e\u5f8c\u8f29\u306b\u3001\u30d3\u30b8\u30cd\u30b9\u3084\u308b\u306a\u3089\u771f\u5263\u306bTwitter\u3084\u308c\uff01\u3063\u3066\u6012\u3089\u308c\u305f\u3002\u306a\u306e\u3067\u4eca\u65e5\u304b\u3089\u771f\u5263\u306b\u3064\u3076\u3084\u304f\u3053\u3068\u306b\u3057\u307e\u3059\u3002\u3088\u308d\u3057\u304f\u3067\u3059\u3002","id":41190622949941248,"from_user_id":151773701,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.flight.co.jp/iPhone/TweetMe/&quot; rel=&quot;nofollow&quot;&gt;TweetMe for iPhone&lt;/a&gt;"},{"from_user_id_str":"20817229","profile_image_url":"http://a0.twimg.com/profile_images/1212012721/205_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:43 +0000","from_user":"allte","id_str":"41190619804082176","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u7206\u7b11\u3057\u3066\u547c\u5438\u56f0\u96e3\u3067\u75d9\u6523\u3059\u308b\u5618\u304f\u3093\u304c\u898b\u308c\u308b\u306e\u306fTwitter\u3060\u3051","id":41190619804082176,"from_user_id":20817229,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.movatwi.jp&quot; rel=&quot;nofollow&quot;&gt;www.movatwi.jp&lt;/a&gt;"},{"from_user_id_str":"166907967","profile_image_url":"http://a2.twimg.com/profile_images/1250526230/___normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:43 +0000","from_user":"NTTYAHOOOOOOOI","id_str":"41190618235412480","metadata":{"result_type":"recent"},"to_user_id":106469594,"text":"@takahirororo \u3066\u304b\u4f55\u3067twitter\u4e0a\u3067\u30a2\u30c9\u30d0\u30a4\u30b9\u3082\u3089\u3063\u3066\u3093\u306d\u3093\uff57","id":41190618235412480,"from_user_id":166907967,"to_user":"takahirororo","geo":null,"iso_language_code":"ja","to_user_id_str":"106469594","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"82581287","profile_image_url":"http://a0.twimg.com/profile_images/774721566/miyaru2_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:38 +0000","from_user":"kine_rahchaos","id_str":"41190598132244480","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30a2\u30aa\u30b7\u30de\u3055\u3093\u304cTwitter\u59cb\u3081\u305f\u3060\u3068\u2026","id":41190598132244480,"from_user_id":82581287,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"136633905","profile_image_url":"http://a2.twimg.com/profile_images/1247161991/yama_normal.png","created_at":"Fri, 25 Feb 2011 17:39:35 +0000","from_user":"yamachi39","id_str":"41190584706285568","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3084\u3063\u3071\u308amixi\u3088\u308atwitter\u306e\u304c\u597d\u304d\u304b\u3082","id":41190584706285568,"from_user_id":136633905,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://jigtwi.jp/?p=1&quot; rel=&quot;nofollow&quot;&gt;jigtwi&lt;/a&gt;"},{"from_user_id_str":"44029295","profile_image_url":"http://a2.twimg.com/profile_images/1112965522/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:32 +0000","from_user":"no2yosee","id_str":"41190572769280000","metadata":{"result_type":"recent"},"to_user_id":97721124,"text":"@hn0345 \u3042\u3001\u500b\u4eba\u7684\u306b\u306f\u4eca\u306ftwitter\u306e\u30d7\u30ed\u30d5\u30a3\u30fc\u30eb\u306b\u66f8\u3044\u3066\u3042\u308b\u30d6\u30ed\u30b0\u306e\u30e6\u30cb\u30c3\u30c8\u3092\u306e\u3093\u3073\u308a\u3084\u3063\u3066\u307e\u3059w","id":41190572769280000,"from_user_id":44029295,"to_user":"hn0345","geo":null,"iso_language_code":"ja","to_user_id_str":"97721124","source":"&lt;a href=&quot;http://www.flight.co.jp/iPhone/TweetMe/&quot; rel=&quot;nofollow&quot;&gt;TweetMe for iPhone&lt;/a&gt;"},{"from_user_id_str":"149872179","profile_image_url":"http://a0.twimg.com/profile_images/1145770150/Winter11_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:31 +0000","from_user":"xmyyyxx","id_str":"41190566951653376","metadata":{"result_type":"recent"},"to_user_id":95069405,"text":"@rindofu \u653b\u7565\u672c\u3042\u308c\u3070\u3044\u3044\u306e\u306b\u3063\u3066\u601d\u3044\u307e\u3059(T\u03c9T)/~~~ \u79c1\u3082\u76f4\u3057\u305f\u3044\u3068\u3053\u3044\u3063\u3071\u3044\u3060\u3051\u3069\u3001\u3042\u306860\u5e74\u304f\u3089\u3044\u3044\u304d\u3089\u308c\u308b\u306f\u305a\u3060\u3057\u3001\u306e\u3093\u3073\u308a\u76f4\u308c\u3070\u3044\u3044\u306a\u3042 \u304a\u3084\u3059\u307f\u3067\u3059^^\uff01\u308a\u3093\u3055\u3093\u3068twitter\u3067\u4ef2\u826f\u304f\u306a\u308c\u3066\u3088\u304b\u3063\u305f\u3067\u3059\u3063","id":41190566951653376,"from_user_id":149872179,"to_user":"rindofu","geo":null,"iso_language_code":"ja","to_user_id_str":"95069405","source":"&lt;a href=&quot;http://twtr.jp&quot; rel=&quot;nofollow&quot;&gt;Keitai Web&lt;/a&gt;"},{"from_user_id_str":"105579892","profile_image_url":"http://a0.twimg.com/profile_images/1212950455/love_happy_pink_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:30 +0000","from_user":"love_happy_pink","id_str":"41190566494601216","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u305d\u308c\u898b\u305f\u3044\u306a\u266aRT @kazukt \u3046\u308b\u304a\u307c\u7d75\u3001\u4ed6\u306e\u4eba\u306e\u3082\u898b\u3066\u3044\u305f\u3089\u3084\u305f\u3089\u30de\u30f3\u30ac\u306e\u30ad\u30e3\u30e9\u30af\u30bf\u30fc\u3067\u3080\u3061\u3083\u304f\u3061\u3083\u4e0a\u624b\u3044\u4eba\u304c\uff01\u2026\u3068\u3001\u30d7\u30ed\u30d5\u30a3\u30fc\u30eb\u898b\u305f\u3089\u3001\u306a\u3093\u3068\u3054\u672c\u4eba\u304c\u66f8\u3044\u3066\u3044\u3089\u3063\u3057\u3083\u3063\u305f\u3002Twitter\u3063\u3066\u30b9\u30b4\u30a4\u308f\u3002","id":41190566494601216,"from_user_id":105579892,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.nibirutech.com/&quot; rel=&quot;nofollow&quot;&gt;TwitBird iPad&lt;/a&gt;"},{"from_user_id_str":"16996368","profile_image_url":"http://a0.twimg.com/profile_images/1198892387/pochi_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:30 +0000","from_user":"HyoYoshikawa","id_str":"41190564187611136","metadata":{"result_type":"recent"},"to_user_id":1800565,"text":"@shinichiro_beck \u73fe\u5730\u304b\u3089\u306a\u3089\u826f\u304f\u3066\u4ed6\u306e\u5730\u57df\u304b\u3089\u3060\u4f59\u8a08\u306a\u3089\u3001\u4f55\u306e\u305f\u3081\u306bTwitter\u304c\u3042\u308b\u306e\u304b\u308f\u304b\u3089\u306a\u3044\u3088\u3002\u3044\u307e\u8d77\u304d\u3066\u308b\u3053\u3068\u306e\u8aac\u660e\u3082\u3064\u304b\u306a\u3044\u3002\u30a2\u30eb\u30b8\u30e3\u30b8\u30fc\u30e9\u304c\u4f1d\u3048\u3066\u308b\u3053\u3068\u304c\u5168\u3066\u3058\u3083\u306a\u3044\u3057\u3001\u65e5\u672c\u306eTV\u306f\u4f1d\u3048\u306a\u3044\u3067\u3057\u3087\u3046\u3002\u77e5\u308a\u305f\u304c\u3063\u3066\u308b\u4eba\u3082\u305f\u304f\u3055\u3093\u3044\u308b\u3002","id":41190564187611136,"from_user_id":16996368,"to_user":"shinichiro_beck","geo":null,"iso_language_code":"ja","to_user_id_str":"1800565","source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"119070802","profile_image_url":"http://a2.twimg.com/profile_images/1229773005/346d8435099798113a1326e1ba4949ee_normal.jpeg","created_at":"Fri, 25 Feb 2011 17:39:25 +0000","from_user":"takotako726","id_str":"41190545439207424","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u9b54\u6cd5\u5c11\u5973\u307e\u3069\u304b\u30de\u30ae\u30ab\u306e\u53cd\u97ff\u304ctwitter\u3067\u306f\u3093\u3071\u306d\u3048\u4ef6\u3002","id":41190545439207424,"from_user_id":119070802,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://z.twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b/twipple&lt;/a&gt;"},{"from_user_id_str":"165695316","profile_image_url":"http://a1.twimg.com/profile_images/681748782/ring_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:21 +0000","from_user":"pandora_shotbar","id_str":"41190526447390720","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u300e\u30b7\u30e7\u30c3\u30c8\u30d0\u30fc\u3000\u30d1\u30f3\u30c9\u30e9\u3000\u30c4\u30a4\u30c3\u30bf\u30fc\u306e\u3064\u3076\u3084\u304d\u300f\u30b7\u30e7\u30c3\u30c8\u30d0\u30fc\u3000\u30d1\u30f3\u30c9\u30e9\u3000\u30c4\u30a4\u30c3\u30bf\u30fc\u306e\u3064\u2026\uff5chttp://pandora-twitter.seesaa.net/article/187809936.html","id":41190526447390720,"from_user_id":165695316,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://blog.seesaa.jp/&quot; rel=&quot;nofollow&quot;&gt;SeesaaBlog&lt;/a&gt;"},{"from_user_id_str":"88862311","profile_image_url":"http://a2.twimg.com/profile_images/1182243698/161113_100001897885617_169366_q_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:16 +0000","from_user":"amebaguide","id_str":"41190504926416896","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u300e\u30a2\u30e1\u30d6\u30ed\u653b\u7565\u30ac\u30a4\u30c9\u306e\u30c4\u30a4\u30c3\u30bf\u30fc\u306e\u3064\u3076\u3084\u304d\u300f\u30d6\u30ed\u30b0\u306e\u653b\u7565\u3000\u30c4\u30a4\u30c3\u30bf\u30fc\u306e\u3064\u3076\u3084\u304d\u96c6\uff5chttp://accessup-twitter.seesaa.net/article/187809931.html","id":41190504926416896,"from_user_id":88862311,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://blog.seesaa.jp/&quot; rel=&quot;nofollow&quot;&gt;SeesaaBlog&lt;/a&gt;"},{"from_user_id_str":"186895007","profile_image_url":"http://a2.twimg.com/profile_images/1229610799/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:11 +0000","from_user":"zizikt","id_str":"41190486123356161","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3053\u308c\u306f\u500b\u4eba\u7684\u306b\u306f\u91cd\u5b9d\u3067\u3059\u3002\n\u25c6iPhone&amp;iPad\u5411\u3051Twitter\u30a2\u30d7\u30ea\u300c\u3064\u3044\u3063\u3077\u308b\u300d\u306bEvernote\u3068\u306e\u9023\u643a\u6a5f\u80fd\u3092\u8ffd\u52a0 \nhttp://bit.ly/hPf44u","id":41190486123356161,"from_user_id":186895007,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"132320738","profile_image_url":"http://a3.twimg.com/profile_images/1229760475/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:04 +0000","from_user":"faina_","id_str":"41190453592334336","metadata":{"result_type":"recent"},"to_user_id":167894537,"text":"@gjmorley \u30e2\u30fc\u30ea\u30fc\u3055\u3093\u306e\u7ffb\u8a33\u306e\u8a00\u8449\u306e\u30bb\u30f3\u30b9\u304c\u3059\u304d\u3067\u3059\u3002\u305d\u3057\u3066\u3001Twitter\u3067\u77e5\u308b\u3001\u73fe\u5730\u306e\u4eba\u306e\u76ee\u306e\u529b\u3084\u3001\u60c5\u5831\u3092\u4f1d\u3048\u3066\u304f\u308c\u308b\u7686\u3055\u3093\u306e\u60c5\u71b1\u306b\u611f\u52d5\u3057\u3066\u3044\u307e\u3059\u3002\u611f\u52d5\u3059\u308b\u3063\u3066\u3059\u3054\u3044\u30a8\u30cd\u30eb\u30ae\u30fc\u3067\u3059\uff01\uff01","id":41190453592334336,"from_user_id":132320738,"to_user":"gjmorley","geo":null,"iso_language_code":"ja","to_user_id_str":"167894537","source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"24870552","profile_image_url":"http://a3.twimg.com/profile_images/907130634/4_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:03 +0000","from_user":"tana1192","id_str":"41190450480021504","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u500b\u4eba\u7684\u306b\u306f\u3001\u30bf\u30b0\u5f3e\u304d\u3059\u308c\u3070\u3044\u3044\uff08\u5f3e\u3051\u308b\u30c4\u30fc\u30eb\u3092\u4f7f\u3063\u3066Twitter\u3092\u3059\u308c\u3070\u3044\u3044\uff09\u3068\u601d\u3046\u3093\u3060\u3051\u3069\u306a\u3042\u3002\u307f\u3093\u306a\u305d\u308c\u306a\u308a\u306bTwitter\u3084\u308b\u4eba\u3060\u3057\u3001\u30c4\u30fc\u30eb\u9078\u3073\u304f\u3089\u3044\u5e45\u3092\u6301\u3063\u3066\u3084\u3063\u3066\u3082\u3002 \u307e\u3042\u3001\u4ffa\u30a2\u30cb\u30e1\u306f\u89b3\u308b\u89b3\u308b\u8a50\u6b3a\u3059\u308b\u3060\u3051\u306e\u4eba\u3060\u304b\u3089\u95a2\u4fc2\u306a\u3044\u3093\u3060\u3051\u3069\u3082\uff57\uff57\u5b9f\u6cc1\u306f\u697d\u3057\u305d\u3046\u306b\u898b\u3048\u308b\u3088\u3002","id":41190450480021504,"from_user_id":24870552,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"58509646","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Fri, 25 Feb 2011 17:39:02 +0000","from_user":"kakuyas","id_str":"41190446663344128","metadata":{"result_type":"recent"},"to_user_id":107076877,"text":"@Dayspool \u6df1\u591c\uff12\uff19\u6642\u304f\u3089\u3044\u307e\u3067\u306f\u6bce\u65e5\u55b6\u696d\u3057\u3066\u308b\u306e\u3067\u3001twitter\u3001\u30e1\u30c3\u30bb\u3001PS3\u306a\u3069\u3067\u3088\u3093\u3067\u3051\u308c\u3002\u3053\u3063\u3061\u304b\u3089\u58f0\u304b\u3051\u308b\u3053\u3068\u3082\u3042\u308b\u304b\u3082\u3060\u304c\uff57","id":41190446663344128,"from_user_id":58509646,"to_user":"Dayspool","geo":null,"iso_language_code":"ja","to_user_id_str":"107076877","source":"&lt;a href=&quot;http://cheebow.info/chemt/archives/2007/04/twitterwindowst.html&quot; rel=&quot;nofollow&quot;&gt;Twit for Windows&lt;/a&gt;"},{"from_user_id_str":"149128527","profile_image_url":"http://a2.twimg.com/profile_images/1254922702/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:39:00 +0000","from_user":"uni13yoki","id_str":"41190437087748096","metadata":{"result_type":"recent"},"to_user_id":119468594,"text":"@kuro_wr84 \u304a\u308c\u3068\u304a\u524d\u3067Twitter\u3067\u4f1a\u8a71\u3057\u305f\u3089\u3001\u5927\u5909\u306a\u3053\u3068\u306b\u306a\u308b\u306a","id":41190437087748096,"from_user_id":149128527,"to_user":"kuro_wr84","geo":null,"iso_language_code":"ja","to_user_id_str":"119468594","source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"18670595","profile_image_url":"http://a2.twimg.com/profile_images/1250674062/ProfilePhoto_normal.png","created_at":"Fri, 25 Feb 2011 17:38:59 +0000","from_user":"nyuuuuun","id_str":"41190436450222080","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3078\u30fc\u3053\u3093\u306a\u306b\u3088\u304f\u4f3c\u308b\u3053\u3068\u3082\u3042\u308b\u3093\u3060\u30fc\nhttp://twitter.com/Re_44/status/35943233016168448\nhttp://twitter.com/3510_misaka/status/36122114821988352","id":41190436450222080,"from_user_id":18670595,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"96267603","profile_image_url":"http://a3.twimg.com/profile_images/1245253473/DSiLL3_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:59 +0000","from_user":"arivis","id_str":"41190433119940608","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://twitter.com/#!/arivis/status/40636755380142080 \u306a\u3093\u3064\u3046\u304b\u3053\u308c\u3067\u8d64\u3063\u3066\u306e\u3082\u3061\u3087\u3063\u3068\u3042\u308c\u3063\u3059\u306d\u3002\u305d\u3057\u3066\u4e88\u671f\u3057\u3066\u3044\u305f\u304b\u306e\u3088\u3046\u3060","id":41190433119940608,"from_user_id":96267603,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"148097776","profile_image_url":"http://a3.twimg.com/profile_images/1166904064/broken-heart_normal.png","created_at":"Fri, 25 Feb 2011 17:38:56 +0000","from_user":"ReajuBreaker_A","id_str":"41190422135058432","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u672c\u57a2\u30d5\u30a9\u30ed\u30fc\u3088\u308d\u3057\u304f\u3067\u3059\u2192 http://twitter.com/ReajuBreaker \uff08\uff20\u3060\u3068\u30ea\u30d7\u30e9\u30a4\u304c\u57cb\u307e\u308b\u305f\u3081\u3001URL\u306b\u3057\u3066\u3042\u308a\u307e\u3059\uff09","id":41190422135058432,"from_user_id":148097776,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.twitter.com/ReajuBreaker&quot; rel=&quot;nofollow&quot;&gt;\u73fe\u5145\u6bba\u3057\u306e\u7121\u4eba\u9023\u545f\uff1c\u30aa\u30fc\u30c8\u30c4\u30a4\u30fc\u30c8\uff1e&lt;/a&gt;"},{"from_user_id_str":"59711654","profile_image_url":"http://a2.twimg.com/profile_images/416212928/flowers-06-1_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:56 +0000","from_user":"agamo45","id_str":"41190421522546688","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @ebizo66: \u30ea\u30d3\u30a2\u30fb\u30c8\u30ea\u30dd\u30ea\u306eTw\uff1a\u6551\u6025\u8eca\u304c\u6765\u305f\u304c\u3001\u8ca0\u50b7\u8005\u3092\u8eca\u5185\u3067\u6bba\u5bb3\u3057\u3066\u3044\u305f\u3001\u3068\u3002\uff08\u6ec5\u8336\u82e6\u8336\u3060\uff01\uff09http://ow.ly/43pQ2 #libjp","id":41190421522546688,"from_user_id":59711654,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"145311373","profile_image_url":"http://a3.twimg.com/profile_images/1187802576/a_gam_02_normal.png","created_at":"Fri, 25 Feb 2011 17:38:55 +0000","from_user":"nogic1008","id_str":"41190418141937664","metadata":{"result_type":"recent"},"to_user_id":88117317,"text":"@runasoru \u307e\u3042\u5acc\u306a\u3089\u6df1\u591c\u5e2f\u306bTwitter\u898b\u306a\u304d\u3083\u3044\u3044\u3060\u3051\u3067\u3059\u304b\u3089\u306d\u30fc \u30103/19BDM\u30aa\u30d5http://twvt.us/bdoff_kansai\u3011","id":41190418141937664,"from_user_id":145311373,"to_user":"runasoru","geo":null,"iso_language_code":"ja","to_user_id_str":"88117317","source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"195851300","profile_image_url":"http://a2.twimg.com/profile_images/1124572815/be7b4c0a06cb60e8_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:49 +0000","from_user":"LoveLAscrewDoll","id_str":"41190391147540480","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @jp_mjp: SCREW TV SHOW Vol.6\u306e\u653e\u9001\u304c\u7121\u4e8b\u306b\u7d42\u4e86\u3044\u305f\u3057\u307e\u3057\u305f\u3002\u3054\u89a7\u9802\u304d\u3042\u308a\u304c\u3068\u3046\u3054\u3056\u3044\u307e\u3057\u305f\uff01\u6b21\u56de\u653e\u9001\u306f3\u670818\u65e5(\u91d1)\u3067\u3059\u3002\u8996\u8074\u8005\u30d7\u30ec\u30bc\u30f3\u30c8\u306e\u8a73\u7d30\u306f\u5f8c\u65e5MJP\u3067\u304a\u77e5\u3089\u305b\u3044\u305f\u3057\u307e\u3059\u3002\u305d\u306e\u969b\u306b\u306f\u3001\u3053\u306eTwitter\u3067\u3082\u304a\u77e5\u3089\u305b\u3044\u305f\u3057\u307e\u3059\u306e\u3067\u3001\u304a\u697d\u3057\u307f\u306b\uff01#SCREWTV","id":41190391147540480,"from_user_id":195851300,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://z.twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b/twipple&lt;/a&gt;"},{"from_user_id_str":"178045354","profile_image_url":"http://a0.twimg.com/profile_images/1214479381/154722_10100141954893059_808622_55276626_7445050_n_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:48 +0000","from_user":"ChuriSta_gt","id_str":"41190389549510656","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3053\u3053\u4e00\u9031\u9593Twitter\u304c\u3084\u305f\u3089\u697d\u3057\u3044\u306e\u3067\u3059\u3051\u3069\u30fc\u30fc\u30fc\uff01\u306b\u3072\u3072\u3063\u7b11","id":41190389549510656,"from_user_id":178045354,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b for iPhone&lt;/a&gt;"},{"from_user_id_str":"50592111","profile_image_url":"http://a0.twimg.com/profile_images/1252176582/lFjpi_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:48 +0000","from_user":"crowNeko","id_str":"41190387271864320","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30a8\u30ed\u30b2\u30d7\u30ec\u30a4\u3057\u306a\u304c\u3089\u307e\u3069\u30de\u30aeTL\u3092\u898b\u306a\u3044\u3088\u3046\u306b\u534a\u76ee\u306b\u306a\u308a\u306a\u304c\u3089Twitter\u3057\u3066\u308b\u6df1\u591c2\u6642\u534a\u3002","id":41190387271864320,"from_user_id":50592111,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://stone.com/Twittelator&quot; rel=&quot;nofollow&quot;&gt;Twittelator&lt;/a&gt;"},{"from_user_id_str":"7141467","profile_image_url":"http://a3.twimg.com/profile_images/1198540741/icon12912579345276_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:40 +0000","from_user":"hina_geshi","id_str":"41190355961380864","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u7d50\u5c40\u30cd\u30bf\u30d0\u30ec\u3059\u3093\u306a\u3063\u3066\u8a00\u3046\u65b9\u304c\u30a2\u30ec\u3060\u3088\u306d\u3001\u3057\u306a\u3044\u308f\u3051\u7121\u3044\u3058\u3083\u306a\u3044\u8133\u5185\u5782\u308c\u6d41\u3057\u304cTwitter\u306a\u3093\u3060\u304b\u3089\u3055","id":41190355961380864,"from_user_id":7141467,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://projects.playwell.jp/go/Saezuri&quot; rel=&quot;nofollow&quot;&gt;Saezuri&lt;/a&gt;"},{"from_user_id_str":"149608984","profile_image_url":"http://a0.twimg.com/profile_images/1205950885/090702_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:39 +0000","from_user":"Mr_Tsubaki","id_str":"41190349447774208","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u307e\u3069\u304b\u306fTwitter\u5408\u308f\u305b\u3066\uff11\u6642\u9593\u306f\u697d\u3057\u3044","id":41190349447774208,"from_user_id":149608984,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://z.twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b/twipple&lt;/a&gt;"},{"from_user_id_str":"122271550","profile_image_url":"http://a0.twimg.com/profile_images/961936499/neoneko_bot5jpg_____normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:39 +0000","from_user":"neoneko_bot5","id_str":"41190348726345728","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3010\u30c6\u30b9\u30c8\uff1a23\u3011\u4eca\u65e5\u304b\u3089\u5ba3\u4f1d\u958b\u59cb\u2606\u306d\u304a\u306d\u3053\u306eTwitter \u3067 EasyBottex\u3000\u3067\u304d\u308b\u307e\u3067\uff01\u2192http://neoneko.blog31.fc2.com/","id":41190348726345728,"from_user_id":122271550,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www20.atpages.jp/neoneko/&quot; rel=&quot;nofollow&quot;&gt;neoneko_bot5&lt;/a&gt;"},{"from_user_id_str":"127069188","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_6_normal.png","created_at":"Fri, 25 Feb 2011 17:38:37 +0000","from_user":"MYCHEBOT","id_str":"41190340908163074","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30eb\u30d5\u3055\u3093\u304c\u914d\u4fe1\u3092\u7d42\u4e86\u3057\u307e\u3057\u305f\uff01/ http://777labo.com/mychecker/view/745.php / \u30c8\u30d4\u30c3\u30af:XSplit\u30c6\u30b9\u30c8\u3000twitter\u2192http://twitter.com/rukh01","id":41190340908163074,"from_user_id":127069188,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://777labo.com/mychecker/&quot; rel=&quot;nofollow&quot;&gt;MYCHEBOT&lt;/a&gt;"},{"from_user_id_str":"107626142","profile_image_url":"http://a1.twimg.com/profile_images/1104968421/SuperMaika1_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:34 +0000","from_user":"MaikaPaPa","id_str":"41190328614666240","metadata":{"result_type":"recent"},"to_user_id":null,"text":"75\u5e74\u524d\u306e\u4eca\u65e52\u670826\u65e5\u672a\u660e\u3001\u82e5\u304d\u9752\u5e74\u5c06\u6821\u3089\u304c\u653f\u6cbb\u8150\u6557\u3068\u8fb2\u6751\u306e\u56f0\u7aae\u306b\u5bfe\u3057\u3066\u6c7a\u8d77\u3057\u307e\u3057\u305f\u3002\u3082\u3061\u308d\u3093\u5f53\u6642\u306fTwitter\u3082FB\u3082\u3001\u307e\u305f\u5f53\u7136\u306a\u304c\u3089Internet\u3082\u3042\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002\u4e00\u65b9\u3001\u30c1\u30e5\u30cb\u30b8\u30a2\u3001\u30a8\u30b8\u30d7\u30c8\u3001\u4e2d\u6771\u306b\u5e83\u304c\u308b\u53cd\u653f\u5e9c\u30c7\u30e2\u3068\u5f37\u6a29\u4f53\u5236\u306e\u5d29\u58ca\u3002\u73fe\u5728\u306e\u65e5\u672c\u3067\u306f\u8003\u3048\u3089\u308c\u306a\u3044\u3053\u3068\u3067\u3059\u3002","id":41190328614666240,"from_user_id":107626142,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"11111695","profile_image_url":"http://a1.twimg.com/sticky/default_profile_images/default_profile_0_normal.png","created_at":"Fri, 25 Feb 2011 17:38:28 +0000","from_user":"kumatchipooh","id_str":"41190306145775617","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @inosenaoki: \u306a\u308b\u307b\u3069\u306d\u3002 RT @dansrmz @inosenaoki \u3053\u3061\u3089\u304c\u30bd\u30d5\u30c8\u30d0\u30f3\u30af\u526f\u793e\u9577\u306e\u677e\u672c\u5fb9\u4e09\u3055\u3093\u306e\u3001Twitter\u306b\u95a2\u3059\u308b\u8ad6\u8003\u3067\u3059\u3002 \u25b6 &quot;Twitter\u306e2\u30c1\u30e3\u30f3\u30cd\u30eb\u5316\u306f\u9632\u6b62\u51fa\u6765\u308b\u304b&quot; http://t.co/Mwzb8Zf","id":41190306145775617,"from_user_id":11111695,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"212161909","profile_image_url":"http://a1.twimg.com/profile_images/1252895790/natm01_normal.gif","created_at":"Fri, 25 Feb 2011 17:38:28 +0000","from_user":"n34hitman","id_str":"41190303830511616","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Twitter\u30fb\u30d6\u30ed\u30b0\u30a2\u30d5\u30a3\u30ea\u30a8\u30a4\u30c8\u81ea\u52d5\u6295.... http://goo.gl/a4RHB 4054","id":41190303830511616,"from_user_id":212161909,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twibow.net/&quot; rel=&quot;nofollow&quot;&gt;Twibow&lt;/a&gt;"},{"from_user_id_str":"105945593","profile_image_url":"http://a2.twimg.com/sticky/default_profile_images/default_profile_5_normal.png","created_at":"Fri, 25 Feb 2011 17:38:24 +0000","from_user":"nakano_bot","id_str":"41190285710983168","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3053\u306ebot\u306f\u4e0d\u52d5\u7523\u4f1a\u793e\u69d8\u5411\u3051\u306e\u4e0d\u52d5\u7523\u30dd\u30fc\u30bf\u30eb\u30b5\u30a4\u30c8\u3078\u306e\u4e00\u62ec\u8ee2\u9001\uff0bTwitter\u7121\u6599\u8ee2\u9001\u30b5\u30fc\u30d3\u30b9\u306b\u3088\u308a\u3064\u3076\u3084\u304d\u307e\u3059\u3002\u3054\u5229\u7528\u306b\u306a\u308a\u305f\u3044\u5834\u5408\u306f http://bit.ly/demey0 \u306b\u304a\u6c17\u8efd\u306b\u304a\u554f\u3044\u5408\u308f\u305b\u4e0b\u3055\u3044\u3002","id":41190285710983168,"from_user_id":105945593,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.teramax.jp/aboutus.html&quot; rel=&quot;nofollow&quot;&gt;tmxbot&lt;/a&gt;"},{"from_user_id_str":"170904226","profile_image_url":"http://a2.twimg.com/profile_images/1249020397/1789kb_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:21 +0000","from_user":"1789kb","id_str":"41190274428305408","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3068\u308a\u3042\u3048\u305a\u4eca\u56de\u521d\u3081\u3066\u30ea\u30a2\u30eb\u30bf\u30a4\u30e0\u3067\u898b\u3066\u308f\u304b\u3063\u305f\u306e\u306f\u3001QB\u306f\u5168\u8eab\u304c\u30a2\u30f3\u30d1\u30f3\u30bf\u30a4\u30d7\u3060\u3068\u3044\u3046\u3053\u3068\u3068\u3001\u307e\u3069\u30de\u30ae\u7d42\u4e86\u5f8c\u306eTwitter\u306e\u3056\u308f\u3064\u304d\u304c\u3059\u3054\u3044\u3068\u3044\u3046\u3053\u3068","id":41190274428305408,"from_user_id":170904226,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"166169644","profile_image_url":"http://a1.twimg.com/profile_images/1217017679/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:18 +0000","from_user":"Okkkkkkkkkkun","id_str":"41190262420017152","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3063\u3066Twitter\u3067\u3064\u3076\u3084\u304f\u81ea\u5206\u3082\u76f8\u5f53\u5c0f\u3055\u3044\u306a\u3002","id":41190262420017152,"from_user_id":166169644,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"196623456","profile_image_url":"http://a3.twimg.com/profile_images/1219076661/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:06 +0000","from_user":"NoMoneyClub","id_str":"41190213342601216","metadata":{"result_type":"recent"},"to_user_id":195462431,"text":"@yosal15 \nTwitter\u3084\u3063\u3066\u308b\u3089\u3057\u3044\u3002\u3051\u3069\u3001\u898b\u3064\u304b\u3089\u306a\u3044\u3002","id":41190213342601216,"from_user_id":196623456,"to_user":"yosal15","geo":null,"iso_language_code":"ja","to_user_id_str":"195462431","source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"126984048","profile_image_url":"http://a3.twimg.com/profile_images/1254579571/zipyaru-20090829-23-0012_normal.png","created_at":"Fri, 25 Feb 2011 17:38:02 +0000","from_user":"minaduki_naduki","id_str":"41190196418584576","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u203b\u30e1\u30fc\u30eb\u3067\u5973\u306e\u5b50\u53e3\u8aac\u304f\u306e\u306b\u5fd9\u3057\u3044\u3093\u3060\u305d\u3046\u3067\u3059\u3000\u307e\u3058\u3058\u3054\u308d RT @yowano_k: \u5fd9\u3057\u304f\u3066\u3082Twitter\u306b\u9854\u3092\u51fa\u3057\u305f\u304f\u306a\u308b\u50d5\u30a7\u2026\u2026","id":41190196418584576,"from_user_id":126984048,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://seesmic.com/seesmic_desktop/sd2&quot; rel=&quot;nofollow&quot;&gt;Seesmic Desktop&lt;/a&gt;"},{"from_user_id_str":"200568705","profile_image_url":"http://a3.twimg.com/profile_images/1242179765/101230_1355_01_normal.jpg","created_at":"Fri, 25 Feb 2011 17:38:01 +0000","from_user":"hammerstrap","id_str":"41190190428979200","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6628\u65e5\u91d1\u66dc\u65e5\u306f\u732e\u8840\u306b\u5f80\u304f\u3002\u4eca\u306e\u50d5\u306e\u4eba\u9593\u3068\u3057\u3066\u306e\u4fa1\u5024\u306f\u3001\u7cbe\u3005\u3053\u306e\u7a0b\u5ea6\u3002\u8179\u304c\u6e1b\u3063\u305f\u3002\u5374\u8aac\u3002twitter\u306e\u767e\u56db\u5341\u6587\u5b57\u306b\u82db\u3005\u3068\u3057\u3066\u3001\u4e00\u3064\u306e\u4eee\u8aac\u306b\u4fe1\u6191\u6027\u3092\u5f97\u308b\u3002\u6226\u6642\u4e0b\u306e\u7d19\u306e\u7d71\u5236\u3068\u3001\u4e2d\u5cf6\u6566\u306e\u6587\u7ae0\u306e\u95a2\u4fc2\u6027\u3002\u73fe\u5728\u30a6\u30a7\u30d6\u30ed\u30b0\u306b\u3001\u7e8f\u3081\u3066\u3044\u308b\u6700\u4e2d\u3002\u8fd1\u65e5\u516c\u958b\u4e88\u5b9a\u3002","id":41190190428979200,"from_user_id":200568705,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"164970427","profile_image_url":"http://a0.twimg.com/profile_images/1227176662/9192b021ef85ce9902c28955f86e604b_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:59 +0000","from_user":"syuigetsuIT","id_str":"41190184041197569","metadata":{"result_type":"recent"},"to_user_id":141926331,"text":"@iliad_tga \u30a4\u30ea\u30a2\u30b9\u3055\u3093\u304c\u305d\u306e\u8fba\u7406\u89e3\u306e\u3042\u308b\u3053\u3068\u306f\u5206\u304b\u3063\u3066\u307e\u3059\uff57\u3000\u30cd\u30bf\u30d0\u30ec\u4e91\u3005\u306ftwitter\u306e\u6c7a\u5b9a\u7684\u306a\u6b20\u70b9\u3060\u3068\u601d\u3044\u307e\u3059\u306d\u3047\u3002","id":41190184041197569,"from_user_id":164970427,"to_user":"iliad_tga","geo":null,"iso_language_code":"ja","to_user_id_str":"141926331","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"94526795","profile_image_url":"http://a0.twimg.com/profile_images/679411954/akb48_in_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:56 +0000","from_user":"akb48_in","id_str":"41190171248431104","metadata":{"result_type":"recent"},"to_user_id":null,"text":"AKB48\u67cf\u6728\u7531\u7d00 \u304a\u75b2\u308c\u69d8\u3002: \n\u3053\u3093\u3070\u3093\u306f(^O^)\uff0f\u266a\n\u3000\n\u3000\n\u3000\n\u4eca\u65e5\u306e\u516c\u6f14\u697d\u3057\u304b\u3063\u305f\u301c\n\u3000\n\u3000\n\u4e45\u3057\u3076\u308a\u3067\u7dca\u5f35\u3057\u305f\u3051\u3069\u3001\u306f\u3058\u3051\u307e\u304f\u3063\u305f\u305c\u3043\uff01\uff01\n\u3000\n\u3000\n\u3000\nMC\u306f\u565b\u307f\u307e\u304f\u308a\u306e\u30c6\u30f3\u30d1\u308a\u307e\u304f... http://bit.ly/ie8bEa akb48 twitter","id":41190171248431104,"from_user_id":94526795,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"222270374","profile_image_url":"http://a3.twimg.com/profile_images/1250946143/P1040062_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:53 +0000","from_user":"chrxpac","id_str":"41190158455943168","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3010\u5b9a\u671f\u3011Twitter\u306f\uff8a\uff9f\uff7f\uff7a\uff9d\u304b\u3089\u3057\u304b\u3067\u304d\u306a\u3044\u306e\u3067\uff98\uff8c\uff9f\u8fd4\u3057\u304c\u9045\u304f\u306a\u308a\u307e\u3059(\u00b4\u30fb\u03c9\u30fb\uff40)\u3054\u4e86\u627f\u4e0b\u3055\u3044!!","id":41190158455943168,"from_user_id":222270374,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twittbot.net/&quot; rel=&quot;nofollow&quot;&gt;twittbot.net&lt;/a&gt;"},{"from_user_id_str":"64009258","profile_image_url":"http://a2.twimg.com/profile_images/1154025023/Mixi___normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:52 +0000","from_user":"Tatsuyuko","id_str":"41190153447944192","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4f01\u696d\u304c\u5c31\u6d3b\u751f\u306bFacebook\u3092\u4f7f\u3063\u3066\u7533\u8acb\u305b\u3088\u3068\u3044\u3044\u3001\u4f01\u696d\u304cFacebook\u3092\u4f7f\u3048\u3068\u4f01\u696d\u304c\u8a00\u3063\u3066\u304d\u305f\u308a\u3059\u308c\u3070\u305d\u308c\u3069\u3053\u308d\u3058\u3083\u306a\u3044\u304b\u3068\u3002\u5c11\u306a\u304f\u3068\u3082\u5c31\u6d3b\u3067Twitter\u306e\u8a00\u52d5\u3084\u30d5\u30a9\u30ed\u30ef\u30fc\u3092\u8abf\u67fb\u3059\u308b\u4f01\u696d\u306f\u304b\u306a\u308a\u591a\u3044\u3067\u3059 RT @Isshee: \u4f01\u696d\u3067\u3082\u540c\u3058\u3067\u3057\u3087 RT","id":41190153447944192,"from_user_id":64009258,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"105145175","profile_image_url":"http://static.twitter.com/images/default_profile_normal.png","created_at":"Fri, 25 Feb 2011 17:37:49 +0000","from_user":"snao813","id_str":"41190141703753728","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @yumisaiki: \u795e\u69d8\u306f\u672c\u5f53\u306b\u4eba\u9593\u3092\u3059\u3070\u3089\u3057\u3044\u30d0\u30e9\u30f3\u30b9\u3067\u914d\u7f6e\u3057\u3066\u304a\u3089\u308c\u308b\u3002\u795d\u5cf6\u307f\u305f\u3044\u306a\u5c0f\u3055\u3044\u3068\u3053\u308d\u306b\u306a\u3093\u3067\u3053\u3093\u306a\u306b\u7acb\u6d3e\u306a\u4eba\u304c\u305f\u304f\u3055\u3093\u3044\u308b\u3093\u3060\u308d\u3046\u3002\u795e\u69d8\u3042\u308a\u304c\u3068\u3046\u3002\u672c\u5f53\u306b\u3042\u308a\u304c\u3068\u3046\u3002\u4eba\u9593\u3063\u3066\u3059\u3070\u3089\u3057\u3044\u3068\u601d\u3048\u305f\u3002twitter\u3082\u3042\u308a\u304c\u3068\u3046\u3002\u3000#kaminoseki","id":41190141703753728,"from_user_id":105145175,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://seesmic.com/seesmic_desktop/sd2&quot; rel=&quot;nofollow&quot;&gt;Seesmic Desktop&lt;/a&gt;"},{"from_user_id_str":"203667204","profile_image_url":"http://a2.twimg.com/profile_images/1254664000/eve_blackcat_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:46 +0000","from_user":"eve_blackcat","id_str":"41190129292943361","metadata":{"result_type":"recent"},"to_user_id":146894340,"text":"@kuroiso02 \u3057\u308a\u3068\u308a\u3068\u304b\uff1f\n\u2026\u3067\u3082Twitter\u3060\u3068\u7d42\u308f\u3089\u306a\u304f\u306a\u308b\u30b1\u30c9\u2026","id":41190129292943361,"from_user_id":203667204,"to_user":"kuroiso02","geo":null,"iso_language_code":"ja","to_user_id_str":"146894340","source":"&lt;a href=&quot;http://twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b for iPhone&lt;/a&gt;"},{"from_user_id_str":"6528403","profile_image_url":"http://a0.twimg.com/profile_images/1240591244/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:45 +0000","from_user":"sortiee","id_str":"41190125924917248","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30a2\u30cb\u30e1\u5b9f\u6cc1\u306ftwitter\u306e\u764c","id":41190125924917248,"from_user_id":6528403,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sites.google.com/site/peraperaprv/Home&quot; rel=&quot;nofollow&quot;&gt;P3:PeraPeraPrv&lt;/a&gt;"},{"from_user_id_str":"186058304","profile_image_url":"http://a0.twimg.com/profile_images/1250454564/IMG_0210_normal.JPG","created_at":"Fri, 25 Feb 2011 17:37:37 +0000","from_user":"00o8o00","id_str":"41190090386448384","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @fuefukioyasumi: \u3082\u3046\u3044\u3044\u3002\u300c\u671d\u751f\u300d\u306a\u3093\u304b\u3044\u3044\u3002BBC\u3082CNN\u3082\u82f1\u8a9e\u653e\u9001\u3060\u3002\u307f\u3093\u306a\u3001\u30c6\u30ec\u30d3\u3092\u3076\u3061\u3063\u3068\u5207\u3063\u3066Twitter\u3092\u898b\u3088\u3046\u3002\u3053\u3053\u306b\u300c\u751f\u304d\u305f\u60c5\u5831\u300d\u304c\u6d41\u308c\u3066\u3044\u308b\u3002\u300c\u751f\u304d\u305f\u53eb\u3073\u300d\u304c\u3042\u308b\u3002\u3053\u3053\u304b\u3089\u3067\u3082\u6b74\u53f2\u306e\u8ee2\u63db\u70b9\u3092\u611f\u3058\u308b\u4e8b\u304c\u3067\u304d\u308b\u306e\u3060\u3002 @gjmorley #libjp","id":41190090386448384,"from_user_id":186058304,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"49219631","profile_image_url":"http://a2.twimg.com/profile_images/1231873117/__2-colornow__2__normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:33 +0000","from_user":"irisgazer","id_str":"41190073227550720","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3067\u3059\u3088\u306d\u3047 RT @minamitaiheiyou: \u6545\u306b\u30cd\u30bf\u30d0\u30ec\u3092\u3059\u308b\u306e\u3082\u81ea\u7531\u3002\u30cd\u30bf\u3070\u308c\u3057\u305f\u4eba\u3092\u30c7\u30a3\u30b9\u308b\u306e\u3082\u81ea\u7531\u3002\u3042\u3068\u306f\u5404\u3005\u306e\u88c1\u91cf\u3067\u4e57\u308a\u5207\u3063\u3066\u304f\u3060\u3055\u3044\u3088\u3081\u3093\u3069\u304f\u3055\u3044\u306a RT @kihirokiro: Twitter\u3067\u30cd\u30bf\u30d0\u30ec\u4e91\u3005\u3044\u3063\u3066\u3082\u5143\u3005Twitter\u3063\u3066\u300c\u500b\u4eba\u306e\u72ec\u308a\u8a00\u300d\u3060\u308d","id":41190073227550720,"from_user_id":49219631,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"98560114","profile_image_url":"http://a0.twimg.com/profile_images/1252332545/IMGP8170_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:32 +0000","from_user":"qess0093","id_str":"41190070706905088","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30b7\u30e5\u30fc\u30c6\u30a3\u304f\u305d\u3046\u305c\u3048\uff57 RT @syu_thi_bot: \u3044\u3064\u307e\u3067Twitter\u3084\u3063\u3066\u308b\u3093\u3060\u3044\uff1f\u3044\u3044\u52a0\u6e1b\u73fe\u5b9f\u306b\u623b\u308a\u306a\u3088\u3002\u3053\u3053\u306f\u30ad\u30df\u305f\u3061\u4e09\u6b21\u5143\u306e\u4eba\u9593\u304c\u3044\u308b\u3079\u304d\u5834\u6240\u3058\u3083\u306a\u3044\u3093\u3060\u3088\u3002\u305d\u3093\u306a\u306e\u57fa\u672c\u3060\u308d\uff01\uff01","id":41190070706905088,"from_user_id":98560114,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"197459334","profile_image_url":"http://a3.twimg.com/profile_images/1210698414/shiratorishoko_normal.png","created_at":"Fri, 25 Feb 2011 17:37:31 +0000","from_user":"SyokoShiratori","id_str":"41190064243478528","metadata":{"result_type":"recent"},"to_user_id":null,"text":"+0.50kg \u540c\u3058\u304f\u30c0\u30a4\u30a8\u30c3\u30c8\u4e2d\u3067\u3059\u3002\u3088\u304f\u3053\u306e\u30b5\u30a4\u30c8\u3067\u4f53\u91cd\u5831\u544a\u3057\u3066\u307e\u3059\u266a http://bit.ly/fhN2fM RT @msophiah \u3046\u3046\u3046\u30fb\u30fb\u30fb\u304a\u8179\u3059\u3044\u305f\u301c\u30fb\u30fb\u30fb\u6211\u6162\u3001\u6211\u6162\u3001\u6211\u6162\u3002\u30c0\u30a4\u30a8\u30c3\u30c8\u3001\u30c0\u30a4\u30a8\u30c3\u30c8\u3001\u30c0\u30a4\u30a8\u30c3\u30c8\u3002","id":41190064243478528,"from_user_id":197459334,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://mob-mc.com&quot; rel=&quot;nofollow&quot;&gt;\uff08\u4eee\u79f0\uff09\u30c4\u30a4\u30af\u30ea\u30c3\u30af twiclick&lt;/a&gt;"},{"from_user_id_str":"180410237","profile_image_url":"http://a3.twimg.com/profile_images/1254473979/icon_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:30 +0000","from_user":"ka_ph","id_str":"41190062184079360","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3010\u5b9a\u671fpost\u3011\u30d5\u30a7\u30eb\u30c7\u30a3\u30ca\u30f3\u30c8bot( http://twitter.com/ferdinand_bot )\u4f5c\u308a\u307e\u3057\u305f\u3002\u304a\u5b50\u69d8\u306e\u540d\u524d\u304a\u501f\u308a\u3055\u305b\u3066\u304f\u308c\u308b\u65b9\u3044\u307e\u3057\u305f\u3089@ka_ph\u307e\u3067\u304a\u9858\u3044\u3057\u307e\u3059\u3002","id":41190062184079360,"from_user_id":180410237,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twittbot.net/&quot; rel=&quot;nofollow&quot;&gt;twittbot.net&lt;/a&gt;"},{"from_user_id_str":"52283906","profile_image_url":"http://a3.twimg.com/profile_images/387644016/10100654519_s_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:26 +0000","from_user":"rolling_bean","id_str":"41190043313913856","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3081\u307e\u3044\u304c\u3057\u307e\u3059\u306d\u301cRT @yurikalin:\u30b3\u30a4\u30c4\u30e9\u5168\u54e1\u3044\u306a\u304f\u306a\u3063\u305f\u3089\u3001\u660e\u308b\u304f\u306a\u308b\u3060\u308d\u3046\u306a\u3041\uff5e\u266a\uff1e\u65e5\u672c\u306e\u30d3\u30b8\u30e7\u30f3 RT roll \u65e5\u7d4c\uff06CSIS\u30b7\u30f3\u30dd\u30b8\u30a6\u30e0\u300c\u5b89\u4fdd\u6539\u5b9a50\u5468\u5e74\u3001\u3069\u3046\u306a\u308b\u65e5\u7c73\u95a2\u4fc2\u300d http://bit.ly/dES8PY\u3000http://bit.ly/ihg0GT","id":41190043313913856,"from_user_id":52283906,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://tabtter.jp&quot; rel=&quot;nofollow&quot;&gt;\u30bf\u30d6\u30c3\u30bf\u30fc&lt;/a&gt;"},{"from_user_id_str":"351896","profile_image_url":"http://a3.twimg.com/profile_images/1179865336/icon12911887173020_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:26 +0000","from_user":"cicada","id_str":"41190043292925952","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4e2d\u5b66\u53d7\u9a13\u7a0b\u5ea6\u306e\u7b97\u6570\u306e\u554f\u984c\u3092\u51fa\u3059BOT http://twitter.com/arithmetic_bot \u6c17\u306b\u306f\u306a\u308b\u304c\u3001\u3061\u3083\u3093\u3068\u898b\u308b\u65e5\u304c\u6765\u308b\u3060\u308d\u3046\u304b\u30fb\u30fb\u3000#tearai\uff1a\u30ed\u30b3\u30e9\u30dc\u5bae\u5d0e\u770c http://locolabo.com/mz/ #mzlf","id":41190043292925952,"from_user_id":351896,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://locolabo.com/mz/&quot; rel=&quot;nofollow&quot;&gt;\u30ed\u30b3\u30e9\u30dc\u5bae\u5d0e\u770c&lt;/a&gt;"},{"from_user_id_str":"744554","profile_image_url":"http://a1.twimg.com/profile_images/1088753125/11868894_normal.gif","created_at":"Fri, 25 Feb 2011 17:37:20 +0000","from_user":"Febreze","id_str":"41190019020505088","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30cd\u30bf\u30d0\u30ec\u3042\u307e\u308a\u6c17\u306b\u3057\u306a\u3044\u30bf\u30a4\u30d7\u3060\u3051\u3069\u306a\u3093\u304b\u3053\u3046Twitter\u958b\u304f\u3060\u3051\u3067\u30ac\u30f3\u30ac\u30f3\u30cd\u30bf\u30d0\u30ec\u5165\u3063\u3066\u304f\u308b\u306e\u306f\u306a\u3093\u3068\u3082\u8a00\u3048\u306a\u3044\u306a\u3002","id":41190019020505088,"from_user_id":744554,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"203371794","profile_image_url":"http://a1.twimg.com/profile_images/1226537594/___normal.png","created_at":"Fri, 25 Feb 2011 17:37:16 +0000","from_user":"himeko24","id_str":"41190004139114496","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6b21\u3044\u3063\u3066\u307f\u3088\u30fc\u3000\u306f\u3044\u3053\u308c\u3000 \u6fc0\u5b89\u26052010\u5e74\u590f\u65b0\u30c7\u30b6\u30a4\u30f3\u2605\u30bb\u30af\u30b7\u30fc\u306a\u9023\u4f53\u5f0f\u7121\u5730\u6c34\u7740 \u80f8\u30d1\u30c3\u30c9\u4ed8\u304dQ122 http://bit.ly/h72C4i","id":41190004139114496,"from_user_id":203371794,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.google.co.jp&quot; rel=&quot;nofollow&quot;&gt;himeko24&lt;/a&gt;"},{"from_user_id_str":"119988932","profile_image_url":"http://a3.twimg.com/profile_images/1214344633/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:16 +0000","from_user":"7na_love_6sa","id_str":"41190002000007169","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30d6\u30ed\u30b0\u66f4\u65b0\u3057\u307e\u3057\u305f\uff01Twitter\uff06mixi\u304b\u3089\u3082\u30b3\u30e1\u30f3\u30c8\u5b9c\u3057\u304f\u306d\u266a\n\u300c\u30cd\u30a4\u30eb\u30c1\u30a7\u30f3\u30b8\u266a\u300d http://amba.to/hy0Do2","id":41190002000007169,"from_user_id":119988932,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"217408835","profile_image_url":"http://a1.twimg.com/profile_images/1215428655/____4.0157_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:12 +0000","from_user":"nikubenki1123","id_str":"41189985424125952","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @x68k: \u57fa\u672c\u7684\u306bTwitter\u4e0a\u3067\u306f&quot;\u597d\u304d\u306b\u3084\u308c\u3070\u3044\u3044&quot;\u3060\u3051\u3069\u3001\u540d\u524d\u3082\u30a2\u30a4\u30b3\u30f3\u3082\u30a2\u30f3\u30bf\u3058\u3083\u306a\u3044\u305f\u304f\u3055\u3093\u306e\u4eba\u305f\u3061\u306e\u9b42\u304c\u3053\u3082\u3063\u305f\u3082\u306e\u306a\u306e\u3060\u304b\u3089\u3001\u305d\u308c\u3060\u3051\u306f&quot;\u80cc\u8ca0\u3048&quot;\u3068\u601d\u3046\uff1e\u30ad\u30e3\u30e9\u30af\u30bf\u30fc\u30a2\u30ab\u30a6\u30f3\u30c8","id":41189985424125952,"from_user_id":217408835,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://tweetlogix.com&quot; rel=&quot;nofollow&quot;&gt;Tweetlogix&lt;/a&gt;"},{"from_user_id_str":"139137996","profile_image_url":"http://a0.twimg.com/profile_images/1087408006/cut_work_18_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:12 +0000","from_user":"fujiokayouko","id_str":"41189984354566144","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u591c\u4e2d\u306bTwitter\u3092\u306a\u3093\u3068\u306a\u304f\u8997\u3044\u305f\u3089\u3082\u306e\u3059\u3054\u3044\u307e\u3069\u30de\u30aeTL\u3067","id":41189984354566144,"from_user_id":139137996,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://mobile.twitter.com&quot; rel=&quot;nofollow&quot;&gt;Mobile Web&lt;/a&gt;"},{"from_user_id_str":"61221002","profile_image_url":"http://a3.twimg.com/profile_images/554916301/_1259757374_61_normal.png","created_at":"Fri, 25 Feb 2011 17:37:08 +0000","from_user":"hiromk63","id_str":"41189970613903360","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @kenji_kohashi \u7121\u4e8b\u6620\u753b\u88fd\u4f5c\u306e\u5831\u544a\u306f\u3067\u304d\u305f\u3051\u3069\u4eca\u3060\u7de8\u96c6\u306f\u7d9a\u3044\u3066\u307e\u3059w \u305d\u3093\u306a\u3068\u3053\u3067 \u6620\u753b\u300cDON'T STOP!\u300d\u306eTwitter \u30a2\u30ab\u30a6\u30f3\u30c8 @DONTSTOPMOVIE \u3082\u958b\u59cb\u3001\u3082\u3057\u826f\u304b\u3063\u305f\u3089\u30d5\u30a9\u30ed\u30fc\u3057\u3066\u304f\u3060\u3055\u3044\uff01\u50d5\u3082\u542b\u3081\u6620\u753b\u88fd\u4f5c\u95a2\u4fc2\u8005\u304c\u6c17\u9577\u306b\u3064\u3076\u3084\u304d\u307e\u3059","id":41189970613903360,"from_user_id":61221002,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"147393812","profile_image_url":"http://a1.twimg.com/profile_images/1114001122/hana_10_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:07 +0000","from_user":"tubasa_uki","id_str":"41189965924667392","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\uff10\uff10\uff17\u3082\u3073\u3063\u304f\u308a\u3000\u5927\u56fd\u306e\u5927\u7d71\u9818\u9078\u304b\u3089\u3000\u5cf6\u56fd\u306e\u5730\u65b9\u9078\u306e\u9078\u6319\u307e\u3067\u306b\u3082\u3000\u6697\u8e8d\u3057\u3066\u3044\u308b\uff3e\uff3e\u3000\u3053\u306eTwitter \u30b9\u30ad\u30e3\u30f3\u30c0\u30eb\u3084\u60aa\u8cea\u306a\u4e8b\u4ef6\u306b\u3082\u7d61\u3080\u304c\u3000Twitter\u304b\u3089\u767a\u4fe1\u3055\u308c\u305f\u3000\u5e73\u548c\u3078\u306e\u8ca2\u732e\u306f\u3000\u307e\u3055\u306b\u30ce\u30fc\u3079\u30eb\u5e73\u548c\u8cde\u3082\u306e http://bit.ly/esjWDG #dotubo_ss","id":41189965924667392,"from_user_id":147393812,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twittbot.net/&quot; rel=&quot;nofollow&quot;&gt;twittbot.net&lt;/a&gt;"},{"from_user_id_str":"96081746","profile_image_url":"http://a0.twimg.com/profile_images/1244505419/illust832_normal.png","created_at":"Fri, 25 Feb 2011 17:37:07 +0000","from_user":"kazukt","id_str":"41189963131387904","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3046\u308b\u304a\u307c\u7d75\u3001\u4ed6\u306e\u4eba\u306e\u3082\u898b\u3066\u3044\u305f\u3089\u3084\u305f\u3089\u30de\u30f3\u30ac\u306e\u30ad\u30e3\u30e9\u30af\u30bf\u30fc\u3067\u3080\u3061\u3083\u304f\u3061\u3083\u4e0a\u624b\u3044\u4eba\u304c\uff01\u2026\u3068\u3001\u30d7\u30ed\u30d5\u30a3\u30fc\u30eb\u898b\u305f\u3089\u3001\u306a\u3093\u3068\u3054\u672c\u4eba\u304c\u66f8\u3044\u3066\u3044\u3089\u3063\u3057\u3083\u3063\u305f\u3002Twitter\u3063\u3066\u30b9\u30b4\u30a4\u308f\u3002","id":41189963131387904,"from_user_id":96081746,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://janetter.net/&quot; rel=&quot;nofollow&quot;&gt;Janetter&lt;/a&gt;"},{"from_user_id_str":"86306230","profile_image_url":"http://a1.twimg.com/profile_images/593004766/j2j_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:03 +0000","from_user":"excite_j2j","id_str":"41189949927596032","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u79c1\u306f\u3001\u65e9\u7a32\u7530\u5927\u5b66\u30aa\u30fc\u30d7\u30f3\u30ab\u30ec\u30c3\u30b8\u306e\u5b66\u751f\u306e\u8003\u3048\u3066\u3044\u308b\u3001\u5352\u696d\u751fSoudai /\u65e9\u7a32\u7530\u30ab\u30fc\u30c9\u4f1a\u54e1/ Soudai\u5b66\u751f\u89aa/\u3001\u8ab0\u304b\u304c\u30aa\u30fc\u30d7\u30f3\u30ab\u30ec\u30c3\u30b8\u65e9\u7a32\u7530\u5927\u5b662000\u5186\u306e\u5165\u5834\u6599\u306e\u30e1\u30f3\u30d0\u30fc\u3092\u7d39\u4ecb\u3057\u3066\u304f\u308c\u305f\u65b9\u304c\u305a\u3063\u3068\u5b89\u4e0a\u304c\u308a\u3060\u3002 (\u5143\u767a\u8a00 http://bit.ly/esxiwT )","id":41189949927596032,"from_user_id":86306230,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://d.hatena.ne.jp/fn7&quot; rel=&quot;nofollow&quot;&gt;\u65e5\u672c\u8a9e\u65e5\u672c\u8a9e\u7ffb\u8a33\u30b8\u30a7\u30cd\u30ec\u30fc\u30bf&lt;/a&gt;"},{"from_user_id_str":"120927161","profile_image_url":"http://a0.twimg.com/profile_images/1230006483/20110131_13022_26776_normal.jpg","created_at":"Fri, 25 Feb 2011 17:37:00 +0000","from_user":"FRISKFOSSILFANG","id_str":"41189933855158272","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @syu_thi_bot: \u3044\u3064\u307e\u3067Twitter\u3084\u3063\u3066\u308b\u3093\u3060\u3044\uff1f\u3044\u3044\u52a0\u6e1b\u73fe\u5b9f\u306b\u623b\u308a\u306a\u3088\u3002\u3053\u3053\u306f\u30ad\u30df\u305f\u3061\u4e09\u6b21\u5143\u306e\u4eba\u9593\u304c\u3044\u308b\u3079\u304d\u5834\u6240\u3058\u3083\u306a\u3044\u3093\u3060\u3088\u3002\u305d\u3093\u306a\u306e\u57fa\u672c\u3060\u308d\uff01\uff01","id":41189933855158272,"from_user_id":120927161,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twittbot.net/&quot; rel=&quot;nofollow&quot;&gt;twittbot.net&lt;/a&gt;"},{"from_user_id_str":"228973151","profile_image_url":"http://a1.twimg.com/sticky/default_profile_images/default_profile_0_normal.png","created_at":"Fri, 25 Feb 2011 17:36:59 +0000","from_user":"daisuke1589","id_str":"41189931887890432","metadata":{"result_type":"recent"},"to_user_id":null,"text":"twitter\u3063\u3066\u52dd\u624b\u306b\u30d5\u30a9\u30ed\u30fc\u3057\u3066\u3082\u3044\u3044\u3093\u3060\u3063\u3051\uff1f","id":41189931887890432,"from_user_id":228973151,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"54314110","profile_image_url":"http://a2.twimg.com/profile_images/1193541240/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:57 +0000","from_user":"Alohazuki","id_str":"41189922668953600","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Twitter\u306e\u5e83\u5cf6\u5f01\u3082\u3042\u3063\u305f\u3093\u3060\u306d\u3002","id":41189922668953600,"from_user_id":54314110,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.flight.co.jp/iPhone/TweetMe/&quot; rel=&quot;nofollow&quot;&gt;TweetMe for iPhone&lt;/a&gt;"},{"from_user_id_str":"72594681","profile_image_url":"http://a3.twimg.com/profile_images/1227240916/____normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:56 +0000","from_user":"uri4ichi","id_str":"41189916922744832","metadata":{"result_type":"recent"},"to_user_id":226852303,"text":"@7_fuka Twitter\u304b\u3076\u308c\u306f\u3001\u3059\u3050\u306bD\u306b\u8d70\u308b\u306e\u3067\u3002\u306a\u3093\u3060\u304b\u5fae\u7b11\u307e\u3057\u3044\u306e\u3067\u3059( \u2579\u25e1\u2579)","id":41189916922744832,"from_user_id":72594681,"to_user":"7_fuka","geo":null,"iso_language_code":"ja","to_user_id_str":"226852303","source":"&lt;a href=&quot;http://sites.google.com/site/yorufukurou/&quot; rel=&quot;nofollow&quot;&gt;YoruFukurou&lt;/a&gt;"},{"from_user_id_str":"168393854","profile_image_url":"http://a3.twimg.com/profile_images/1253554518/GuNp3xVS_normal","created_at":"Fri, 25 Feb 2011 17:36:55 +0000","from_user":"makonyanhime","id_str":"41189913701515264","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6589\u85e4\u3055\u3093\u3082\u30c0\u30e1\u3060...\u4eca\u591c\u306fTwitter\u5909\u3060\u306a\u3041(;_;)","id":41189913701515264,"from_user_id":168393854,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://mobile.twitter.com&quot; rel=&quot;nofollow&quot;&gt;Twitter for Android&lt;/a&gt;"},{"from_user_id_str":"122636787","profile_image_url":"http://a2.twimg.com/profile_images/1189607563/DSC01987_normal.JPG","created_at":"Fri, 25 Feb 2011 17:36:54 +0000","from_user":"enpy1217","id_str":"41189908500594688","metadata":{"result_type":"recent"},"to_user_id":null,"text":"twitter\u4e45\u3057\u3076\u308a\u306b\u958b\u3044\u305f\u3002\u3068\u3066\u3082\u591a\u5fd9\u3060\u3063\u305f\u3002\u75b2\u308c\u305f\u3002\u304a\u98a8\u5442\u306b\u3082\u5165\u308c\u306a\u304b\u3063\u305f\u3002\u30ad\u30bf\u30cd\u2026","id":41189908500594688,"from_user_id":122636787,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.flight.co.jp/iPhone/TweetMe/&quot; rel=&quot;nofollow&quot;&gt;TweetMe for iPhone&lt;/a&gt;"},{"from_user_id_str":"81663694","profile_image_url":"http://a3.twimg.com/profile_images/1177576126/__normal.png","created_at":"Fri, 25 Feb 2011 17:36:51 +0000","from_user":"progmiya","id_str":"41189895494049792","metadata":{"result_type":"recent"},"to_user_id":94050844,"text":"@hirasai_skyhigh \u6674\u308c\u541b\u3002\u30cd\u30bf\u30d0\u30ec\u306f\u898b\u305f\u304f\u306a\u3044\u3051\u3069\u30012ch\u3082twitter\u3082\u3084\u308a\u305f\u3044\u306e\u304c\u4eba\u3068\u8a00\u3046\u3082\u306e\u3088","id":41189895494049792,"from_user_id":81663694,"to_user":"hirasai_skyhigh","geo":null,"iso_language_code":"ja","to_user_id_str":"94050844","source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"159237469","profile_image_url":"http://a3.twimg.com/profile_images/1140433484/______2_normal.png","created_at":"Fri, 25 Feb 2011 17:36:50 +0000","from_user":"hikari_juku","id_str":"41189892096532480","metadata":{"result_type":"recent"},"to_user_id":135634241,"text":"@sssukimasuky \n\u4f55\u304b\u3042\u3063\u305f\u98a8\u3067\u3059\u306d\uff08\u7b11\uff09\u3000\u78ba\u304b\u306bTwitter\u306f\u6c17\u8efd\u3067\u3059\u3057\u306d\u3002\u30e1\u30fc\u30eb\u306b\u306a\u308b\u3068\u30d5\u30c3\u30c8\u30ef\u30fc\u30af\u304c\u91cd\u304f\u306a\u308b\u5834\u5408\u3082\u3042\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u306d\u3002\u305d\u3046\u8003\u3048\u308b\u3068\u3059\u3054\u3044\u6642\u4ee3\u3060\u3002","id":41189892096532480,"from_user_id":159237469,"to_user":"sssukimasuky","geo":null,"iso_language_code":"ja","to_user_id_str":"135634241","source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"141915990","profile_image_url":"http://a0.twimg.com/profile_images/1248969898/icon679566266564378764images_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:48 +0000","from_user":"adashino_","id_str":"41189886878949376","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @fuefukioyasumi: \u3082\u3046\u3044\u3044\u3002\u300c\u671d\u751f\u300d\u306a\u3093\u304b\u3044\u3044\u3002BBC\u3082CNN\u3082\u82f1\u8a9e\u653e\u9001\u3060\u3002\u307f\u3093\u306a\u3001\u30c6\u30ec\u30d3\u3092\u3076\u3061\u3063\u3068\u5207\u3063\u3066Twitter\u3092\u898b\u3088\u3046\u3002\u3053\u3053\u306b\u300c\u751f\u304d\u305f\u60c5\u5831\u300d\u304c\u6d41\u308c\u3066\u3044\u308b\u3002\u300c\u751f\u304d\u305f\u53eb\u3073\u300d\u304c\u3042\u308b\u3002\u3053\u3053\u304b\u3089\u3067\u3082\u6b74\u53f2\u306e\u8ee2\u63db\u70b9\u3092\u611f\u3058\u308b\u4e8b\u304c\u3067\u304d\u308b\u306e\u3060\u3002 @gjmorley #libjp","id":41189886878949376,"from_user_id":141915990,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"111308629","profile_image_url":"http://a1.twimg.com/profile_images/1137421845/mmooton_normal.png","created_at":"Fri, 25 Feb 2011 17:36:46 +0000","from_user":"mmooton","id_str":"41189877940748288","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @minponjp: \u3010\u3064\u3076\u3084\u304f\u3060\u3051\u306710000\u5186\u5546\u54c1\u5238GET\u3011&lt;&lt;visa\u30ae\u30d5\u30c8\u30ab\u30fc\u30c910000\u5186\u5206\u3092\u6bce\u6708\u62bd\u9078\u3067\u30d7\u30ec\u30bc\u30f3\u30c8&gt;&gt; \u21d2\u8a73\u3057\u304f\u306f\u4e0b\u306e\uff35\uff32\uff2c\u3088\u308a\u2193\u2193\u2193\u2193\u2193 http://minpon.jp/user_data/twitter_campaign.php","id":41189877940748288,"from_user_id":111308629,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twittbot.net/&quot; rel=&quot;nofollow&quot;&gt;twittbot.net&lt;/a&gt;"},{"from_user_id_str":"140945098","profile_image_url":"http://a0.twimg.com/profile_images/1198948281/b7664c71-87bc-4187-9d46-a61ab8d41b96_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:46 +0000","from_user":"waruimayuko","id_str":"41189877122867200","metadata":{"result_type":"recent"},"to_user_id":113371008,"text":"@toumeisyoujyo \u3042\u3053\u3061\u3083\u3093Twitter\u3084\u3063\u3066\u305f\u306e\u306d\u3002\u307e\u3060\u304a\u5e2d\u3042\u308b\u305d\u3046\u306a\u306e\u3067\u662f\u975e\uff01","id":41189877122867200,"from_user_id":140945098,"to_user":"toumeisyoujyo","geo":null,"iso_language_code":"ja","to_user_id_str":"113371008","source":"&lt;a href=&quot;http://twimi.jp/?r=via&quot; rel=&quot;nofollow&quot;&gt;twimi\u2606new&lt;/a&gt;"},{"from_user_id_str":"167512527","profile_image_url":"http://a1.twimg.com/profile_images/1172286365/newspaper_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:45 +0000","from_user":"KoranKaget","id_str":"41189871775252480","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://bit.ly/93Eeud RT @motocentrism \u30d6\u30ed\u30b0\u8a18\u4e8b\u66f8\u304d\u307e\u3057\u305f\u30fc\uff1a MotoGP\u3000\u30d6\u30c3\u30af\u30e1\u30fc\u30ab\u30fc\u306b\u898b\u308b\u5404\u30e9\u30a4\u30c0\u30fc\u306e\u4e0b\u99ac\u8a55 - http://goo.gl/xVe6... http://bit.ly/hDYxyx @motogpudpate","id":41189871775252480,"from_user_id":167512527,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"160251772","profile_image_url":"http://a3.twimg.com/profile_images/1150692471/_____normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:45 +0000","from_user":"keikochaki","id_str":"41189870781075456","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u300c\u305a\u3063\u3068twitter\u3084\u3063\u3066\u308b\u3088\u306d\u300d\u3068\u6012\u3089\u308c\u3066\u3057\u307e\u3063\u305f(\u82e6\u7b11)","id":41189870781075456,"from_user_id":160251772,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twtr.jp&quot; rel=&quot;nofollow&quot;&gt;Keitai Web&lt;/a&gt;"},{"from_user_id_str":"211565766","profile_image_url":"http://a2.twimg.com/sticky/default_profile_images/default_profile_5_normal.png","created_at":"Fri, 25 Feb 2011 17:36:42 +0000","from_user":"sayap1yo","id_str":"41189858236043264","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u304a\u98df\u4e8b\u4f1a\u884c\u304d\u305f\u304b\u3063\u305f\u3051\u3069\n\u53cb\u9054\u3068\u904a\u3093\u3067\u307e\u3093\u305f\ue056\ue326\n\nTwitter\u898b\u3066\u307e\u3057\u305f\u3051\u3069\n\u3064\u3076\u3084\u304f\u30bf\u30a4\u30df\u30f3\u30b0\n\u5931\u3063\u3066\u305f\u3060\u3051\u3067\u3059( \u00b4 \u25bd ` )\uff89\u7b11","id":41189858236043264,"from_user_id":211565766,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.nibirutech.com&quot; rel=&quot;nofollow&quot;&gt;TwitBird&lt;/a&gt;"},{"from_user_id_str":"19603191","profile_image_url":"http://a1.twimg.com/profile_images/1254077264/116_normal.gif","created_at":"Fri, 25 Feb 2011 17:36:40 +0000","from_user":"Purple_Flash","id_str":"41189851873157120","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @syu_thi_bot: \u3044\u3064\u307e\u3067Twitter\u3084\u3063\u3066\u308b\u3093\u3060\u3044\uff1f\u3044\u3044\u52a0\u6e1b\u73fe\u5b9f\u306b\u623b\u308a\u306a\u3088\u3002\u3053\u3053\u306f\u30ad\u30df\u305f\u3061\u4e09\u6b21\u5143\u306e\u4eba\u9593\u304c\u3044\u308b\u3079\u304d\u5834\u6240\u3058\u3083\u306a\u3044\u3093\u3060\u3088\u3002\u305d\u3093\u306a\u306e\u57fa\u672c\u3060\u308d\uff01\uff01","id":41189851873157120,"from_user_id":19603191,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twittbot.net/&quot; rel=&quot;nofollow&quot;&gt;twittbot.net&lt;/a&gt;"},{"from_user_id_str":"215930291","profile_image_url":"http://a0.twimg.com/profile_images/1247906106/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:30 +0000","from_user":"minori_millie","id_str":"41189810055938048","metadata":{"result_type":"recent"},"to_user_id":212972774,"text":"@c_c_chika \u7b11\u3063\u3066\u305d\u3046\u3060\u306a\u3063\u3066\u601d\u3063\u3066\u305f(o^^o)\u30c1\u30ab\u306e\u7b11\u3044\u58f0\u304c\u805e\u3053\u3048\u3066\u304d\u305f\u3082\u3093\u3002mail\u306bTwitter\u3067\u5927\u5fd9\u3057\u3084\u3002","id":41189810055938048,"from_user_id":215930291,"to_user":"c_c_chika","geo":null,"iso_language_code":"ja","to_user_id_str":"212972774","source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"197459334","profile_image_url":"http://a3.twimg.com/profile_images/1210698414/shiratorishoko_normal.png","created_at":"Fri, 25 Feb 2011 17:36:30 +0000","from_user":"SyokoShiratori","id_str":"41189809586311168","metadata":{"result_type":"recent"},"to_user_id":null,"text":"+0.90kg \u30c0\u30a4\u30a8\u30c3\u30c8\u5fdc\u63f4\u3057\u3066\u307e\u3059\u3002(*^^*)\u30c0\u30a4\u30a8\u30c3\u30c8\u4f53\u91cd\u5831\u544a\u306e\u3064\u3076\u3084\u304d\u3067\u3059\u3002 http://bit.ly/fhN2fM RT @hayayumi \u3053\u3093\u306a\u6642\u9593\u306b\u3084\u304d\u306b\u304f\u30fc\u266b\u30c0\u30a4\u30a8\u30c3\u30c8\u671f\u9593\u306a\u306e\u306b\u306d....","id":41189809586311168,"from_user_id":197459334,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://mob-mc.com&quot; rel=&quot;nofollow&quot;&gt;\uff08\u4eee\u79f0\uff09\u30c4\u30a4\u30af\u30ea\u30c3\u30af twiclick&lt;/a&gt;"},{"from_user_id_str":"12337665","profile_image_url":"http://a0.twimg.com/profile_images/1146194926/pixiv-icon_normal.png","created_at":"Fri, 25 Feb 2011 17:36:27 +0000","from_user":"t_a_k_i","id_str":"41189797364121600","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Google\u30ea\u30fc\u30c0\u30fc\u3067\u30b5\u30a4\u30c8\u306e\u66f4\u65b0\u30c1\u30a7\u30c3\u30af\u3059\u308b\u3088\u308a\u3001Twitter\u30a2\u30ab\u30a6\u30f3\u30c8\u3092\u30d5\u30a9\u30ed\u30fc\u3057\u3066\u66f4\u65b0\u3092\u77e5\u308b\u307b\u3046\u304c\u4fbf\u5229\u3060\u306a\u3053\u308c","id":41189797364121600,"from_user_id":12337665,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sites.google.com/site/yorufukurou/&quot; rel=&quot;nofollow&quot;&gt;YoruFukurou&lt;/a&gt;"},{"from_user_id_str":"104862453","profile_image_url":"http://a3.twimg.com/profile_images/1248609864/Image014_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:25 +0000","from_user":"yuz_ume","id_str":"41189787943714816","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @fuefukioyasumi: \u3082\u3046\u3044\u3044\u3002\u300c\u671d\u751f\u300d\u306a\u3093\u304b\u3044\u3044\u3002BBC\u3082CNN\u3082\u82f1\u8a9e\u653e\u9001\u3060\u3002\u307f\u3093\u306a\u3001\u30c6\u30ec\u30d3\u3092\u3076\u3061\u3063\u3068\u5207\u3063\u3066Twitter\u3092\u898b\u3088\u3046\u3002\u3053\u3053\u306b\u300c\u751f\u304d\u305f\u60c5\u5831\u300d\u304c\u6d41\u308c\u3066\u3044\u308b\u3002\u300c\u751f\u304d\u305f\u53eb\u3073\u300d\u304c\u3042\u308b\u3002\u3053\u3053\u304b\u3089\u3067\u3082\u6b74\u53f2\u306e\u8ee2\u63db\u70b9\u3092\u611f\u3058\u308b\u4e8b\u304c\u3067\u304d\u308b\u306e\u3060\u3002 @gjmorley #libjp","id":41189787943714816,"from_user_id":104862453,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"213846746","profile_image_url":"http://a1.twimg.com/profile_images/1242263342/haruhi1_normal.png","created_at":"Fri, 25 Feb 2011 17:36:23 +0000","from_user":"sloth888jpgame","id_str":"41189778409922560","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u643a\u5e2f\u96fb\u8a71\u7528\u306eTwitter\u3092\u5229\u7528\u3057\u305f\u30b2\u30fc\u30e0\u3092\u77e5\u3063\u3066\u3044\u308b\u4eba\u306f\u3001\u7d39\u4ecb\u3057\u3066\u304f\u3060\u3055\u3044\u3002 #TwitterGame","id":41189778409922560,"from_user_id":213846746,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twittbot.net/&quot; rel=&quot;nofollow&quot;&gt;twittbot.net&lt;/a&gt;"},{"from_user_id_str":"17484724","profile_image_url":"http://a2.twimg.com/profile_images/1138677235/iconue_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:22 +0000","from_user":"tsutcho","id_str":"41189777831231490","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30a2\u30aa\u30b7\u30de\u3055\u3093twitter\u306b\u7acb\u3064\u30fb\u30fb\u30fb\u3060\u3068\u30fb\u30fb\u30fb\uff1f\uff12\u756a\u76ee\u306e\u30d5\u30a9\u30ed\u30ef\u30fc\u306e\u5ea7\u3092\u3044\u305f\u3060\u3044\u3066\u304a\u3053\u3046","id":41189777831231490,"from_user_id":17484724,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"220041064","profile_image_url":"http://a1.twimg.com/sticky/default_profile_images/default_profile_0_normal.png","created_at":"Fri, 25 Feb 2011 17:36:21 +0000","from_user":"sloth888jp_bot5","id_str":"41189772521254914","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6642\u3005\u3001TwiAll\uff08\u30c4\u30a4\u30aa\u30fc\u30eb\uff09\u3067Twitter\u306e\u81ea\u52d5\u30d5\u30a9\u30ed\u30fc\u30fb\u30d5\u30a9\u30ed\u30fc\u8fd4\u3057\u3092\u3057\u3066\u3044\u307e\u3059\u3002","id":41189772521254914,"from_user_id":220041064,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twittbot.net/&quot; rel=&quot;nofollow&quot;&gt;twittbot.net&lt;/a&gt;"},{"from_user_id_str":"177693537","profile_image_url":"http://a0.twimg.com/profile_images/1240130924/20110207213206_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:21 +0000","from_user":"Na_Okinawa","id_str":"41189769912397824","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @ebizo66: \u30ea\u30d3\u30a2\u30fb\u30c8\u30ea\u30dd\u30ea\u306eTw\uff1a\u6551\u6025\u8eca\u304c\u6765\u305f\u304c\u3001\u8ca0\u50b7\u8005\u3092\u8eca\u5185\u3067\u6bba\u5bb3\u3057\u3066\u3044\u305f\u3001\u3068\u3002\uff08\u6ec5\u8336\u82e6\u8336\u3060\uff01\uff09http://ow.ly/43pQ2 #libjp","id":41189769912397824,"from_user_id":177693537,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"147006592","profile_image_url":"http://a2.twimg.com/profile_images/1251306448/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:19 +0000","from_user":"takasu_rika","id_str":"41189763532865536","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @kihirokiro: Twitter\u3067\u30cd\u30bf\u30d0\u30ec\u4e91\u3005\u3044\u3063\u3066\u3082\u5143\u3005Twitter\u3063\u3066\u300c\u500b\u4eba\u306e\u72ec\u308a\u8a00\u300d\u3060\u308d","id":41189763532865536,"from_user_id":147006592,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"100239985","profile_image_url":"http://a1.twimg.com/profile_images/733461294/CIMG0207_normal.JPG","created_at":"Fri, 25 Feb 2011 17:36:19 +0000","from_user":"strangebarjun","id_str":"41189762182152192","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Twitter\u3092\u59cb\u3081\u3066\u3001\u305d\u308d\u305d\u308d\u4e00\u5e74\u306b\u306a\u308a\u307e\u3059\u3002\u632f\u308a\u8fd4\u308b\u3068\u3001\u307c\u304f\u306e\u4eba\u9593\u6027\u3092\u305d\u3063\u304f\u308a\u53cd\u6620\u3059\u308b\u304c\u5982\u304f\u3001\u534a\u7aef\u3067\u3059\u306d\u3002\u60c5\u5831\u53ce\u96c6\u30c4\u30fc\u30eb\u3001\u60c5\u5831\u767a\u4fe1\u30c4\u30fc\u30eb\u3001\u30b3\u30df\u30e5\u30cb\u30b1\u30fc\u30b7\u30e7\u30f3\u30c4\u30fc\u30eb\u3001\u3069\u308c\u3082\u6a5f\u80fd\u3057\u5207\u308c\u3066\u3044\u306a\u3044\u306a\u3042\u3001\u3068\u3002\u305d\u3057\u3066\u3042\u308b\u306e\u306f\u300c\u3069\u3053\u304b\u3089\u3082\u76f8\u624b\u306b\u3055\u308c\u3066\u3044\u306a\u3044\u300d\u3068\u3044\u3046\u3001\u65e2\u77e5\u306e\u73fe\u5b9f\u3067\u3059\u3002","id":41189762182152192,"from_user_id":100239985,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"126390384","profile_image_url":"http://a2.twimg.com/profile_images/1176065038/nemunemu_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:18 +0000","from_user":"gesukapper","id_str":"41189757476286464","metadata":{"result_type":"recent"},"to_user_id":80935865,"text":"@tatsugorou \u306a\u3093\u304b\u4e16\u306e\u4e2d\u306b\u306f\u611a\u75f4\u3082\u4e0b\u30cd\u30bf\u3082\u8a00\u3044\u653e\u984c\u306etwitter\u3068\u3044\u3046\u3082\u306e\u304c\u3042\u308b\u305d\u3046\u3067\u3059\u3002","id":41189757476286464,"from_user_id":126390384,"to_user":"tatsugorou","geo":null,"iso_language_code":"ja","to_user_id_str":"80935865","source":"&lt;a href=&quot;http://janetter.net/&quot; rel=&quot;nofollow&quot;&gt;Janetter&lt;/a&gt;"},{"from_user_id_str":"196059029","profile_image_url":"http://a1.twimg.com/profile_images/1208831726/ruka2_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:17 +0000","from_user":"luka_m_bot","id_str":"41189756666777600","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u308f\u305f\u3057\u3082twitter\u306f\u3058\u3081\u307e\u3057\u305f","id":41189756666777600,"from_user_id":196059029,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www24.atpages.jp/aoi2/bot.php&quot; rel=&quot;nofollow&quot;&gt;\u5de1\u308b\u97f3&lt;/a&gt;"},{"from_user_id_str":"88135613","profile_image_url":"http://a3.twimg.com/profile_images/1088552877/P9280150_normal.JPG","created_at":"Fri, 25 Feb 2011 17:36:14 +0000","from_user":"Roko38","id_str":"41189740321587200","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\uff46\uff42\u306b\u30ed\u30b0\u30a4\u30f3\u3059\u308b\u6a5f\u4f1a\u304c\u65e5\u306b\u65e5\u306b\u5897\u3048\u3066\u304d\u305f\uff3e\uff3e \u6163\u308c\u3066\u304f\u308b\u3068\u3042\u3063\u3061\u306e\u304c\u9762\u767d\u3044\uff06\u4f7f\u3044\u52dd\u624b\u304c\u3044\u3044\u3088\u3046\u306a\u6c17\u304c\u3059\u308b\u3002\u8907\u5408\u7684\u306b\u8272\u3005\u51fa\u6765\u307e\u3059\u3088\u306d\u2026\u3063\u3066\u3001\u601d\u3063\u305f\u3053\u3068\u3092\u545f\u304f\u306e\u306fTwitter\u3060\u3063\u305f\u308a\u3067\u3059\u304c\u2026(^_^; \u305d\u3057\u3066\u81ea\u5206\u306e\u5834\u5408\u306f\u30c4\u30a4\u3068\u9023\u52d5\u3057\u3065\u3089\u3044\u72b6\u6cc1\u3060\u3063\u305f\u308a\u3067\u2026\u3002","id":41189740321587200,"from_user_id":88135613,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"110825211","profile_image_url":"http://a2.twimg.com/profile_images/1108977866/o_t_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:12 +0000","from_user":"kou_nanjyo","id_str":"41189731941363712","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @x68k: \u57fa\u672c\u7684\u306bTwitter\u4e0a\u3067\u306f&quot;\u597d\u304d\u306b\u3084\u308c\u3070\u3044\u3044&quot;\u3060\u3051\u3069\u3001\u540d\u524d\u3082\u30a2\u30a4\u30b3\u30f3\u3082\u30a2\u30f3\u30bf\u3058\u3083\u306a\u3044\u305f\u304f\u3055\u3093\u306e\u4eba\u305f\u3061\u306e\u9b42\u304c\u3053\u3082\u3063\u305f\u3082\u306e\u306a\u306e\u3060\u304b\u3089\u3001\u305d\u308c\u3060\u3051\u306f&quot;\u80cc\u8ca0\u3048&quot;\u3068\u601d\u3046\uff1e\u30ad\u30e3\u30e9\u30af\u30bf\u30fc\u30a2\u30ab\u30a6\u30f3\u30c8","id":41189731941363712,"from_user_id":110825211,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://tweetlogix.com&quot; rel=&quot;nofollow&quot;&gt;Tweetlogix&lt;/a&gt;"},{"from_user_id_str":"2095960","profile_image_url":"http://a2.twimg.com/profile_images/1248999075/majiresu2_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:10 +0000","from_user":"guldeen","id_str":"41189726945947648","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3042\u308a\u3083\u307e\u3041\u3002\u25bchttp://bit.ly/et4vVa \uff3b\u89d2\u5ddd\u66f8\u5e97\uff3d\u300c\u30b6\u30fb\u30b9\u30cb\u30fc\u30ab\u30fc\u300d\u4f11\u520a\u3078\u3000\u300c\u6dbc\u5bae\u30cf\u30eb\u30d2\u300d\u751f\u3093\u3060\u30e9\u30ce\u30d9\u96d1\u8a8c18\u5e74\u3067\u5e55 via http://twitter.com/lkj777","id":41189726945947648,"from_user_id":2095960,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"164121549","profile_image_url":"http://a1.twimg.com/profile_images/1251758789/m_108-07ae3_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:09 +0000","from_user":"hachi_touhi","id_str":"41189719299727360","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30cd\u30bf\u30d0\u30ec\u6c17\u306b\u3057\u3066\u305f\u3089Twitter\u3084\u3063\u3066\u3089\u308c\u306a\u3044ww","id":41189719299727360,"from_user_id":164121549,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twicca.r246.jp/&quot; rel=&quot;nofollow&quot;&gt;twicca&lt;/a&gt;"},{"from_user_id_str":"194494659","profile_image_url":"http://a3.twimg.com/profile_images/1249717822/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:36:08 +0000","from_user":"tomonattomo","id_str":"41189715415801856","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3046\u308f\u3001\u660e\u65e5\u671d\u304b\u3089\u30d0\u30a4\u30c8\u3084\u306e\u306b\u306a\u3093\u3060\u3053\u306e\u306d\u3075\u304b\u3057\u3002\u3042\u3001\u591c\u66f4\u304b\u3057\u3002\u30d1\u30d4\u30eb\u30b9\u3068BUMP\u3001\u3048\u307f\u3068Twitter\u306eDM\u3057\u3059\u304e\u305f\u306a\u2026","id":41189715415801856,"from_user_id":194494659,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://mixi.jp/promotion.pl?id=voice_twitter&quot; rel=&quot;nofollow&quot;&gt; mixi \u30dc\u30a4\u30b9 &lt;/a&gt;"},{"from_user_id_str":"97224364","profile_image_url":"http://a3.twimg.com/profile_images/1150074355/fb8bcca60d340862c053a756377bfae8_normal.jpeg","created_at":"Fri, 25 Feb 2011 17:36:06 +0000","from_user":"xxxheat","id_str":"41189709174677504","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Twitter\u5b8c\u5168\u306b\u30d0\u30b0\u3063\u3066\u308borz","id":41189709174677504,"from_user_id":97224364,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"}],"max_id":41190705623732224,"since_id":38643906774044672,"refresh_url":"?since_id=41190705623732224&q=twitter","next_page":"?page=2&max_id=41190705623732224&rpp=100&lang=ja&q=twitter","results_per_page":100,"page":1,"completed_in":0.093336,"warning":"adjusted since_id to 38643906774044672 (), requested since_id was older than allowed -- since_id removed for pagination.","since_id_str":"38643906774044672","max_id_str":"41190705623732224","query":"twitter"}
benchmarks/json-data/jp50.jsonnew file+1
@@ -0,0 +1 @@
1+{"results":[{"from_user_id_str":"2458313","profile_image_url":"http://a2.twimg.com/profile_images/1203653060/fure091226_normal.png","created_at":"Thu, 27 Jan 2011 20:30:04 +0000","from_user":"19princess","id_str":"30724239224995840","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6d77\u6674\u300c\u672c\u65e5\u306e\u6771\u4eac\u306e\u304a\u5929\u6c17\u306f\u6674\u6642\u3005\u66c7\u3067\u3057\u3087\u3046\u3002\u6700\u9ad8\u6c17\u6e29\u306f8\u5ea6\u3001\u6700\u4f4e\u6c17\u6e29\u306f1\u5ea6\u3067\u3059\u3002\u3042\u306a\u305f\u306e\u4eca\u65e5\u306e\u4eba\u751f\u306b\u3068\u3073\u3063\u304d\u308a\u306e\u304a\u5929\u6c17\u3092\u2665\u300d","id":30724239224995840,"from_user_id":2458313,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://babyprincess.sakura.ne.jp/about/&quot; rel=&quot;nofollow&quot;&gt;\u5929\u4f7f\u5bb6\u306e\u88cf\u5c71&lt;/a&gt;"},{"from_user_id_str":"66578965","profile_image_url":"http://a0.twimg.com/profile_images/1183763267/fossetta_normal.png","created_at":"Thu, 27 Jan 2011 20:00:04 +0000","from_user":"Fossetta_Tokyo","id_str":"30716689779785729","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u304a\u306f\u3088\u3046\u3054\u3056\u3044\u307e\u3059!!\u6771\u4eac\u90fd\u3001\u672c\u65e5\u306e\u304a\u5929\u6c17\u306f\u6674\u6642\u3005\u66c7\u3002\u6700\u9ad8\u6c17\u6e298\u5ea6\u3001\u6700\u4f4e\u6c17\u6e291\u5ea6\u3002\u6771\u4eac\u5730\u65b9\u3067\u306f\u3001\u7a7a\u6c17\u306e\u4e7e\u71e5\u3057\u305f\u72b6\u614b\u304c\u7d9a\u3044\u3066\u3044\u307e\u3059\u3002\u706b\u306e\u53d6\u308a\u6271\u3044\u306b\u6ce8\u610f\u3057\u3066\u4e0b\u3055\u3044\u3002\u4f0a\u8c46\u8af8\u5cf6\u3068\u5c0f\u7b20\u539f\u8af8\u5cf6\u306b\u306f\u3001\u5f37\u98a8\u3001\u6ce2\u6d6a\u3001\u4e7e\u71e5\u3001\u971c\u306e\u6ce8\u610f\u5831\u3092\u767a\u8868\u4e2d\u3067\u3059\u3002","id":30716689779785729,"from_user_id":66578965,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://bit.ly/Fossetta&quot; rel=&quot;nofollow&quot;&gt;\u30d5\u30a9\u30bb\u30c3\u30bf ver.3.1.1&lt;/a&gt;"},{"from_user_id_str":"104041146","profile_image_url":"http://a2.twimg.com/profile_images/863965118/001jwatokyo_normal.jpg","created_at":"Thu, 27 Jan 2011 19:44:33 +0000","from_user":"jwa_tokyo","id_str":"30712787537756160","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6c17\u8c61\u5e81\u304b\u3089\u6771\u4eac\u306e\u5929\u6c17\u4e88\u5831\u304c\u767a\u8868\u3055\u308c\u307e\u3057\u305f\u3000\u305d\u306e\u5929\u6c17\u4e88\u5831\u3092\u3053\u3053\u3067\u3064\u3076\u3084\u3053\u3046\u304b\u306a\u3041\uff5e\uff1f\u3000\u8003\u3048\u4e2d\u3000\u307e\u3066\u6b21\u53f7\uff08\u7b11","id":30712787537756160,"from_user_id":104041146,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.docodemo.jp/twil/&quot; rel=&quot;nofollow&quot;&gt;Twil2 (Tweet Anytime, Anywhere by Mail)&lt;/a&gt;"},{"from_user_id_str":"144500192","profile_image_url":"http://a3.twimg.com/a/1294874399/images/default_profile_3_normal.png","created_at":"Thu, 27 Jan 2011 18:59:33 +0000","from_user":"kyo4to4","id_str":"30701462774358016","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u90fd \u516b\u4e08\u5cf6 - \u4eca\u65e5\u306e\u5929\u6c17\u306f\u30fb\u30fb\u30fb\u66c7\u306e\u3061\u6674\u3067\u3059\u306e\uff01","id":30701462774358016,"from_user_id":144500192,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/kyo4to4&quot; rel=&quot;nofollow&quot;&gt;lost-sheep-bot&lt;/a&gt;"},{"from_user_id_str":"165724582","profile_image_url":"http://a0.twimg.com/profile_images/1222842347/163087_1256281064506_1753997852_484926_2761052_n_normal.jpg","created_at":"Thu, 27 Jan 2011 17:39:06 +0000","from_user":"Rifqi_19931020","id_str":"30681213748387840","metadata":{"result_type":"recent"},"to_user_id":113796067,"text":"@CHLionRagbaby \u30b1\u30f3\u3061\u3083\u3093\u3001\u671d\u4eca\u307e\u3067\u306e\u81ea\u5206\u306e\u30db\u30fc\u30e0\u30a8\u30ea\u30a2\u304b\u3089\u307e\u3060\u975e\u5e38\u306b\u5bd2\u3044\u3068\u96e8\u304c\u964d\u3063\u3066\u3044\u305f..\u3069\u306e\u3088\u3046\u306b\u73fe\u5728\u306e\u6771\u4eac\u306e\u5929\u6c17\uff1f","id":30681213748387840,"from_user_id":165724582,"to_user":"CHLionRagbaby","geo":null,"iso_language_code":"ja","to_user_id_str":"113796067","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"120911929","profile_image_url":"http://a0.twimg.com/profile_images/772435076/20100312___capture2_normal.png","created_at":"Thu, 27 Jan 2011 17:28:30 +0000","from_user":"Cirno_fan","id_str":"30678546020040705","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4eca\u65e5\u306e\u6771\u4eac\u306e\u5929\u6c17\u306f\u3001\u66c7\u6642\u3005\u6674\u3067\u6700\u9ad8\u6c17\u6e29\u306f8\u2103\uff01 \u6700\u4f4e\u6c17\u6e29\u306f2\u2103\u3060\u3063\u305f\u3088\uff01 RT @mimi22999 \uff08\uff65\u2200\uff65\uff09\uff4c\u3001\u865a\u5f31\u306a\u8005\u306b\u3068\u3063\u3066\u3001\u6717\u3089\u304b\u306a\u9854\u306f\u4e0a\u5929\u6c17\u3068\u540c\u3058\u304f\u3089\u3044\u3046\u308c\u3057\u3044\u3082\u306e\u3060\u3002\u30d5\u30e9\u30f3\u30af\u30ea\u30f3 #tenki #bot","id":30678546020040705,"from_user_id":120911929,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://blog.livedoor.jp/fairycirno/archives/34686.html&quot; rel=&quot;nofollow&quot;&gt;\u5e7b\u60f3\u90f7 \u9727\u306e\u6e56&lt;/a&gt;"},{"from_user_id_str":"65976527","profile_image_url":"http://a0.twimg.com/profile_images/452810990/little_italies_____normal.jpg","created_at":"Thu, 27 Jan 2011 17:00:03 +0000","from_user":"heta_weather01","id_str":"30671388754845696","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3010\u30d8\u30bf\u5929\u3011Tere hommikust.\u30a8\u30b9\u30c8\u30cb\u30a2\u3067\u3059\u3002\u4eca\u65e5\u306e\u6771\u4eac\u306e\u5929\u6c17\u306f\u6674\u6642\u3005\u66c7\u3067\u660e\u65e5\u306f\u66c7\u308a\u3067\u3059\u3002\u3061\u306a\u307f\u306b\u50d5\u306e\u3068\u3053\u308d\u3067\u306f\u66c7\u308a\u3067\u6c17\u6e29-7\u2103\u3067\u3059\u3002\u3061\u306a\u307f\u306b\u30b9\u30ab\u30a4\u30d7\u306e\u958b\u767a\u672c\u90e8\u306f\u50d5\u306e\u5bb6\u306b\u3042\u308b\u3093\u3067\u3059\u3002","id":30671388754845696,"from_user_id":65976527,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www15.atpages.jp/~kageyanma/&quot; rel=&quot;nofollow&quot;&gt;\u5730\u7403\u306e\u4e2d&lt;/a&gt;"},{"from_user_id_str":"7278433","profile_image_url":"http://a3.twimg.com/profile_images/1218965303/michael-1_normal.png","created_at":"Thu, 27 Jan 2011 16:50:16 +0000","from_user":"shimohiko","id_str":"30668926035689472","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3042\u308a\u3002\n\u3010\u7f8e\u4eba\u5929\u6c17/\u6771\u4eac\u3011\u7f8e\u4eba\u5929\u6c17\u30ad\u30e3\u30b9\u30bf\u30fc\u306e&quot;\u3055\u3042\u3084\u3093\u3055\u3093&quot;\u306b\u3088\u308b\u3068\u300c1/29(\u571f)\u306f\u304f\u3082\u308a\u3067\u3001\u964d\u6c34\u78ba\u738740%\u3001\u6700\u9ad8\u6c17\u6e29\u306f6\u2103\u3067\u6700\u4f4e\u6c17\u6e29\u306f1\u2103\u3067\u3059\u300d\u7f8e\u4eba\u5929\u6c17\u21d2http://bit.ly/djB8th http://twitpic.com/3twnl0 #bt_tenki","id":30668926035689472,"from_user_id":7278433,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://bijintenki.jp&quot; rel=&quot;nofollow&quot;&gt;bijintenki.jp&lt;/a&gt;"},{"from_user_id_str":"61770","profile_image_url":"http://a3.twimg.com/profile_images/1206955079/tw172a_normal.png","created_at":"Thu, 27 Jan 2011 16:40:52 +0000","from_user":"rsky","id_str":"30666561853333504","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3075\u3068\u591c\u7a7a\u3092\u898b\u4e0a\u3052\u3066\u30aa\u30ea\u30aa\u30f3\u304c\u898b\u3048\u306a\u304f\u3066\u300c\u6771\u4eac\u306b\u306f\u7a7a\u304c\u306a\u3044\u300d\u3068\u667a\u6075\u5b50\u306e\u3088\u3046\u306a\u3053\u3068\u3092\u601d\u3063\u305f\u308f\u3051\u3060\u304c\u3001\u305f\u3076\u3093\u534a\u5206\u3050\u3089\u3044\u306f\u5929\u6c17\u306e\u305b\u3044\u3067\u3059","id":30666561853333504,"from_user_id":61770,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"103259265","profile_image_url":"http://a0.twimg.com/profile_images/767857973/anime_icon_normal.gif","created_at":"Thu, 27 Jan 2011 16:37:42 +0000","from_user":"liveshowonly","id_str":"30665765698928640","metadata":{"result_type":"recent"},"to_user_id":null,"text":"iPhone\u5929\u6c17\u3002\u6771\u4eac4\u2103\u3063\u3066\u7d50\u69cb\u5bd2\u304f\u306a\u3044\u3058\u3083\u3093\u3002\uff08\u78ba\u304b\u306b\u3082\u306e\u51c4\u304f\u5bd2\u3044\u8a33\u3067\u306f\u7121\u3044\uff09\u3002\u798f\u5ca1\u5e02\u306f1\u2103\u3060\u3002\u52dd\u3061\u3060\u305c\u3002Rock'n'roll","id":30665765698928640,"from_user_id":103259265,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"165242761","profile_image_url":"http://a1.twimg.com/profile_images/1147334744/SN3E00600001_normal.jpg","created_at":"Thu, 27 Jan 2011 16:37:35 +0000","from_user":"deuxavril0502","id_str":"30665736556912640","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6b8b\u5ff5\u3001\u79c1\u306f\u6c96\u7e04\u3067\u3059(&gt;_&lt;)\u3067\u3082\u304a\u5929\u6c17\u826f\u3055\u305d\u3046\u3067\u826f\u304b\u3063\u305f\u306d\u3002\u3053\u3061\u3089\u306f\u96e8\u3088\uff5eRT @rinandy2010: \u305d\u3046\u3067\u3059\u3063\u266a\u51fa\u5f35\u3067(^^)\u304a\u306d\u3048\u3055\u307e\u306f\u6771\u4eac\u3067\u3059\u304b\uff1f\u3081\u3063\u3061\u3083\u5929\u6c17\u826f\u304f\u3066\u3073\u3063\u304f\u308a\u3067\u3059\u3002\u624b\u888b\u3068\u304b\u5168\u7136\u3044\u3089\u306a\u3044\u3067\u3059\u306d\u30fc RT @deuxavril0502 \u6771\u4eac\u306a\u306e\u30fc\uff1f","id":30665736556912640,"from_user_id":165242761,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"163900288","profile_image_url":"http://a1.twimg.com/profile_images/1210224823/icon12945064955238_normal.jpg","created_at":"Thu, 27 Jan 2011 16:24:37 +0000","from_user":"nyao_yurichan","id_str":"30662472734089216","metadata":{"result_type":"recent"},"to_user_id":100985873,"text":"@ray_ko302 \u767a\u898b\u3042\u308a\u304c\u3068\u3067\u3059\u3045\u3002\u3053\u3061\u3089\u3067\u3082\u3088\u308d\u3057\u304f\u306d\u3002\u6771\u4eac\u306f\u4eca\u65e5\u3082\u4e7e\u71e5\u3067\u5927\u5909\u3088\u3002\u305d\u3063\u3061\u3068\u771f\u9006\u306e\u5929\u6c17\u3060\u306d\u3002\u30a2\u30a4\u30b9\u30d0\u30fc\u30f3\u304d\u3092\u3064\u3051\u3066\u3088\u306d\u3002","id":30662472734089216,"from_user_id":163900288,"to_user":"ray_ko302","geo":null,"iso_language_code":"ja","to_user_id_str":"100985873","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"49227098","profile_image_url":"http://a3.twimg.com/profile_images/965007882/____normal.jpg","created_at":"Thu, 27 Jan 2011 15:52:26 +0000","from_user":"dosannko6","id_str":"30654371016478720","metadata":{"result_type":"recent"},"to_user_id":108570870,"text":"@peke_hajiP \u4ffa\u304c\u6771\u4eac \u6765\u3066\u6700\u521d\u306b\u9a5a\u3044\u305f\u306e\u304c\u3001\u5929\u6c17\u4e88\u5831\u3067\u82b1\u7c89\u60c5\u5831\u304c\u6d41\u308c\u308b\u3053\u3068\u3067\u3001\u6700\u521d\u306b\u8a66\u3057\u305f\u306e\u304c \u30b4\u30ad\u69d8 \u53ec\u559a\u306e\u5100\u5f0f\u3067\u3059\u304a\uff1f","id":30654371016478720,"from_user_id":49227098,"to_user":"peke_hajip","geo":null,"iso_language_code":"ja","to_user_id_str":"108570870","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"71148934","profile_image_url":"http://a0.twimg.com/profile_images/1209223630/image_normal.jpg","created_at":"Thu, 27 Jan 2011 15:46:49 +0000","from_user":"123keiko","id_str":"30652958311981058","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u9727\u5cf6\u306e\u964d\u7070\u306e\u30cb\u30e5\u30fc\u30b9\u3092\u898b\u3066\u601d\u3044\u51fa\u3057\u307e\u3057\u305f\u3002\u4e0a\u4eac\u3057\u305f\u59cb\u3081\u306e\u9803\u3001\u6771\u4eac\u306f1\u5e74\u4e2d\u3001\u7070\u304c\u964d\u3089\u306a\u3044\u304b\u3089\u7a7a\u6c17\u304c\u6f84\u3093\u3067\u3066\u904e\u3054\u3057\u3084\u3059\u3044\u306a\u3041\u3001\u3068\u601d\u3063\u305f\u306a\u3041\u3001\u3063\u3066\u3002\n\u5b9f\u5bb6\u306f\u51ac\u306e\u5b63\u7bc0\u98a8\u3067\u685c\u5cf6\u306e\u7070\u304c\u964d\u308b\u5730\u533a\u3067\u3057\u305f\u3002\u9e7f\u5150\u5cf6\u306e\u5929\u6c17\u4e88\u5831\u3067\u306f\u3001\u6bce\u65e5\u3001\u685c\u5cf6\u4e0a\u7a7a\u306e\u98a8\u5411\u304d\u4e88\u5831\u304c\u3067\u307e\u3059\u3002\u3053\u308c\u304b\u3089\u306f\u9727\u5cf6\u3082\u304b\u306a\uff1f","id":30652958311981058,"from_user_id":71148934,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"91124773","profile_image_url":"http://a3.twimg.com/profile_images/1139308356/prof101007_3-1_normal.jpg","created_at":"Thu, 27 Jan 2011 15:43:35 +0000","from_user":"sanposuruhito","id_str":"30652146277945345","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4eca\u5bb5\u306e\u90fd\u5fc3\u306f\u3001\u8eab\u3082\u5f15\u304d\u7de0\u307e\u308b\u3068\u3044\u3046\u3088\u308a\u306f\u51cd\u3048\u308b\u7a0b\u306e\u51b7\u6c17\u3092\u611f\u3058\u308b\u5bd2\u3044\u591c\u3067\u3059\u3002\u660e\u65e5\u65e5\u4e2d\u306e\u6771\u4eac\u306e\u5929\u6c17\u306f\u3001\u5915\u65b9\u306b\u591a\u5c11\u96f2\u304c\u51fa\u308b\u5834\u6240\u304c\u3042\u308a\u305d\u3046\u306a\u3082\u306e\u306e\u6982\u306d\u6674\u308c\u7a7a\u304c\u5e83\u304c\u308a\u7d9a\u3051\u305d\u3046\u3067\u3059\u3002\u6700\u9ad8\u6c17\u6e29\u306f\u30015-6\u5ea6\u4f4d\u3068\u306a\u308a\u305d\u3046\u3067\u3059\u3002#weather_tokyo","id":30652146277945345,"from_user_id":91124773,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://projects.playwell.jp/go/Saezuri&quot; rel=&quot;nofollow&quot;&gt;Saezuri&lt;/a&gt;"},{"from_user_id_str":"104712480","profile_image_url":"http://a3.twimg.com/profile_images/1204016928/icon5087697006727791368kuro2_normal.jpg","created_at":"Thu, 27 Jan 2011 15:31:51 +0000","from_user":"asongfor_xx","id_str":"30649192296751104","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u7f8e\u4eba\u5929\u6c17\u304b\u3089tweet\u3059\u308b\u3068\u3053\u3093\u306a\u611f\u3058\u306a\u3093\u3060\u306a\u3002 RT asongfor_xx: \u3010\u7f8e\u4eba\u5929\u6c17/\u6771\u4eac\u3011\u7f8e\u4eba\u5929\u6c17\u30ad\u30e3\u30b9\u30bf\u30fc\u306e&quot;\u304b\u306a\u3053\u3055\u3093&quot;\u306b\u3088\u308b\u3068\u300c1/28(\u91d1)\u306f\u6674\u6642\u3005\u304f\u3082\u308a\u3067\u3001\u964d\u6c34\u78ba\u73870%\u3001\u6700\u9ad8\u6c17\u6e29\u306f8\u2103\u3067\u6700\u4f4e\u6c17\u6e29\u306f1\u2103\u3067\u3059\u300d\u7f8e\u4eba\u5929\u6c17\u21d2http://bit.ly/djB8th","id":30649192296751104,"from_user_id":104712480,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b for iPhone&lt;/a&gt;"},{"from_user_id_str":"165965113","profile_image_url":"http://a0.twimg.com/profile_images/1200885316/shogomeguro_normal.jpg","created_at":"Thu, 27 Jan 2011 15:24:35 +0000","from_user":"shogomeguro","id_str":"30647362477105152","metadata":{"result_type":"recent"},"to_user_id":null,"text":"2011.1.26 \u793e\u7a93\u304b\u3089\u3002\u4e0d\u601d\u8b70\u306a\u5929\u6c17\u3067\u3053\u306e\u5f8c\u96ea\u304c\u3061\u3089\u3064\u3044\u305f\u3093\u3060\u3088\u306d\u3002\u6771\u4eac\u306e\u521d\u96ea\u3067\u3057\u305f\u3002 http://instagr.am/p/BO_xn/","id":30647362477105152,"from_user_id":165965113,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://instagr.am&quot; rel=&quot;nofollow&quot;&gt;instagram&lt;/a&gt;"},{"from_user_id_str":"166018520","profile_image_url":"http://a0.twimg.com/profile_images/1207460953/100-40030_normal.jpg","created_at":"Thu, 27 Jan 2011 15:18:17 +0000","from_user":"115nayume","id_str":"30645776254238722","metadata":{"result_type":"recent"},"to_user_id":118384679,"text":"@dancinpea09 \u6771\u4eac\u3001\u660e\u65e5\u3082\u5929\u6c17\u826f\u3044\u307f\u305f\u3044\u3067\u3001\u3088\u304b\u3063\u305f\u3067\u3059\u306d\u30fc\u266a \u30ca\u30a4\u30b9\u30c8\u30ea\u30c3\u30d7\uff01\u304a\u3084\u3059\u307f\u306a\u3055\u3044\u3002 http://twitpic.com/3tvun3","id":30645776254238722,"from_user_id":166018520,"to_user":"dancinpea09","geo":null,"iso_language_code":"ja","to_user_id_str":"118384679","source":"&lt;a href=&quot;http://tweetli.st/&quot; rel=&quot;nofollow&quot;&gt;TweetList!&lt;/a&gt;"},{"from_user_id_str":"202937674","profile_image_url":"http://a1.twimg.com/profile_images/1218797578/______2_normal.jpg","created_at":"Thu, 27 Jan 2011 15:11:48 +0000","from_user":"ryuusisan","id_str":"30644146498699264","metadata":{"result_type":"recent"},"to_user_id":203058384,"text":"@manaasutakshi \u6771\u4eac\u306f\u964d\u3063\u3066\u306a\u3044\u3093\u3067\u3059\u304b\u30fb\u30fb\u30fb\u5929\u6c17\u4e88\u5831\u306b\u3088\u308b\u3068\u660e\u65e5\u3082\u6771\u4eac\u306f\u964d\u3089\u306a\u3044\u305d\u3046\u3067\u3059\u306d\uff01\uff01\u79c1\u306e\u4f4f\u3093\u3067\u3044\u308b\u3068\u3053\u308d\u306f\u5fae\u5999\u306b\u964d\u308a\u305d\u3046\u3067\u51fa\u52e4\u6642\u306b\u964d\u3063\u3066\u305f\u3089\u3061\u3087\u3063\u3068\u5acc\u3060\u306a\u3041\u3000\u306a\u3093\u3066\u601d\u3044\u307e\u3059","id":30644146498699264,"from_user_id":202937674,"to_user":"manaasutakshi","geo":null,"iso_language_code":"ja","to_user_id_str":"203058384","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"3222182","profile_image_url":"http://a0.twimg.com/profile_images/1199090957/ProfilePhoto_normal.png","created_at":"Thu, 27 Jan 2011 15:09:35 +0000","from_user":"44mune","id_str":"30643589545459713","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3010\u7f8e\u4eba\u5929\u6c17/\u6771\u4eac\u3011\u7f8e\u4eba\u5929\u6c17\u30ad\u30e3\u30b9\u30bf\u30fc\u306e&quot;\u306e\u308a\u3055\u3093&quot;\u306b\u3088\u308b\u3068\u300c1/28(\u91d1)\u306f\u304f\u3082\u308a\u306e\u3061\u6674\u3067\u3001\u964d\u6c34\u78ba\u738710%\u3001\u6700\u9ad8\u6c17\u6e29\u306f9\u2103\u3067\u6700\u4f4e\u6c17\u6e29\u306f2\u2103\u3067\u3059\u300d http://twitpic.com/3tvruh","id":30643589545459713,"from_user_id":3222182,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://bijintenki.jp&quot; rel=&quot;nofollow&quot;&gt;bijintenki.jp&lt;/a&gt;"},{"from_user_id_str":"154341982","profile_image_url":"http://a0.twimg.com/profile_images/1155496864/_____normal.jpg","created_at":"Thu, 27 Jan 2011 15:02:39 +0000","from_user":"slave_420_bot","id_str":"30641845490946049","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4eca\u30f3\u3068\u3053\u899a\u3048\u3066\u308b\u306e\u306f\u300c\u672d\u5e4c\u300d\u300c\u4ed9\u53f0\u300d\u300c\u6771\u4eac\u300d\u300c\u5927\u962a\u300d\u300c\u540d\u53e4\u5c4b\u300d\u300c\u798f\u5ca1\u300d\u306e\u4eca\u65e5\u3068\u660e\u65e5\u306e\u5929\u6c17\u3060\u306a\u3002\u5929\u6c17\u304c\u77e5\u308a\u305f\u3044\u6642\u306f\u300c\u5834\u6240\u300d\u3068\u300c\u4eca\u65e5\u306e\u5929\u6c17\u300d\u304b\u300c\u660e\u65e5\u306e\u5929\u6c17\u300d\u3092\u304a\u7533\u3057\u4ed8\u3051\u304f\u3060\u3055\u3044\u3001\u304a\u5b22\u69d8\uff1f","id":30641845490946049,"from_user_id":154341982,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://bot.syoyu.net/&quot; rel=&quot;nofollow&quot;&gt;\u7adc\u30f6\u5cf0\u90b8\u306e\u3069\u3053\u304b&lt;/a&gt;"},{"from_user_id_str":"72042678","profile_image_url":"http://a3.twimg.com/profile_images/1198771027/larxene_normal.jpg","created_at":"Thu, 27 Jan 2011 15:01:57 +0000","from_user":"larxene_bot","id_str":"30641668772339712","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4eca\u65e5\u306e\u5929\u6c17\u306f \u672d\u5e4c\u304c\u6674\u308c \u4ed9\u53f0\u304c\u66c7\u6642\u3005\u96ea \u6771\u4eac\u304c\u6674\u306e\u3061\u66c7 \u540d\u53e4\u5c4b\u304c\u6674\u6642\u3005\u66c7 \u5927\u962a\u304c\u6674\u6642\u3005\u66c7 \u798f\u5ca1\u304c\u6674\u308c \u3089\u3057\u3044\u308f\u3088 \u6ce8\u610f\u3057\u306a\u3055\u3044","id":30641668772339712,"from_user_id":72042678,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www4.kiwi-us.com/~yuuna/larxene_bot_manual/index.html&quot; rel=&quot;nofollow&quot;&gt;\u5fd8\u5374\u306e\u57ce \u5730\u4e0a\u306e12\u968e&lt;/a&gt;"},{"from_user_id_str":"101331893","profile_image_url":"http://a1.twimg.com/sticky/default_profile_images/default_profile_0_normal.png","created_at":"Thu, 27 Jan 2011 15:01:34 +0000","from_user":"yoshiftan","id_str":"30641572240424961","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306e\u5929\u6c17\u4e88\u5831\u3092\u898b\u3066\u3073\u3063\u304f\u308a\uff01\u6691\u305d\u3046\u3060\u306a\u3053\u308a\u3083\u3002","id":30641572240424961,"from_user_id":101331893,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"Keitai Mail"},{"from_user_id_str":"65207550","profile_image_url":"http://a3.twimg.com/profile_images/448731969/_________R_normal.jpg","created_at":"Thu, 27 Jan 2011 15:01:33 +0000","from_user":"kabuyo","id_str":"30641566469066752","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u5929\u6c17\u4e88\u5831\u3067\u306f\u6771\u4eac\u3067\u306f\u4e7e\u71e5\u6ce8\u610f\u5831\u304c\u7d9a\u3044\u3066\u3044\u308b\u3089\u3057\u3044\u306e\u306b\u3001\u306a\u305c\u79c1\u304c\u5e72\u3057\u305f\u6d17\u6fef\u7269\u306f\u96e8\u306b\u6fe1\u308c\u3066\u3057\u307e\u3063\u305f\u306e\u3060\u308d\u3046\u304b\u2025\u3000\u3088\u3063\u307d\u3069\u904b\u304c\u60aa\u3044\u3089\u3057\u3044\u2025","id":30641566469066752,"from_user_id":65207550,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"80309352","profile_image_url":"http://a1.twimg.com/profile_images/1223620418/image_normal.jpg","created_at":"Thu, 27 Jan 2011 14:54:30 +0000","from_user":"mikutyan","id_str":"30639792026812416","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306e\u660e\u65e5\u306e\u5929\u6c17\u6559\u3048\u3066","id":30639792026812416,"from_user_id":80309352,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"80309352","profile_image_url":"http://a1.twimg.com/profile_images/1223620418/image_normal.jpg","created_at":"Thu, 27 Jan 2011 14:53:06 +0000","from_user":"mikutyan","id_str":"30639439847890944","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u660e\u65e5\u306e\u6771\u4eac\u306e\u5929\u6c17\u306a\u3093\u3060\u308d\u3046 \u96e8\u964d\u3063\u305f\u3089\u56f0\u308b\u3002","id":30639439847890944,"from_user_id":80309352,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"120911929","profile_image_url":"http://a0.twimg.com/profile_images/772435076/20100312___capture2_normal.png","created_at":"Thu, 27 Jan 2011 14:47:19 +0000","from_user":"Cirno_fan","id_str":"30637984684449792","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3042\u305f\u3044\u30c1\u30eb\u30ce\uff01\u30dc\u30c3\u30c8\u3060\u3051\u3069\u5929\u6c17\u4e88\u5831\u3082\u3067\u304d\u308b\u3088\uff01\u300c\u6771\u4eac\u306e\u4eca\u65e5\u306e\u5929\u6c17\u6559\u3048\u3066\u300d\u307f\u305f\u3044\u306bTL\u767a\u8a00\u3057\u3066\u304f\u308c\u308c\u3070\u8abf\u3079\u3066\u3042\u3052\u308b\uff01 #followme #followmejp #followmevip #tenki","id":30637984684449792,"from_user_id":120911929,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://blog.livedoor.jp/fairycirno/archives/34686.html&quot; rel=&quot;nofollow&quot;&gt;\u5e7b\u60f3\u90f7 \u9727\u306e\u6e56&lt;/a&gt;"},{"from_user_id_str":"33858777","profile_image_url":"http://a0.twimg.com/profile_images/352864695/muga_normal.jpg","created_at":"Thu, 27 Jan 2011 14:46:12 +0000","from_user":"collonist","id_str":"30637702105796610","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u3063\u3066\u51ac\u306f\u57fa\u672c\u7684\u306b\u6674\u308c\u3066\u308b\u304b\u3089\u3001\u5929\u6c17\u4e88\u5831\u898b\u306a\u304f\u3066\u3082\u5168\u7136\u554f\u984c\u306a\u3044\u3002\u5c71\u5f62\u3060\u3068\u660e\u65e5\u306f\u3069\u3093\u3060\u3051\u96ea\u304c\u964d\u308b\u306e\u304b\u3001\u3069\u3093\u3060\u3051\u5bd2\u3044\u306e\u304b\u628a\u63e1\u3057\u3066\u3068\u304d\u305f\u3044\u306e\u3067\u3001\u5929\u6c17\u4e88\u5831\u306f\u5fc5\u305a\u30c1\u30a7\u30c3\u30af\u3057\u3066\u305f\u306e\u3060\u304c\u3002","id":30637702105796610,"from_user_id":33858777,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"79336228","profile_image_url":"http://a0.twimg.com/profile_images/1130029876/zmanmu_normal.png","created_at":"Thu, 27 Jan 2011 14:30:23 +0000","from_user":"atsuki777","id_str":"30633725041573890","metadata":{"result_type":"recent"},"to_user_id":null,"text":"MXTV\u306e\u5929\u6c17\u4e88\u5831\u521d\u3081\u3066\u898b\u305f\u3051\u3069\u6771\u4eac\u753a\u7530\u516b\u738b\u5b50\u3063\u3066\u5730\u57df\u8868\u793a\u304c\u2026w\u516b\u738b\u5b50\u3068\u753a\u7530\u306f\u6771\u4eac\u3058\u3083\u306a\u3044\u306e\u304bwww","id":30633725041573890,"from_user_id":79336228,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"90576097","profile_image_url":"http://a0.twimg.com/profile_images/1203320254/nanami1_normal.png","created_at":"Thu, 27 Jan 2011 14:28:26 +0000","from_user":"dycroft","id_str":"30633234245099521","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306e\u660e\u65e5\u306e\u304a\u5929\u6c17\u3067\u3059","id":30633234245099521,"from_user_id":90576097,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"147215268","profile_image_url":"http://a2.twimg.com/profile_images/1198555202/ichika-7.4.0-3P_normal.gif","created_at":"Thu, 27 Jan 2011 14:28:23 +0000","from_user":"kiaran5032","id_str":"30633222211637248","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306e\u660e\u65e5\u306e\u304a\u5929\u6c17\u3067\u3059\u3002\u6674\u308c\u6642\u3005\u304f\u3082\u308a #MX","id":30633222211637248,"from_user_id":147215268,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"1741599","profile_image_url":"http://a0.twimg.com/profile_images/1205744888/950637_normal.jpg","created_at":"Thu, 27 Jan 2011 14:28:21 +0000","from_user":"dasaitama","id_str":"30633212535382016","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306e\u3001\u660e\u65e5\u306e\u304a\u5929\u6c17\u3067\u3059","id":30633212535382016,"from_user_id":1741599,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"34140879","profile_image_url":"http://a3.twimg.com/profile_images/1186413535/__6_normal.jpg","created_at":"Thu, 27 Jan 2011 14:28:17 +0000","from_user":"ryuji_chaos","id_str":"30633197016449024","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306e\u660e\u65e5\u306e\u304a\u5929\u6c17\u3067\u3059\u3002","id":30633197016449024,"from_user_id":34140879,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"1400","profile_image_url":"http://a0.twimg.com/profile_images/1198556839/westerndog_20090104_320x320_normal.jpg","created_at":"Thu, 27 Jan 2011 14:28:16 +0000","from_user":"westerndog","id_str":"30633191232503808","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306e\u660e\u65e5\u306e\u304a\u5929\u6c17\u3067\u3059","id":30633191232503808,"from_user_id":1400,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"89239832","profile_image_url":"http://a3.twimg.com/profile_images/519522846/noriko_normal.jpg","created_at":"Thu, 27 Jan 2011 14:15:01 +0000","from_user":"Noriko_Fujimoto","id_str":"30629857234788352","metadata":{"result_type":"recent"},"to_user_id":115645219,"text":"@nossa430402 \u5bcc\u5c71\u306f\u3059\u3054\u3044\u96ea\u307f\u305f\u3044\u3067\u3059\u306d\uff5e\uff08\u5bd2\u3063\uff09\u3000\u6771\u4eac\u306f\u305d\u306e\u5206\u6bce\u65e5\u826f\u3044\u5929\u6c17\u3067\u3059\u3002\u5bd2\u3044\u3051\u3069\u30fb\u30fb\u30fb\u3002","id":30629857234788352,"from_user_id":89239832,"to_user":"nossa430402","geo":null,"iso_language_code":"ja","to_user_id_str":"115645219","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"107265539","profile_image_url":"http://a0.twimg.com/sticky/default_profile_images/default_profile_3_normal.png","created_at":"Thu, 27 Jan 2011 14:01:10 +0000","from_user":"kurumasuki330","id_str":"30626371826884608","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u4eca\u9031\u571f\u66dc\u65e5\u3001\u8eca\u3067\u6771\u4eac\u304b\u3089\u6771\u540d\u3001\u7c73\u539f\u7d4c\u7531\u3067\u91d1\u6ca2\u306e\u5b9f\u5bb6\u3078\u3002\u305d\u3057\u3066\u3001\u6708\u66dc\u65e5\u306b\u6771\u4eac\u3078\u5e30\u308b\u30b9\u30b1\u30b8\u30e5\u30fc\u30eb\u3002\u5929\u6c17\u4e88\u5831\u3060\u3068\u4eca\u9031\u672b\u3001\u5317\u9678\u5730\u65b9\u306f\u5927\u96ea\uff01\u5e30\u308c\u308b\u304b\u81ea\u4fe1\u304c\u306a\u304f\u306a\u3063\u3066\u304d\u305f\u3002\u307e\u305f\u3001\u305d\u306e\u6642\u5b9f\u6cc1\u4e2d\u7d99\u3057\u307e\u3059\u3002","id":30626371826884608,"from_user_id":107265539,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twtr.jp&quot; rel=&quot;nofollow&quot;&gt;Keitai Web&lt;/a&gt;"},{"from_user_id_str":"155313166","profile_image_url":"http://a3.twimg.com/profile_images/1167554721/73931_1408370184003_1674923704_920888_5686998_n_normal.jpg","created_at":"Thu, 27 Jan 2011 14:00:50 +0000","from_user":"takuya_aoki","id_str":"30626287127105536","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306f\u3081\u3063\u3061\u3083\u3044\u3044\u5929\u6c17\u3067\u904e\u3054\u3057\u3084\u3059\u3044\u3051\u3069\u30c9\u30e9\u30a4\u30a2\u30a4\u306b\u306f\u3061\u3087\u3063\u3068\u304d\u3064\u3044\u306a\u30fb\u30fb\u30fb\u76ee\u85ac\u304c\u624b\u653e\u305b\u306a\u3044","id":30626287127105536,"from_user_id":155313166,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"179984398","profile_image_url":"http://a1.twimg.com/profile_images/1182382310/g4350_normal.jpg","created_at":"Thu, 27 Jan 2011 13:52:50 +0000","from_user":"aiilabo","id_str":"30624271902449664","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u30d6\u30ed\u30b0\u66f4\u65b0 \u25c6\u611f\u60c5\u3092\u307f\u3064\u3081\u308b\u65b9\u6cd5 - \u3053\u3053\u6570\u65e5\u3001\u6642\u6298\u96e8\u304c\u30d1\u30e9\u30d1\u30e9\u3000\u5fae\u5999\u306a\u5929\u6c17\u306e\u6771\u4eac\u304b\u3089\u3042\u308b\u304c\u307e\u307e\u3067\u3059\u3002 \n\n \u4eca\u65e5\u306f\u3001\u6628\u65e5\u306e\u300c\u30de\u30a4\u30ca\u30b9\u611f\u60c5\u306f\u60aa\u3067\u3059\u304b\uff1f\n.. \u27aa http://am6.jp/e3e9tS","id":30624271902449664,"from_user_id":179984398,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://feedtweet.am6.jp/&quot; rel=&quot;nofollow&quot;&gt;\u261e feedtweet.jp \u261c&lt;/a&gt;"},{"from_user_id_str":"185992391","profile_image_url":"http://a2.twimg.com/profile_images/1192695844/otenki_normal.png","created_at":"Thu, 27 Jan 2011 13:00:37 +0000","from_user":"otenki_luci_bot","id_str":"30611130938298368","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u767a\u58f2\u65e5\u304b\u2026\u2026\u541b\u305f\u3061\u306b\u3068\u3063\u3066\u306f\u591a\u5206\u300190\u65e5\u5f8c\u306e\u3053\u3068\u3060\u3002\u3055\u3066\u660e\u65e5\u306e\u6771\u4eac\u90fd\u306e\u5929\u6c17\u306f\u6674\u306e\u3061\u66c7\u3001\u6700\u9ad8\u6c17\u6e29\u306f8\u5ea6\u3060\u305d\u3046\u3060\u3002\u3055\u3059\u304c\u306b\u4f55\u304b\u7740\u305f\u65b9\u304c\u3044\u3044\u305e\u3001\u30a4\u30fc\u30ce\u30c3\u30af\u3002","id":30611130938298368,"from_user_id":185992391,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/otenki_luci_bot&quot; rel=&quot;nofollow&quot;&gt;\u304a\u3066\u3093\u304d\u308b\u3057\u3075\u3047\u308b&lt;/a&gt;"},{"from_user_id_str":"65976527","profile_image_url":"http://a0.twimg.com/profile_images/452810990/little_italies_____normal.jpg","created_at":"Thu, 27 Jan 2011 13:00:04 +0000","from_user":"heta_weather01","id_str":"30610995843964928","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3010\u30d8\u30bf\u5929\u3011Jo napot.\u30cf\u30f3\u30ac\u30ea\u30fc\u3067\u3059\u3002\u6771\u4eac\u306e\u5929\u6c17\u306f\u6674\u306e\u3061\u66c7\u3067\u660e\u65e5\u306f\u6674\u6642\u3005\u66c7\u3001\u79c1\u306e\u3068\u3053\u308d\u3067\u306f\u66c7\u308a\u3067-2\u2103\u3067\u3059\u3002\u3048\u3001\u3053\u306e\u30d5\u30e9\u30a4\u30d1\u30f3\u3067\u3059\u304b\uff1f\u2026\u3061\u3087\u3063\u3068\u500b\u4eba\u7684\u306b\u6bb4\u308a\u305f\u3044\u4eba\u304c\u3044\u308b\u3093\u3067\u3059\u266a","id":30610995843964928,"from_user_id":65976527,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www15.atpages.jp/~kageyanma/&quot; rel=&quot;nofollow&quot;&gt;\u5730\u7403\u306e\u4e2d&lt;/a&gt;"},{"from_user_id_str":"109740077","profile_image_url":"http://a0.twimg.com/profile_images/1212763349/1d3d3821-6b3a-449f-a636-05b95ce3d5d8_normal.png","created_at":"Thu, 27 Jan 2011 12:59:41 +0000","from_user":"snow_arai","id_str":"30610896141156354","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u6771\u4eac\u306f\u3001\u30ab\u30e9\u30ab\u30e9\u9023\u7d9a\u3000\uff13\u4f4d\u30bf\u30a4 - \u65e9\u8d77\u304d\u2606\u304a\u5929\u6c17\u2606ONAIR\u65e5\u8a18\uff1a\u65e5\u7d4c\u30a6\u30fc\u30de\u30f3\u30aa\u30f3\u30e9\u30a4\u30f3 http://j.mp/hxP3Di","id":30610896141156354,"from_user_id":109740077,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"53407951","profile_image_url":"http://a1.twimg.com/profile_images/397960795/airman_normal.jpg","created_at":"Thu, 27 Jan 2011 12:57:32 +0000","from_user":"Airman2009","id_str":"30610355541508096","metadata":{"result_type":"recent"},"to_user_id":null,"text":". @04mmy22 @qsk1 \u98a8\u3068\u96f2\u30fb\u30fb\u30fb\u98db\u884c\u6a5f\u306e\u5927\u5c0f\u554f\u308f\u305a\u3001\u3053\u308c\u3070\u304b\u308a\u306f\u3069\u3046\u3057\u3088\u3046\u3082\u7121\u3044\u3067\u3059\u3088\u306d\u3002 \u6700\u8fd1\u306e\u5357\u6771\u4eac\u306e\u5929\u6c17\u306f\u5909\u3067\u3059\u306d\u3002\u3002\u3002","id":30610355541508096,"from_user_id":53407951,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sourceforge.jp/projects/tween/wiki/FrontPage&quot; rel=&quot;nofollow&quot;&gt;Tween&lt;/a&gt;"},{"from_user_id_str":"111826019","profile_image_url":"http://a1.twimg.com/profile_images/1121742732/DVC00052_normal.jpg","created_at":"Thu, 27 Jan 2011 12:51:12 +0000","from_user":"nijiks","id_str":"30608762859421696","metadata":{"result_type":"recent"},"to_user_id":100014282,"text":"@sanaeru \u79c1\u3053\u3093\u306a\u5929\u6c17\u306e\u4e2d\uff64\u4e8c\u6cca\u4e09\u65e5\u3067\u660e\u65e5\u304b\u3089\u6771\u4eac\u884c\u304f\u3093\u3067\u3059\u3051\u3069\u2026\uff61\u65e5\u66dc\u65e5\u98db\u884c\u6a5f\u98db\u3076\u304b\u3057\u3089\u2026\uff1f","id":30608762859421696,"from_user_id":111826019,"to_user":"sanaeru","geo":null,"iso_language_code":"ja","to_user_id_str":"100014282","source":"&lt;a href=&quot;http://z.twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b/twipple&lt;/a&gt;"},{"from_user_id_str":"164951488","profile_image_url":"http://a3.twimg.com/profile_images/799082230/twitter_normal.jpg","created_at":"Thu, 27 Jan 2011 12:47:49 +0000","from_user":"minorif_jp","id_str":"30607912309096448","metadata":{"result_type":"recent"},"to_user_id":105078670,"text":"@ecco_HIRADO \u5e73\u6238\u725b\u3063\u3066\u5143\u306f\u30aa\u30e9\u30f3\u30c0\u304b\u3089\u304d\u305f\u725b\u306a\u3093\u3060\u306d\u3002\u304a\u3044\u3057\u305d\u3046\u2026\u3002\u5e73\u6238\u306f\u3088\u304b\u6240\u305f\u3043\u3002\u3042\u305f\u3044\u3052\u3047\u3093\u5b9f\u5bb6\u3093\u65b9\u306f\u30c0\u30d6\u30eb\u706b\u5c71\u3084\u9ce5\u30a4\u30f3\u30d5\u30eb\u3067\u5927\u5909\u3084\u3063\u3069\u3002\u6771\u4eac\u3093\u826f\u304b\u3068\u3053\u306f\u5929\u6c17\u306e\u5fc3\u914d\u305b\u305a\u66ae\u3089\u305b\u308b\u3068\u3053\u3058\u3083\u3063\u3069\u3093\u3002","id":30607912309096448,"from_user_id":164951488,"to_user":"ecco_HIRADO","geo":null,"iso_language_code":"ja","to_user_id_str":"105078670","source":"&lt;a href=&quot;http://z.twipple.jp/&quot; rel=&quot;nofollow&quot;&gt;\u3064\u3044\u3063\u3077\u308b/twipple&lt;/a&gt;"},{"from_user_id_str":"10456803","profile_image_url":"http://a1.twimg.com/profile_images/145280215/vot_icon_normal.png","created_at":"Thu, 27 Jan 2011 12:43:37 +0000","from_user":"vot_","id_str":"30606853377363968","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3086\u3063\u304f\u308a\u5929\u6c17\u4e88\u5831\u3067\u3059\u3002\u6771\u4eac\u90fd,\u5927\u5cf6\u5730\u65b9\u300228\u65e5\uff08\u91d1\u66dc\u65e5\u306e\u5929\u6c17\u306f\u6674\u308c\u306e\u3061\u66c7\u308a\u3001\u6700\u9ad8\u6c17\u6e29\u306f7\u5ea6 \u6700\u4f4e\u6c17\u6e29\u306f1\u5ea6\u3067\u3057\u3087\u3046\u3002","id":30606853377363968,"from_user_id":10456803,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://voiceoftwitter.com&quot; rel=&quot;nofollow&quot;&gt;\uff56\uff4f\uff49\uff43\uff45 \uff4f\uff46 \uff54\uff57\uff49\uff54\uff54\uff45\uff52&lt;/a&gt;"},{"from_user_id_str":"23900716","profile_image_url":"http://a3.twimg.com/profile_images/1092646332/twitter_icon_normal.png","created_at":"Thu, 27 Jan 2011 12:38:00 +0000","from_user":"keiyama","id_str":"30605442639990784","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3010\u7f8e\u4eba\u5929\u6c17/\u6771\u4eac\u3011\u7f8e\u4eba\u5929\u6c17\u30ad\u30e3\u30b9\u30bf\u30fc\u306e&quot;\u30c8\u30e2\u30b3\u3055\u3093&quot;\u306b\u3088\u308b\u3068\u300c1/27(\u6728)\u306f\u304f\u3082\u308a\u306e\u3061\u6674\u3067\u3001\u964d\u6c34\u78ba\u738710%\u3001\u6700\u9ad8\u6c17\u6e29\u306f9\u2103\u3067\u6700\u4f4e\u6c17\u6e29\u306f2\u2103\u3067\u3059\u300d\u7f8e\u4eba\u5929\u6c17\u21d2http://bit.ly/djB8th http://twitpic.com/3tuekm #bt_tenki","id":30605442639990784,"from_user_id":23900716,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://bijintenki.jp&quot; rel=&quot;nofollow&quot;&gt;bijintenki.jp&lt;/a&gt;"},{"from_user_id_str":"32018516","profile_image_url":"http://a0.twimg.com/profile_images/1089472069/237_normal.jpg","created_at":"Thu, 27 Jan 2011 12:36:28 +0000","from_user":"DigJandG","id_str":"30605057460281344","metadata":{"result_type":"recent"},"to_user_id":196050661,"text":"@kosumoworld55 \u5929\u6c17\u4e88\u5831\u3092\u898b\u3066\u3044\u3064\u3082\u601d\u3046\u3093\u3060\u3002\u4f55\u3067\u6a2a\u6d5c\u3042\u305f\u308a\u306f\u3044\u3064\u3082\u597d\u3044\u5929\u6c17\u306a\u3093\u3060\u3002\u6771\u4eac\u3082\u3002\u3061\u306a\u307f\u306b\u516c\u9b5a\u306f\u3042\u3093\u307e\u308a\u597d\u304d\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u306a\u3093\u304b\u81ed\u304f\u3063\u3066\u3002\u3067\u3082\u3001\u7435\u7436\u6e56\u3067\u516c\u9b5a\u3063\u3066\u3042\u307e\u308a\u805e\u304b\u306a\u3044\u69d8\u306a\u30fb\u30fb\u30fb\u3002\u4ffa\u304c\u91e3\u308a\u3092\u3057\u306a\u3044\u304b\u3089\u304b\u306a\uff1f","id":30605057460281344,"from_user_id":32018516,"to_user":"kosumoworld55","geo":null,"iso_language_code":"ja","to_user_id_str":"196050661","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"90935348","profile_image_url":"http://a1.twimg.com/sticky/default_profile_images/default_profile_0_normal.png","created_at":"Thu, 27 Jan 2011 12:34:34 +0000","from_user":"sorakeiko","id_str":"30604575937396737","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u95a2\u6771\u5730\u65b9\u306e\u660e\u65e5\u306e\u5929\u6c17\u2015\u7d9a\u304d\u3002\u660e\u65e5\u671d\u6700\u4f4e\u6c17\u6e29\u30fb\u8ed2\u4e26\u307f\u6c37\u70b9\u4e0b\u30fb\u5b87\u90fd\u5bae\u3001\u6c34\u6238\u30de\u30a4\u30ca\u30b95\u5ea6\u30fb\u6771\u4eac\u3001\u6a2a\u6d5c1\u5ea6\u3002\u6700\u9ad8\u6c17\u6e29\u30fb\u4eca\u65e5\u3088\u308a3\u5ea6\u524d\u5f8c\u4f4e\u304f5\uff5e8\u5ea6\u30fb\u6771\u4eac\u3001\u5343\u84498\u5ea6\u3002\u5411\u3053\u3046\u4e00\u9031\u9593\u30fb\u4e7e\u71e5\u3057\u305f\u6674\u308c\u7d9a\u304f\u30fb\uff08\u571f\uff09\u4f0a\u8c46\u8af8\u5cf6\u306b\u51b7\u305f\u3044\u96e8\u3084\u96ea\u304c\u898b\u3089\u308c\u305d\u3046\u3060\u304c\u3001\u95a2\u6771\u306e\u4e7e\u3044\u305f\u72b6\u614b\u7d9a\u304f\u3002","id":30604575937396737,"from_user_id":90935348,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"6113557","profile_image_url":"http://a3.twimg.com/profile_images/1227080026/profile_red_herencia_normal.png","created_at":"Thu, 27 Jan 2011 12:33:57 +0000","from_user":"fmoto7","id_str":"30604423327653888","metadata":{"result_type":"recent"},"to_user_id":null,"text":"&quot;\u6771\u4eac\u6c34\u904b\u7528\u30bb\u30f3\u30bf\u30fc\u306f\u3001\u524d\u534a\u6226\u304c\u7d42\u308f\u3063\u305f\u3068\u3053\u308d\u3067\u4e00\u6c17\u306b\u6c34\u5727\u9ad8\u3081\u3001\u5f8c\u534a\u6226\u59cb\u307e\u308b\u3068\u6c34\u5727\u4e0b\u3052\u3001\u7d42\u308f\u308b\u3068\u307e\u305f\u3059\u3050\u4e0a\u3052\u308b\u3002\u30c6\u30ec\u30d3\u306e\u8996\u8074\u3001\u305d\u306e\u65e5\u306e\u5929\u6c17\u306a\u3069\u30e9\u30a4...&quot; http://tumblr.com/xjy1cwiwrm","id":30604423327653888,"from_user_id":6113557,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tumblr.com/&quot; rel=&quot;nofollow&quot;&gt;Tumblr&lt;/a&gt;"},{"from_user_id_str":"118092912","profile_image_url":"http://a3.twimg.com/profile_images/1225330653/____normal.PNG","created_at":"Thu, 27 Jan 2011 12:29:13 +0000","from_user":"saechuchun","id_str":"30603231042207744","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u3067\u3082\u5730\u9707\u306e\u8a71\u984c\u306e\u3068\u304d\u306e\u300c\u3082\u3057\u6771\u4eac\u3067\u76f4\u4e0b\u578b\u5730\u9707\u304c\u8d77\u304d\u305f\u3089\u300d\u3068\u304b\u5929\u6c17\u4e88\u5831\u306e\u3068\u304d\u306f\u897f\u3067\u96e8\u3060\u308d\u3046\u3068\u300c\u6771\u4eac\u3067\u306f\u301c\u65e5\u9593\u4e7e\u71e5\u3057\u3066\u307e\u3059\u306d\u30fc\u300d\u3068\u304b\u305d\u3046\u3044\u3046\u30ad\u30fc\u5c40\u306e\u95a2\u6771\u4e2d\u5fc3\u4e3b\u7fa9\u306f\u597d\u304d\u3067\u306f\u306a\u3044","id":30603231042207744,"from_user_id":118092912,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twtr.jp&quot; rel=&quot;nofollow&quot;&gt;Keitai Web&lt;/a&gt;"}],"max_id":30724239224995840,"since_id":28179956995457024,"refresh_url":"?since_id=30724239224995840&q=%E6%9D%B1%E4%BA%AC%E3%80%80%E5%A4%A9%E6%B0%97","next_page":"?page=2&max_id=30724239224995840&rpp=50&lang=ja&q=%E6%9D%B1%E4%BA%AC%E3%80%80%E5%A4%A9%E6%B0%97","results_per_page":50,"page":1,"completed_in":0.170202,"warning":"adjusted since_id to 28179956995457024 (), requested since_id was older than allowed -- since_id removed for pagination.","since_id_str":"28179956995457024","max_id_str":"30724239224995840","query":"%E6%9D%B1%E4%BA%AC%E3%80%80%E5%A4%A9%E6%B0%97"}
benchmarks/json-data/numbers.jsonnew file+1
@@ -0,0 +1 @@
1+[1.15, 1.3224999999999998, 1.5208749999999998, 1.7490062499999994, 2.0113571874999994, 2.313060765624999, 2.6600198804687487, 3.0590228625390607, 3.5178762919199196, 4.045557735707907, 4.652391396064092, 5.350250105473706, 6.152787621294761, 7.075705764488975, 8.137061629162321, 9.357620873536668, 10.761264004567169, 12.375453605252241, 14.231771646040077, 16.36653739294609, 18.821518001888, 21.644745702171196, 24.891457557496874, 28.625176191121405, 32.918952619789614, 37.856795512758055, 43.535314839671756, 50.06561206562252, 57.57545387546589, 66.21177195678577, 76.14353775030362, 87.56506841284916, 100.69982867477653, 115.804802975993, 133.17552342239193, 153.15185193575073, 176.1246297261133, 202.5433241850303, 232.9248228127848, 267.86354623470254, 308.04307816990786, 354.24953989539404, 407.3869708797031, 468.49501651165855, 538.7692689884072, 619.5846593366683, 712.5223582371685, 819.4007119727437, 942.3108187686552, 1083.6574415839534, 1246.2060578215462, 1433.136966494778, 1648.1075114689947, 1895.323638189344, 2179.622183917745, 2506.565511505407, 2882.5503382312177, 3314.9328889659, 3812.172822310785, 4383.998745657402, 5041.598557506012, 5797.838341131914, 6667.5140923017, 7667.641206146955, 8817.787387068996, 10140.455495129345, 11661.523819398746, 13410.752392308557, 15422.365251154839, 17735.720038828065, 20396.078044652273, 23455.489751350113, 26973.813214052625, 31019.885196160518, 35672.867975584595, 41023.79817192228, 47177.36789771062, 54253.97308236721, 62392.06904472228, 71750.87940143062, 82513.5113116452, 94890.53800839197, 109124.11870965076, 125492.73651609836, 144316.6469935131, 165964.14404254008, 190858.76564892105, 219487.5804962592, 252410.71757069806, 290272.32520630275, 333813.17398724816, 383885.1500853353, 441467.9225981356, 507688.1109878559, 583841.3276360342, 671417.5267814393, 772130.1557986551, 887949.6791684533, 1021142.1310437213, 1174313.4507002793, 1350460.4683053212, 1553029.5385511192, 1785983.969333787, 2053881.564733855, 2361963.7994439327, 2716258.369360523, 3123697.124764601, 3592251.6934792907, 4131089.447501184, 4750752.864626361, 5463365.794320315, 6282870.663468362, 7225301.262988616, 8309096.452436907, 9555460.920302443, 10988780.058347808, 12637097.067099977, 14532661.627164973, 16712560.871239718, 19219445.001925673, 22102361.752214525, 25417716.0150467, 29230373.417303704, 33614929.42989926, 38657168.84438414, 44455744.17104176, 51124105.79669802, 58792721.66620272, 67611629.91613312, 77753374.40355308, 89416380.56408603, 102828837.64869894, 118253163.29600377, 135991137.79040432, 156389808.45896497, 179848279.7278097, 206825521.68698114, 237849349.94002828, 273526752.4310325, 314555765.2956874, 361739130.09004045, 415999999.60354644, 478399999.5440784, 550159999.4756901, 632683999.3970436, 727586599.3066001, 836724589.20259, 962233277.5829784, 1106568269.2204251, 1272553509.6034887, 1463436536.044012, 1682952016.4506137, 1935394818.9182055, 2225704041.755936, 2559559648.019326, 2943493595.222225, 3385017634.5055585, 3892770279.681392, 4476685821.6336, 5148188694.87864, 5920416999.1104355, 6808479548.977001, 7829751481.32355, 9004214203.522081, 10354846334.050394, 11908073284.157951, 13694284276.781643, 15748426918.29889, 18110690956.04372, 20827294599.450275, 23951388789.367817, 27544097107.772987, 31675711673.938934, 36427068425.02977, 41891128688.78423, 48174797992.10186, 55401017690.91714, 63711170344.5547, 73267845896.2379, 84258022780.67358, 96896726197.77461, 111431235127.4408, 128145920396.5569, 147367808456.04044, 169472979724.44647, 194893926683.11343, 224128015685.58044, 257747218038.41748, 296409300744.1801, 340870695855.80707, 392001300234.1781, 450801495269.3048, 518421719559.70044, 596184977493.6555, 685612724117.7037, 788454632735.3593, 906722827645.6631, 1042731251792.5125, 1199140939561.3892, 1379012080495.5974, 1585863892569.937, 1823743476455.4275, 2097304997923.7415, 2411900747612.3022, 2773685859754.1475, 3189738738717.2695, 3668199549524.8594, 4218429481953.5884, 4851193904246.626, 5578872989883.619, 6415703938366.162, 7378059529121.086, 8484768458489.248, 9757483727262.635, 11221106286352.03, 12904272229304.832, 14839913063700.555, 17065900023255.637, 19625785026743.98, 22569652780755.58, 25955100697868.91, 29848365802549.246, 34325620672931.63, 39474463773871.375, 45395633339952.07, 52204978340944.88, 60035725092086.61, 69041083855899.59, 79397246434284.53, 91306833399427.2, 105002858409341.27, 120753287170742.45, 138866280246353.81, 159696222283306.88, 183650655625802.88, 211198253969673.3, 242877992065124.28, 279309690874892.9, 321206144506126.8, 369387066182045.8, 424795126109352.6, 488514395025755.5, 561791554279618.75, 646060287421561.5, 742969330534795.8, 854414730115015.0, 982576939632267.1, 1129963480577107.2, 1299458002663673.2, 1494376703063224.0, 1718533208522707.5, 1976313189801113.5, 2272760168271280.5, 2613674193511972.0, 3005725322538767.5, 3456584120919582.5, 3975071739057519.5, 4571332499916147.0, 5257032374903569.0, 6045587231139104.0, 6952425315809969.0, 7995289113181464.0, 9194582480158682.0, 1.0573769852182484e+16, 1.2159835330009856e+16, 1.3983810629511332e+16, 1.6081382223938032e+16, 1.8493589557528736e+16, 2.1267627991158044e+16, 2.4457772189831748e+16, 2.8126438018306508e+16, 3.234540372105248e+16, 3.719721427921035e+16, 4.27767964210919e+16, 4.919331588425568e+16, 5.657231326689403e+16, 6.505816025692813e+16, 7.481688429546734e+16, 8.603941693978744e+16, 9.894532948075555e+16, 1.1378712890286886e+17, 1.3085519823829918e+17, 1.5048347797404406e+17, 1.7305599967015066e+17, 1.9901439962067325e+17, 2.288665595637742e+17, 2.6319654349834032e+17, 3.026760250230913e+17, 3.48077428776555e+17, 4.002890430930382e+17, 4.603323995569939e+17, 5.29382259490543e+17, 6.087895984141244e+17, 7.00108038176243e+17, 8.051242439026793e+17, 9.258928804880812e+17, 1.0647768125612933e+18, 1.224493334445487e+18, 1.4081673346123103e+18, 1.6193924348041567e+18, 1.8623013000247798e+18, 2.1416464950284966e+18, 2.462893469282771e+18, 2.8323274896751867e+18, 3.257176613126464e+18, 3.7457531050954337e+18, 4.3076160708597484e+18, 4.95375848148871e+18, 5.696822253712016e+18, 6.551345591768818e+18, 7.53404743053414e+18, 8.66415454511426e+18, 9.963777726881399e+18, 1.1458344385913608e+19, 1.3177096043800648e+19, 1.5153660450370744e+19, 1.7426709517926355e+19, 2.0040715945615307e+19, 2.30468233374576e+19, 2.650384683807624e+19, 3.047942386378767e+19, 3.505133744335582e+19, 4.030903805985919e+19, 4.635539376883806e+19, 5.330870283416377e+19, 6.130500825928833e+19, 7.0500759498181575e+19, 8.10758734229088e+19, 9.323725443634512e+19, 1.0722284260179688e+20, 1.233062689920664e+20, 1.4180220934087634e+20, 1.6307254074200778e+20, 1.8753342185330894e+20, 2.1566343513130526e+20, 2.4801295040100103e+20, 2.8521489296115116e+20, 3.2799712690532385e+20, 3.7719669594112236e+20, 4.337762003322907e+20, 4.988426303821342e+20, 5.7366902493945437e+20, 6.597193786803724e+20, 7.586772854824282e+20, 8.724788783047925e+20, 1.0033507100505113e+21, 1.1538533165580878e+21, 1.326931314041801e+21, 1.5259710111480708e+21, 1.7548666628202813e+21, 2.0180966622433234e+21, 2.3208111615798217e+21, 2.668932835816795e+21, 3.0692727611893135e+21, 3.529663675367711e+21, 4.059113226672867e+21, 4.667980210673796e+21, 5.368177242274866e+21, 6.173403828616095e+21, 7.099414402908508e+21, 8.164326563344784e+21, 9.388975547846502e+21, 1.0797321880023475e+22, 1.2416920162026996e+22, 1.4279458186331043e+22, 1.64213769142807e+22, 1.8884583451422802e+22, 2.171727096913622e+22, 2.497486161450665e+22, 2.872109085668265e+22, 3.3029254485185042e+22, 3.798364265796279e+22, 4.368118905665721e+22, 5.0233367415155795e+22, 5.7768372527429155e+22, 6.643362840654352e+22, 7.639867266752504e+22, 8.78584735676538e+22, 1.0103724460280185e+23, 1.1619283129322213e+23, 1.3362175598720545e+23, 1.5366501938528623e+23, 1.7671477229307915e+23, 2.0322198813704103e+23, 2.3370528635759717e+23, 2.687610793112367e+23, 3.090752412079222e+23, 3.554365273891105e+23, 4.0875200649747705e+23, 4.700648074720986e+23, 5.405745285929133e+23, 6.216607078818502e+23, 7.149098140641278e+23, 8.221462861737468e+23, 9.454682290998088e+23, 1.0872884634647801e+24, 1.250381732984497e+24, 1.4379389929321714e+24, 1.653629841871997e+24, 1.9016743181527962e+24, 2.1869254658757156e+24, 2.5149642857570727e+24, 2.8922089286206334e+24, 3.326040267913728e+24, 3.824946308100787e+24, 4.3986882543159046e+24, 5.05849149246329e+24, 5.817265216332783e+24, 6.6898549987827e+24, 7.693333248600105e+24, 8.84733323589012e+24, 1.0174433221273637e+25, 1.1700598204464681e+25, 1.3455687935134384e+25, 1.547404112540454e+25, 1.779514729421522e+25, 2.04644193883475e+25, 2.353408229659962e+25, 2.7064194641089563e+25, 3.1123823837253e+25, 3.5792397412840944e+25, 4.116125702476708e+25, 4.733544557848214e+25, 5.443576241525446e+25, 6.260112677754262e+25, 7.199129579417401e+25, 8.27899901633001e+25, 9.52084886877951e+25, 1.0948976199096437e+26, 1.25913226289609e+26, 1.4480021023305035e+26, 1.665202417680079e+26, 1.9149827803320907e+26, 2.202230197381904e+26, 2.5325647269891895e+26, 2.9124494360375676e+26, 3.349316851443203e+26, 3.8517143791596826e+26, 4.429471536033635e+26, 5.09389226643868e+26, 5.857976106404481e+26, 6.736672522365153e+26, 7.747173400719924e+26, 8.909249410827912e+26, 1.0245636822452099e+27, 1.1782482345819913e+27, 1.35498546976929e+27, 1.5582332902346833e+27, 1.7919682837698857e+27, 2.0607635263353683e+27, 2.3698780552856732e+27, 2.725359763578524e+27, 3.1341637281153025e+27, 3.6042882873325974e+27, 4.1449315304324867e+27, 4.7666712599973594e+27, 5.481671948996963e+27, 6.303922741346507e+27, 7.249511152548482e+27, 8.336937825430755e+27, 9.587478499245366e+27, 1.102560027413217e+28, 1.2679440315251995e+28, 1.4581356362539794e+28, 1.6768559816920761e+28, 1.9283843789458875e+28, 2.2176420357877703e+28, 2.5502883411559357e+28, 2.932831592329326e+28, 3.3727563311787245e+28, 3.8786697808555327e+28, 4.460470247983863e+28, 5.129540785181441e+28, 5.8989719029586575e+28, 6.783817688402455e+28, 7.801390341662823e+28, 8.971598892912247e+28, 1.0317338726849081e+29, 1.1864939535876443e+29, 1.3644680466257909e+29, 1.5691382536196593e+29, 1.8045089916626083e+29, 2.0751853404119993e+29, 2.3864631414737988e+29, 2.7444326126948684e+29, 3.1560975045990984e+29, 3.629512130288963e+29, 4.173938949832307e+29, 4.800029792307153e+29, 5.520034261153225e+29, 6.348039400326208e+29, 7.300245310375139e+29, 8.39528210693141e+29, 9.65457442297112e+29, 1.1102760586416787e+30, 1.2768174674379305e+30, 1.46834008755362e+30, 1.6885911006866628e+30, 1.941879765789662e+30, 2.2331617306581113e+30, 2.568135990256828e+30, 2.9533563887953516e+30, 3.396359847114654e+30, 3.905813824181852e+30, 4.491685897809129e+30, 5.165438782480498e+30, 5.940254599852573e+30, 6.831292789830458e+30, 7.855986708305026e+30, 9.034384714550779e+30, 1.0389542421733396e+31, 1.1947973784993405e+31, 1.3740169852742412e+31, 1.5801195330653773e+31, 1.817137463025184e+31, 2.0897080824789613e+31, 2.4031642948508052e+31, 2.7636389390784257e+31, 3.1781847799401893e+31, 3.6549124969312175e+31, 4.2031493714709e+31, 4.833621777191535e+31, 5.558665043770264e+31, 6.392464800335803e+31, 7.3513345203861735e+31, 8.454034698444098e+31, 9.722139903210713e+31, 1.1180460888692319e+32, 1.2857530021996165e+32, 1.478615952529559e+32, 1.7004083454089925e+32, 1.9554695972203414e+32, 2.2487900368033926e+32, 2.586108542323901e+32, 2.974024823672486e+32, 3.420128547223359e+32, 3.933147829306862e+32, 4.523120003702891e+32, 5.2015880042583246e+32, 5.981826204897073e+32, 6.879100135631634e+32, 7.910965155976377e+32, 9.097609929372833e+32, 1.0462251418778757e+33, 1.2031589131595571e+33, 1.3836327501334904e+33, 1.591177662653514e+33, 1.8298543120515409e+33, 2.104332458859272e+33, 2.4199823276881623e+33, 2.7829796768413863e+33, 3.200426628367594e+33, 3.6804906226227334e+33, 4.232564216016143e+33, 4.867448848418564e+33, 5.597566175681348e+33, 6.437201102033549e+33, 7.402781267338582e+33, 8.513198457439368e+33, 9.790178226055273e+33, 1.1258704959963564e+34, 1.2947510703958096e+34, 1.488963730955181e+34, 1.712308290598458e+34, 1.9691545341882266e+34, 2.2645277143164603e+34, 2.604206871463929e+34, 2.994837902183518e+34, 3.4440635875110457e+34, 3.960673125637702e+34, 4.554774094483357e+34, 5.237990208655861e+34, 6.023688739954239e+34, 6.927242050947375e+34, 7.96632835858948e+34, 9.161277612377902e+34, 1.0535469254234585e+35, 1.2115789642369772e+35, 1.3933158088725236e+35, 1.6023131802034022e+35, 1.8426601572339122e+35, 2.119059180818999e+35, 2.4369180579418488e+35, 2.8024557666331258e+35, 3.2228241316280944e+35, 3.706247751372308e+35, 4.262184914078154e+35, 4.901512651189877e+35, 5.636739548868358e+35, 6.482250481198611e+35, 7.454588053378403e+35, 8.572776261385162e+35, 9.858692700592935e+35, 1.1337496605681875e+36, 1.3038121096534156e+36, 1.499383926101428e+36, 1.7242915150166418e+36, 1.982935242269138e+36, 2.2803755286095084e+36]
benchmarks/json-data/twitter1.jsonnew file+1
@@ -0,0 +1 @@
1+{"results":[{"from_user_id_str":"80430860","profile_image_url":"http://a2.twimg.com/profile_images/536455139/icon32_normal.png","created_at":"Wed, 26 Jan 2011 07:07:02 +0000","from_user":"kazu_yamamoto","id_str":"30159761706061824","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell Server Pages \u3063\u3066\u3001\u307e\u3060\u7d9a\u3044\u3066\u3044\u305f\u306e\u304b\uff01","id":30159761706061824,"from_user_id":80430860,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"}],"max_id":30159761706061824,"since_id":0,"refresh_url":"?since_id=30159761706061824&q=haskell","next_page":"?page=2&max_id=30159761706061824&rpp=1&q=haskell","results_per_page":1,"page":1,"completed_in":0.012606,"since_id_str":"0","max_id_str":"30159761706061824","query":"haskell"}
benchmarks/json-data/twitter10.jsonnew file+1
@@ -0,0 +1 @@
1+{"results":[{"from_user_id_str":"207858021","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Wed, 26 Jan 2011 04:30:38 +0000","from_user":"pboudarga","id_str":"30120402839666689","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I'm at Rolla Sushi Grill (27737 Bouquet Canyon Road, #106, Btw Haskell Canyon and Rosedell Drive, Saugus) http://4sq.com/gqqdhs","id":30120402839666689,"from_user_id":207858021,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://foursquare.com&quot; rel=&quot;nofollow&quot;&gt;foursquare&lt;/a&gt;"},{"from_user_id_str":"69988683","profile_image_url":"http://a0.twimg.com/profile_images/1211955817/avatar_7888_normal.gif","created_at":"Wed, 26 Jan 2011 04:25:23 +0000","from_user":"YNK33","id_str":"30119083059978240","metadata":{"result_type":"recent"},"to_user_id":null,"text":"hsndfile 0.5.0: Free and open source Haskell bindings for libsndfile http://bit.ly/gHaBWG Mac Os","id":30119083059978240,"from_user_id":69988683,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"81492","profile_image_url":"http://a1.twimg.com/profile_images/423894208/Picture_7_normal.jpg","created_at":"Wed, 26 Jan 2011 04:24:28 +0000","from_user":"satzz","id_str":"30118851488251904","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Emacs\u306e\u30e2\u30fc\u30c9\u8868\u793a\u304c\u4eca(Ruby Controller Outputz RoR Flymake REl hs)\u3068\u306a\u3063\u3066\u3066\u3088\u304f\u308f\u304b\u3089\u306a\u3044\u3093\u3060\u3051\u3069\u6700\u5f8c\u306eREl\u3068\u304bhs\u3063\u3066\u4f55\u3060\u308d\u3046\u2026haskell\u3068\u304b2\u5e74\u4ee5\u4e0a\u66f8\u3044\u3066\u306a\u3044\u3051\u3069\u2026","id":30118851488251904,"from_user_id":81492,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"9518356","profile_image_url":"http://a2.twimg.com/profile_images/119165723/ocaml-icon_normal.png","created_at":"Wed, 26 Jan 2011 04:19:19 +0000","from_user":"planet_ocaml","id_str":"30117557788741632","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I so miss #haskell type classes in #ocaml - i want to do something like refinement. Also why does ocaml not have... http://bit.ly/geYRwt","id":30117557788741632,"from_user_id":9518356,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"218059","profile_image_url":"http://a1.twimg.com/profile_images/1053837723/twitter-icon9_normal.jpg","created_at":"Wed, 26 Jan 2011 04:16:32 +0000","from_user":"aprikip","id_str":"30116854940835840","metadata":{"result_type":"recent"},"to_user_id":null,"text":"yatex-mode\u3084haskell-mode\u306e\u3053\u3068\u3067\u3059\u306d\u3001\u308f\u304b\u308a\u307e\u3059\u3002","id":30116854940835840,"from_user_id":218059,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sites.google.com/site/yorufukurou/&quot; rel=&quot;nofollow&quot;&gt;YoruFukurou&lt;/a&gt;"},{"from_user_id_str":"216363","profile_image_url":"http://a1.twimg.com/profile_images/72454310/Tim-Avatar_normal.png","created_at":"Wed, 26 Jan 2011 04:15:30 +0000","from_user":"dysinger","id_str":"30116594684264448","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell in Hawaii tonight for me... #fun","id":30116594684264448,"from_user_id":216363,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.nambu.com/&quot; rel=&quot;nofollow&quot;&gt;Nambu&lt;/a&gt;"},{"from_user_id_str":"1774820","profile_image_url":"http://a2.twimg.com/profile_images/61169291/dan_desert_thumb_normal.jpg","created_at":"Wed, 26 Jan 2011 04:13:36 +0000","from_user":"DanMil","id_str":"30116117682851840","metadata":{"result_type":"recent"},"to_user_id":1594784,"text":"@ojrac @chewedwire @tomheon Haskell isn't a language, it's a belief system. A seductive one...","id":30116117682851840,"from_user_id":1774820,"to_user":"ojrac","geo":null,"iso_language_code":"en","to_user_id_str":"1594784","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"659256","profile_image_url":"http://a0.twimg.com/profile_images/746976711/angular-final_normal.jpg","created_at":"Wed, 26 Jan 2011 04:11:06 +0000","from_user":"djspiewak","id_str":"30115488931520512","metadata":{"result_type":"recent"},"to_user_id":null,"text":"One of the very nice things about Haskell as opposed to SML is the reduced proliferation of identifiers (e.g. andb, orb, etc). #typeclasses","id":30115488931520512,"from_user_id":659256,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Wed, 26 Jan 2011 04:06:12 +0000","from_user":"listwarenet","id_str":"30114255890026496","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-cafe/84752-re-haskell-cafe-gpl-license-of-h-matrix-and-prelude-numeric.html Re: Haskell-c","id":30114255890026496,"from_user_id":144546280,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"},{"from_user_id_str":"1594784","profile_image_url":"http://a2.twimg.com/profile_images/378515773/square-profile_normal.jpg","created_at":"Wed, 26 Jan 2011 04:01:29 +0000","from_user":"ojrac","id_str":"30113067333324800","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @tomheon: @ojrac @chewedwire Don't worry, learning Haskell will not give you any clear idea what monad means.","id":30113067333324800,"from_user_id":1594784,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"}],"max_id":30120402839666689,"since_id":0,"refresh_url":"?since_id=30120402839666689&q=haskell","next_page":"?page=2&max_id=30120402839666689&rpp=10&q=haskell","results_per_page":10,"page":1,"completed_in":0.012714,"since_id_str":"0","max_id_str":"30120402839666689","query":"haskell"}
benchmarks/json-data/twitter100.jsonnew file+1
@@ -0,0 +1 @@
1+{"results":[{"from_user_id_str":"3646730","profile_image_url":"http://a3.twimg.com/profile_images/404973767/avatar_normal.jpg","created_at":"Wed, 26 Jan 2011 04:35:07 +0000","from_user":"nicolaslara","id_str":"30121530767708160","metadata":{"result_type":"recent"},"to_user_id":18616016,"text":"@josej30 Python y Clojure. Obviamente son diferentes, y cada uno tiene sus ventajas y desventajas. De Haskell faltar\u00eda pattern matching","id":30121530767708160,"from_user_id":3646730,"to_user":"josej30","geo":null,"iso_language_code":"es","to_user_id_str":"18616016","source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"207858021","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Wed, 26 Jan 2011 04:30:38 +0000","from_user":"pboudarga","id_str":"30120402839666689","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I'm at Rolla Sushi Grill (27737 Bouquet Canyon Road, #106, Btw Haskell Canyon and Rosedell Drive, Saugus) http://4sq.com/gqqdhs","id":30120402839666689,"from_user_id":207858021,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://foursquare.com&quot; rel=&quot;nofollow&quot;&gt;foursquare&lt;/a&gt;"},{"from_user_id_str":"69988683","profile_image_url":"http://a0.twimg.com/profile_images/1211955817/avatar_7888_normal.gif","created_at":"Wed, 26 Jan 2011 04:25:23 +0000","from_user":"YNK33","id_str":"30119083059978240","metadata":{"result_type":"recent"},"to_user_id":null,"text":"hsndfile 0.5.0: Free and open source Haskell bindings for libsndfile http://bit.ly/gHaBWG Mac Os","id":30119083059978240,"from_user_id":69988683,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"81492","profile_image_url":"http://a1.twimg.com/profile_images/423894208/Picture_7_normal.jpg","created_at":"Wed, 26 Jan 2011 04:24:28 +0000","from_user":"satzz","id_str":"30118851488251904","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Emacs\u306e\u30e2\u30fc\u30c9\u8868\u793a\u304c\u4eca(Ruby Controller Outputz RoR Flymake REl hs)\u3068\u306a\u3063\u3066\u3066\u3088\u304f\u308f\u304b\u3089\u306a\u3044\u3093\u3060\u3051\u3069\u6700\u5f8c\u306eREl\u3068\u304bhs\u3063\u3066\u4f55\u3060\u308d\u3046\u2026haskell\u3068\u304b2\u5e74\u4ee5\u4e0a\u66f8\u3044\u3066\u306a\u3044\u3051\u3069\u2026","id":30118851488251904,"from_user_id":81492,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"9518356","profile_image_url":"http://a2.twimg.com/profile_images/119165723/ocaml-icon_normal.png","created_at":"Wed, 26 Jan 2011 04:19:19 +0000","from_user":"planet_ocaml","id_str":"30117557788741632","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I so miss #haskell type classes in #ocaml - i want to do something like refinement. Also why does ocaml not have... http://bit.ly/geYRwt","id":30117557788741632,"from_user_id":9518356,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"218059","profile_image_url":"http://a1.twimg.com/profile_images/1053837723/twitter-icon9_normal.jpg","created_at":"Wed, 26 Jan 2011 04:16:32 +0000","from_user":"aprikip","id_str":"30116854940835840","metadata":{"result_type":"recent"},"to_user_id":null,"text":"yatex-mode\u3084haskell-mode\u306e\u3053\u3068\u3067\u3059\u306d\u3001\u308f\u304b\u308a\u307e\u3059\u3002","id":30116854940835840,"from_user_id":218059,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sites.google.com/site/yorufukurou/&quot; rel=&quot;nofollow&quot;&gt;YoruFukurou&lt;/a&gt;"},{"from_user_id_str":"216363","profile_image_url":"http://a1.twimg.com/profile_images/72454310/Tim-Avatar_normal.png","created_at":"Wed, 26 Jan 2011 04:15:30 +0000","from_user":"dysinger","id_str":"30116594684264448","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell in Hawaii tonight for me... #fun","id":30116594684264448,"from_user_id":216363,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.nambu.com/&quot; rel=&quot;nofollow&quot;&gt;Nambu&lt;/a&gt;"},{"from_user_id_str":"1774820","profile_image_url":"http://a2.twimg.com/profile_images/61169291/dan_desert_thumb_normal.jpg","created_at":"Wed, 26 Jan 2011 04:13:36 +0000","from_user":"DanMil","id_str":"30116117682851840","metadata":{"result_type":"recent"},"to_user_id":1594784,"text":"@ojrac @chewedwire @tomheon Haskell isn't a language, it's a belief system. A seductive one...","id":30116117682851840,"from_user_id":1774820,"to_user":"ojrac","geo":null,"iso_language_code":"en","to_user_id_str":"1594784","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"659256","profile_image_url":"http://a0.twimg.com/profile_images/746976711/angular-final_normal.jpg","created_at":"Wed, 26 Jan 2011 04:11:06 +0000","from_user":"djspiewak","id_str":"30115488931520512","metadata":{"result_type":"recent"},"to_user_id":null,"text":"One of the very nice things about Haskell as opposed to SML is the reduced proliferation of identifiers (e.g. andb, orb, etc). #typeclasses","id":30115488931520512,"from_user_id":659256,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Wed, 26 Jan 2011 04:06:12 +0000","from_user":"listwarenet","id_str":"30114255890026496","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-cafe/84752-re-haskell-cafe-gpl-license-of-h-matrix-and-prelude-numeric.html Re: Haskell-c","id":30114255890026496,"from_user_id":144546280,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"},{"from_user_id_str":"1594784","profile_image_url":"http://a2.twimg.com/profile_images/378515773/square-profile_normal.jpg","created_at":"Wed, 26 Jan 2011 04:01:29 +0000","from_user":"ojrac","id_str":"30113067333324800","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @tomheon: @ojrac @chewedwire Don't worry, learning Haskell will not give you any clear idea what monad means.","id":30113067333324800,"from_user_id":1594784,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"207589736","profile_image_url":"http://a3.twimg.com/profile_images/1225527428/headshot_1_normal.jpg","created_at":"Wed, 26 Jan 2011 04:00:13 +0000","from_user":"ashleevelazq101","id_str":"30112747555397632","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Federal investigation finds safety violations at The Acadia Hospital: By Meg Haskell, BDN Staff The investigatio... http://bit.ly/dONnpn","id":30112747555397632,"from_user_id":207589736,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"17671137","profile_image_url":"http://a2.twimg.com/profile_images/290264834/Haskell-logo-outer-glow_normal.png","created_at":"Wed, 26 Jan 2011 03:58:00 +0000","from_user":"Hackage","id_str":"30112192346984448","metadata":{"result_type":"recent"},"to_user_id":null,"text":"streams 0.4, added by EdwardKmett: Various Haskell 2010 stream comonads http://bit.ly/idBkPe","id":30112192346984448,"from_user_id":17671137,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"17489366","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Wed, 26 Jan 2011 03:58:00 +0000","from_user":"aapnoot","id_str":"30112191881420800","metadata":{"result_type":"recent"},"to_user_id":null,"text":"streams 0.4, added by EdwardKmett: Various Haskell 2010 stream comonads http://bit.ly/idBkPe","id":30112191881420800,"from_user_id":17489366,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"8530482","profile_image_url":"http://a2.twimg.com/profile_images/137867266/n608671563_7396_normal.jpg","created_at":"Wed, 26 Jan 2011 03:50:12 +0000","from_user":"jeffmclamb","id_str":"30110229207187456","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Angel - daemon to run and monitor processes like daemontools or god, written in Haskell http://ff.im/-wNyLk","id":30110229207187456,"from_user_id":8530482,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://friendfeed.com&quot; rel=&quot;nofollow&quot;&gt;FriendFeed&lt;/a&gt;"},{"from_user_id_str":"177539201","profile_image_url":"http://a0.twimg.com/profile_images/1178368800/img_normal.jpeg","created_at":"Wed, 26 Jan 2011 03:46:01 +0000","from_user":"tomheon","id_str":"30109174645919744","metadata":{"result_type":"recent"},"to_user_id":1594784,"text":"@ojrac @chewedwire Don't worry, learning Haskell will not give you any clear idea what monad means.","id":30109174645919744,"from_user_id":177539201,"to_user":"ojrac","geo":null,"iso_language_code":"en","to_user_id_str":"1594784","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"1594784","profile_image_url":"http://a2.twimg.com/profile_images/378515773/square-profile_normal.jpg","created_at":"Wed, 26 Jan 2011 03:44:34 +0000","from_user":"ojrac","id_str":"30108808684503040","metadata":{"result_type":"recent"},"to_user_id":128028225,"text":"@chewedwire @tomheon Why are you making me curious about Haskell? I LIKE not knowing what monad means!!","id":30108808684503040,"from_user_id":1594784,"to_user":"chewedwire","geo":null,"iso_language_code":"en","to_user_id_str":"128028225","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"23750094","profile_image_url":"http://a0.twimg.com/profile_images/951373780/Moeinthecar_normal.jpg","created_at":"Wed, 26 Jan 2011 03:41:54 +0000","from_user":"shokalshab","id_str":"30108140443795456","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I'm at Magnitude Cheer @ Gymnastics Olympica USA (7735 Haskell Ave., btw Saticoy &amp; Strathern, Van Nuys) http://4sq.com/gmXfaL","id":30108140443795456,"from_user_id":23750094,"geo":null,"iso_language_code":"en","place":{"id":"4e4a2a2f86cb2946","type_":"poi","full_name":"Gymnastics Olympica USA, Van Nuys"},"to_user_id_str":null,"source":"&lt;a href=&quot;http://foursquare.com&quot; rel=&quot;nofollow&quot;&gt;foursquare&lt;/a&gt;"},{"from_user_id_str":"8135112","profile_image_url":"http://a0.twimg.com/profile_images/1165240350/LIMITED_normal.jpg","created_at":"Wed, 26 Jan 2011 03:41:35 +0000","from_user":"Claricei","id_str":"30108059208515584","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @kristenmchugh22: @KeithOlbermann Ryan looks like Jughead w/o the hat. And sounds as mealy-mouthed as Eddie Haskell.","id":30108059208515584,"from_user_id":8135112,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"128028225","profile_image_url":"http://a1.twimg.com/profile_images/1224994593/Coding_Drunk_normal.jpg","created_at":"Wed, 26 Jan 2011 03:40:02 +0000","from_user":"chewedwire","id_str":"30107670367182848","metadata":{"result_type":"recent"},"to_user_id":177539201,"text":"@tomheon Cool, I'll take a look. I feel like I should mention this: http://bit.ly/hVstDM","id":30107670367182848,"from_user_id":128028225,"to_user":"tomheon","geo":null,"iso_language_code":"en","to_user_id_str":"177539201","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"8679778","profile_image_url":"http://a3.twimg.com/profile_images/1195318056/me_nyc_12_18_10_icon_normal.jpg","created_at":"Wed, 26 Jan 2011 03:38:42 +0000","from_user":"kristenmchugh22","id_str":"30107332381777920","metadata":{"result_type":"recent"},"to_user_id":756269,"text":"@KeithOlbermann Ryan looks like Jughead w/o the hat. And sounds as mealy-mouthed as Eddie Haskell.","id":30107332381777920,"from_user_id":8679778,"to_user":"KeithOlbermann","geo":null,"iso_language_code":"en","to_user_id_str":"756269","source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"103316559","profile_image_url":"http://a1.twimg.com/profile_images/1179458751/bc3beab4-d59d-4e78-b13b-50747986cfa2_normal.png","created_at":"Wed, 26 Jan 2011 03:36:15 +0000","from_user":"cityslikr","id_str":"30106719153557504","metadata":{"result_type":"recent"},"to_user_id":null,"text":"&quot;Social safety net into a hammock.&quot; So says Eddie Haskell with the GOP response. #SOTU","id":30106719153557504,"from_user_id":103316559,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://blackberry.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Twitter for BlackBerry\u00ae&lt;/a&gt;"},{"from_user_id_str":"169063143","profile_image_url":"http://a0.twimg.com/profile_images/1160506212/9697_1_normal.gif","created_at":"Wed, 26 Jan 2011 03:31:52 +0000","from_user":"wrkforce_safety","id_str":"30105614919143424","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Federal investigation finds safety violations at The Acadia Hospital: By Meg Haskell, BDN Staff The investigatio... http://bit.ly/gA60C1","id":30105614919143424,"from_user_id":169063143,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"177539201","profile_image_url":"http://a0.twimg.com/profile_images/1178368800/img_normal.jpeg","created_at":"Wed, 26 Jan 2011 03:29:40 +0000","from_user":"tomheon","id_str":"30105060960632832","metadata":{"result_type":"recent"},"to_user_id":128028225,"text":"@chewedwire Great book on Haskell: http://oreilly.com/catalog/9780596514983","id":30105060960632832,"from_user_id":177539201,"to_user":"chewedwire","geo":null,"iso_language_code":"en","to_user_id_str":"128028225","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"782692","profile_image_url":"http://a0.twimg.com/profile_images/1031304589/Profile.2007.1_normal.jpg","created_at":"Wed, 26 Jan 2011 03:29:19 +0000","from_user":"turnageb","id_str":"30104974591533057","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @ovillalon: Paul Ryan solves the mystery of whatever happened to Eddie Haskell. #sotu","id":30104974591533057,"from_user_id":782692,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"128028225","profile_image_url":"http://a1.twimg.com/profile_images/1224994593/Coding_Drunk_normal.jpg","created_at":"Wed, 26 Jan 2011 03:28:04 +0000","from_user":"chewedwire","id_str":"30104657267265536","metadata":{"result_type":"recent"},"to_user_id":177539201,"text":"@tomheon I always loved the pattern matching in SML and it looks like Haskell is MUCH better at it. I'm messing around now at tryhaskell.org","id":30104657267265536,"from_user_id":128028225,"to_user":"tomheon","geo":null,"iso_language_code":"en","to_user_id_str":"177539201","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"12834082","profile_image_url":"http://a3.twimg.com/profile_images/1083036140/mugshot_normal.png","created_at":"Wed, 26 Jan 2011 03:28:01 +0000","from_user":"ovillalon","id_str":"30104647213518848","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Paul Ryan solves the mystery of whatever happened to Eddie Haskell. #sotu","id":30104647213518848,"from_user_id":12834082,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"13540930","profile_image_url":"http://a1.twimg.com/profile_images/1205312219/23467_350321383101_821143101_5114147_3010041_n_normal.jpg","created_at":"Wed, 26 Jan 2011 03:26:02 +0000","from_user":"goodfox","id_str":"30104146455560192","metadata":{"result_type":"recent"},"to_user_id":10226179,"text":"@billykeene22 Bordeaux is one of my heroes. I was so excited when he accepted the invitation to campus. He's been a great friend to Haskell.","id":30104146455560192,"from_user_id":13540930,"to_user":"billykeene22","geo":null,"iso_language_code":"en","to_user_id_str":"10226179","source":"&lt;a href=&quot;http://www.ubertwitter.com/bb/download.php&quot; rel=&quot;nofollow&quot;&gt;\u00dcberTwitter&lt;/a&gt;"},{"from_user_id_str":"18616016","profile_image_url":"http://a2.twimg.com/profile_images/1173522726/214397343_normal.jpg","created_at":"Wed, 26 Jan 2011 03:25:18 +0000","from_user":"josej30","id_str":"30103962313031681","metadata":{"result_type":"recent"},"to_user_id":14870909,"text":"@cris7ian Ahh bueno multiparadigma ya es respetable :) Empezar\u00e9 a explotar la parte funcional de los lenguajes ahora #Haskell","id":30103962313031681,"from_user_id":18616016,"to_user":"Cris7ian","geo":null,"iso_language_code":"es","to_user_id_str":"14870909","source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"14870909","profile_image_url":"http://a2.twimg.com/profile_images/1176930429/oso_yo_normal.png","created_at":"Wed, 26 Jan 2011 03:23:43 +0000","from_user":"Cris7ian","id_str":"30103562360983553","metadata":{"result_type":"recent"},"to_user_id":18616016,"text":"@josej30 hahaha no, es multiparadigma y es bastante lazy. Nothing like haskell, pero s\u00ed, el de Flash","id":30103562360983553,"from_user_id":14870909,"to_user":"josej30","geo":null,"iso_language_code":"es","to_user_id_str":"18616016","source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"2421643","profile_image_url":"http://a0.twimg.com/profile_images/1190361665/ernestgrumbles-17_normal.jpg","created_at":"Wed, 26 Jan 2011 03:20:24 +0000","from_user":"ernestgrumbles","id_str":"30102730756333568","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Wow... WolframAlpha did not know who Eddie Haskell is. Guess I'll never use that &quot;knowledge engine&quot; again.","id":30102730756333568,"from_user_id":2421643,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"128028225","profile_image_url":"http://a1.twimg.com/profile_images/1224994593/Coding_Drunk_normal.jpg","created_at":"Wed, 26 Jan 2011 03:14:21 +0000","from_user":"chewedwire","id_str":"30101204428132352","metadata":{"result_type":"recent"},"to_user_id":177539201,"text":"@tomheon How is Haskell better/different from CL or Scheme? I honestly don't know, although I'm becoming more curious.","id":30101204428132352,"from_user_id":128028225,"to_user":"tomheon","geo":null,"iso_language_code":"en","to_user_id_str":"177539201","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"13540930","profile_image_url":"http://a1.twimg.com/profile_images/1205312219/23467_350321383101_821143101_5114147_3010041_n_normal.jpg","created_at":"Wed, 26 Jan 2011 03:06:54 +0000","from_user":"goodfox","id_str":"30099329809129473","metadata":{"result_type":"recent"},"to_user_id":null,"text":"A day of vision &amp; speeches. #SOTU now. And a wonderful Haskell Convocation address earlier today by Sinte Gleske President Lionel Bordeaux.","id":30099329809129473,"from_user_id":13540930,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.ubertwitter.com/bb/download.php&quot; rel=&quot;nofollow&quot;&gt;\u00dcberTwitter&lt;/a&gt;"},{"from_user_id_str":"119185220","profile_image_url":"http://a0.twimg.com/profile_images/1089027228/dfg_normal.jpg","created_at":"Wed, 26 Jan 2011 03:03:38 +0000","from_user":"LaLiciouz_03","id_str":"30098510623805440","metadata":{"result_type":"recent"},"to_user_id":null,"text":"The Game with the girl room 330 Haskell follow us...","id":30098510623805440,"from_user_id":119185220,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"18616016","profile_image_url":"http://a2.twimg.com/profile_images/1173522726/214397343_normal.jpg","created_at":"Wed, 26 Jan 2011 02:57:25 +0000","from_user":"josej30","id_str":"30096946144215040","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Voy a extra\u00f1ar Haskell cuando regrese al mundo imperativo. Hay alg\u00fan lenguaje imperativo que tenga este poder funcional? #ci3661","id":30096946144215040,"from_user_id":18616016,"geo":null,"iso_language_code":"es","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"17671137","profile_image_url":"http://a2.twimg.com/profile_images/290264834/Haskell-logo-outer-glow_normal.png","created_at":"Wed, 26 Jan 2011 02:55:32 +0000","from_user":"Hackage","id_str":"30096471814574080","metadata":{"result_type":"recent"},"to_user_id":null,"text":"comonad-transformers 0.9.0, added by EdwardKmett: Haskell 98 comonad transformers http://bit.ly/h6xIsf","id":30096471814574080,"from_user_id":17671137,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"177539201","profile_image_url":"http://a0.twimg.com/profile_images/1178368800/img_normal.jpeg","created_at":"Wed, 26 Jan 2011 02:48:12 +0000","from_user":"tomheon","id_str":"30094626920603649","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Every time I look at Haskell I love it more.","id":30094626920603649,"from_user_id":177539201,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"60792568","profile_image_url":"http://a0.twimg.com/profile_images/1203647517/glenda-flash_normal.jpg","created_at":"Wed, 26 Jan 2011 02:40:42 +0000","from_user":"r_takaishi","id_str":"30092735935422464","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell\u3088\u308aD\u8a00\u8a9e\u304c\u4e0a\u3068\u306f\u601d\u308f\u306a\u304b\u3063\u305f\uff0e http://www.tiobe.com/index.php/content/paperinfo/tpci/index.html","id":30092735935422464,"from_user_id":60792568,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twmode.sf.net/&quot; rel=&quot;nofollow&quot;&gt;twmode&lt;/a&gt;"},{"from_user_id_str":"160145510","profile_image_url":"http://a0.twimg.com/profile_images/1218108166/going_galt_normal.jpg","created_at":"Wed, 26 Jan 2011 02:39:31 +0000","from_user":"wtp1787","id_str":"30092439653974018","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @KLSouth: Eddie Haskell Goes to Washington... &quot;You look really nice tonight, Ms Cleaver&quot;","id":30092439653974018,"from_user_id":160145510,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"96616016","profile_image_url":"http://a1.twimg.com/profile_images/1196978169/Picture0002_normal.jpg","created_at":"Wed, 26 Jan 2011 02:39:20 +0000","from_user":"MelissaRNMBA","id_str":"30092392203816960","metadata":{"result_type":"recent"},"to_user_id":14862975,"text":"@KLSouth At least Eddie Haskell was entertaining.","id":30092392203816960,"from_user_id":96616016,"to_user":"KLSouth","geo":null,"iso_language_code":"en","to_user_id_str":"14862975","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"14862975","profile_image_url":"http://a0.twimg.com/profile_images/421596393/kls_4_normal.JPG","created_at":"Wed, 26 Jan 2011 02:38:29 +0000","from_user":"KLSouth","id_str":"30092178327871489","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Eddie Haskell Goes to Washington... &quot;You look really nice tonight, Ms Cleaver&quot;","id":30092178327871489,"from_user_id":14862975,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Wed, 26 Jan 2011 02:36:17 +0000","from_user":"listwarenet","id_str":"30091626869161984","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-beginners/84641-haskell-beginners-wildcards-in-expressions.html Haskell-beginners - Wild","id":30091626869161984,"from_user_id":144546280,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"},{"from_user_id_str":"24538048","profile_image_url":"http://a2.twimg.com/profile_images/1117267605/rope_normal.jpg","created_at":"Wed, 26 Jan 2011 02:23:14 +0000","from_user":"dbph","id_str":"30088341030440960","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @dnene: Skilled Calisthenics. Haskell code that outputs python which spits ruby which emits the haskell source. http://j.mp/YlQUL via @mfeathers","id":30088341030440960,"from_user_id":24538048,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"158951567","profile_image_url":"http://a3.twimg.com/profile_images/962721419/Logo_3_normal.jpg","created_at":"Wed, 26 Jan 2011 01:58:31 +0000","from_user":"YubaVetTech","id_str":"30082124207886336","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Dr. Haskell has just been awarded the prestigious Hayward Award for \u2018Excellence in Education\u2019. This award honors... http://fb.me/QgQCxd74","id":30082124207886336,"from_user_id":158951567,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.facebook.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Facebook&lt;/a&gt;"},{"from_user_id_str":"158951567","profile_image_url":"http://a3.twimg.com/profile_images/962721419/Logo_3_normal.jpg","created_at":"Wed, 26 Jan 2011 01:56:04 +0000","from_user":"YubaVetTech","id_str":"30081505476743168","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Dr. Haskell has just been awarded the prestigous Haward Award for Excellence in Education. This award honors... http://fb.me/PC9mYmCR","id":30081505476743168,"from_user_id":158951567,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.facebook.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Facebook&lt;/a&gt;"},{"from_user_id_str":"2331498","profile_image_url":"http://a3.twimg.com/profile_images/494632120/me_normal.jpg","created_at":"Wed, 26 Jan 2011 01:43:50 +0000","from_user":"Verus","id_str":"30078427155406848","metadata":{"result_type":"recent"},"to_user_id":79273052,"text":"@kami_joe \u3044\u3084\uff0c\u8ab2\u984c\u306f\u89e3\u6c7a\u5bfe\u8c61(\u30d1\u30ba\u30eb\u3068\u304b)\u3092\u4e0e\u3048\u3089\u308c\u3066\uff0c\u554f\u984c\u5b9a\u7fa9\u3068\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0(\u6307\u5b9a\u8a00\u8a9e\u306fC++\u3082\u3057\u304f\u306fJava)\u3068\u3044\u3046\u3044\u308f\u3070\u666e\u901a\u306a\u8ab2\u984c\u3067\u306f\u3042\u308b\u3093\u3060\u3051\u3069\uff0e\u95a2\u6570\u578b\u8a00\u8a9e\u306fHaskell\u306e\u6388\u696d\u304c\u307e\u305f\u5225\u306b\u3042\u308b\u306e\uff0e","id":30078427155406848,"from_user_id":2331498,"to_user":"kami_joe","geo":null,"iso_language_code":"ja","to_user_id_str":"79273052","source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"79151233","profile_image_url":"http://a2.twimg.com/a/1295051201/images/default_profile_2_normal.png","created_at":"Wed, 26 Jan 2011 01:40:37 +0000","from_user":"cz_newdrafts","id_str":"30077617361125376","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell programming language http://bit.ly/gpPAwB","id":30077617361125376,"from_user_id":79151233,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://tommorris.org/&quot; rel=&quot;nofollow&quot;&gt;tommorris' hacksample&lt;/a&gt;"},{"from_user_id_str":"2331498","profile_image_url":"http://a3.twimg.com/profile_images/494632120/me_normal.jpg","created_at":"Wed, 26 Jan 2011 01:02:57 +0000","from_user":"Verus","id_str":"30068139416879104","metadata":{"result_type":"recent"},"to_user_id":9252720,"text":"@shukukei Java\u3068C\u306f\u3042\u308b\u7a0b\u5ea6\u66f8\u3051\u3066\u3042\u305f\u308a\u307e\u3048\u306a\u3068\u3053\u308d\u304c\u3042\u308b\u304b\u3089\u306a\u30fc\uff0ePython\u306f\u500b\u4eba\u7684\u306b\u611f\u899a\u304c\u5408\u308f\u306a\u3044\uff0e\u611f\u899a\u306a\u306e\u3067\uff0c\u3082\u3046\u3069\u3046\u3057\u3088\u3046\u3082\u306a\u3044\uff57 \u3044\u307e\u306fScala\u3068Haskell\u3092\u3082\u3063\u3068\u6975\u3081\u305f\u3044\u3068\u3053\u308d\uff0e","id":30068139416879104,"from_user_id":2331498,"to_user":"shukukei","geo":null,"iso_language_code":"ja","to_user_id_str":"9252720","source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"2781460","profile_image_url":"http://a0.twimg.com/profile_images/82526625/.joeyicon_normal.jpg","created_at":"Wed, 26 Jan 2011 01:02:35 +0000","from_user":"joeyhess","id_str":"30068046538219520","metadata":{"result_type":"recent"},"to_user_id":null,"text":"just figured out that I can use parameterized types to remove a dependency loop in git-annex's type definitions. whee #haskell","id":30068046538219520,"from_user_id":2781460,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://identi.ca&quot; rel=&quot;nofollow&quot;&gt;identica&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Wed, 26 Jan 2011 00:54:22 +0000","from_user":"listwarenet","id_str":"30065977920061440","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-beginners/84466-haskell-beginners-bytestring-question.html Haskell-beginners - Bytestrin","id":30065977920061440,"from_user_id":144546280,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"},{"from_user_id_str":"1291845","profile_image_url":"http://a0.twimg.com/profile_images/1225743404/ThinOxygen-small-opaque-solidarity_normal.png","created_at":"Wed, 26 Jan 2011 00:52:07 +0000","from_user":"_aaron_","id_str":"30065412242669568","metadata":{"result_type":"recent"},"to_user_id":null,"text":"wanted: librly licensed high level native compiled lang with min runtime (otherwise cobra/mono would be perfect) for win. lua? haskell? ooc?","id":30065412242669568,"from_user_id":1291845,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"5912444","profile_image_url":"http://a2.twimg.com/profile_images/546261026/ssf0xg11_normal.jpg","created_at":"Wed, 26 Jan 2011 00:45:45 +0000","from_user":"shelarcy","id_str":"30063810773516288","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @Hackage: download 0.3.1.1, added by MagnusTherning: High-level file download based on URLs http://bit.ly/eHfiJB","id":30063810773516288,"from_user_id":5912444,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"135993","profile_image_url":"http://a2.twimg.com/profile_images/1190667086/myface2010small_normal.jpg","created_at":"Wed, 26 Jan 2011 00:41:00 +0000","from_user":"kudzu_naoki","id_str":"30062613287141376","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @tanakh: \u9b54\u6cd5Haskell\u5c11\u5973\u5019\u88dc\u3092\u63a2\u3059\u306e\u3082\u5927\u5909\u306a\u3093\u3060","id":30062613287141376,"from_user_id":135993,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"52620546","profile_image_url":"http://a1.twimg.com/profile_images/434693356/twitter-icon_normal.png","created_at":"Wed, 26 Jan 2011 00:40:25 +0000","from_user":"omasanori","id_str":"30062465656033280","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u9b54\u6cd5Haskell\u5c11\u5973\u306e\u4e00\u65e5\u306fGHC HEAD\u306e\u30d3\u30eb\u30c9\u304b\u3089\u59cb\u307e\u308b","id":30062465656033280,"from_user_id":52620546,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.movatwi.jp&quot; rel=&quot;nofollow&quot;&gt;www.movatwi.jp&lt;/a&gt;"},{"from_user_id_str":"52620546","profile_image_url":"http://a1.twimg.com/profile_images/434693356/twitter-icon_normal.png","created_at":"Wed, 26 Jan 2011 00:37:12 +0000","from_user":"omasanori","id_str":"30061656331526144","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @tanakh: \u50d5\u3068\u5951\u7d04\u3057\u3066\u9b54\u6cd5Haskell\u5c11\u5973\u306b\u306a\u308d\u3046\u3088\uff01","id":30061656331526144,"from_user_id":52620546,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"135993","profile_image_url":"http://a2.twimg.com/profile_images/1190667086/myface2010small_normal.jpg","created_at":"Wed, 26 Jan 2011 00:35:42 +0000","from_user":"kudzu_naoki","id_str":"30061282665168896","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @tanakh: \u50d5\u3068\u5951\u7d04\u3057\u3066\u9b54\u6cd5Haskell\u5c11\u5973\u306b\u306a\u308d\u3046\u3088\uff01","id":30061282665168896,"from_user_id":135993,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"1631333","profile_image_url":"http://a1.twimg.com/profile_images/81268862/profile300_normal.jpg","created_at":"Wed, 26 Jan 2011 00:30:02 +0000","from_user":"qnighy","id_str":"30059855884582913","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @tanakh: \u50d5\u3068\u5951\u7d04\u3057\u3066\u9b54\u6cd5Haskell\u5c11\u5973\u306b\u306a\u308d\u3046\u3088\uff01","id":30059855884582913,"from_user_id":1631333,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"9093754","profile_image_url":"http://a1.twimg.com/profile_images/99435906/PHD_3d_col_blk_normal.jpg","created_at":"Wed, 26 Jan 2011 00:26:20 +0000","from_user":"phdwine","id_str":"30058925516656640","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Last weekend of Tri Nations Tasting with PHD wines at Haskell Vineyards. Hope you didn't miss the Pinot Noir tasting last week !","id":30058925516656640,"from_user_id":9093754,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"2119923","profile_image_url":"http://a2.twimg.com/profile_images/1096701078/djayprofile_normal.jpg","created_at":"Wed, 26 Jan 2011 00:21:14 +0000","from_user":"djay75","id_str":"30057639543050240","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @dnene: Skilled Calisthenics. Haskell code that outputs python which spits ruby which emits the haskell source. http://j.mp/YlQUL via @mfeathers","id":30057639543050240,"from_user_id":2119923,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"134323731","profile_image_url":"http://a2.twimg.com/profile_images/1225818824/IMG00518-20110125-1547_normal.jpg","created_at":"Wed, 26 Jan 2011 00:19:30 +0000","from_user":"PrinceOfBrkeley","id_str":"30057205554216960","metadata":{"result_type":"recent"},"to_user_id":167093027,"text":"@PayThaPrince go to haskell.","id":30057205554216960,"from_user_id":134323731,"to_user":"PayThaPrince","geo":null,"iso_language_code":"en","to_user_id_str":"167093027","source":"&lt;a href=&quot;http://blackberry.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Twitter for BlackBerry\u00ae&lt;/a&gt;"},{"from_user_id_str":"705857","profile_image_url":"http://a1.twimg.com/profile_images/429483912/ben_twitter_normal.jpg","created_at":"Wed, 26 Jan 2011 00:03:28 +0000","from_user":"bennadel","id_str":"30053166972141569","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Using #Homebrew to install Haskell - the last of the Seven Languages (in Seven Weeks) http://bit.ly/eA9Cv1 This has been some journey.","id":30053166972141569,"from_user_id":705857,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"251466","profile_image_url":"http://a2.twimg.com/profile_images/1194100934/pass_normal.jpg","created_at":"Wed, 26 Jan 2011 00:02:54 +0000","from_user":"simonszu","id_str":"30053025502466048","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Ouh yeah! Ich werde doch produktiv sein, diese Semesterferien. Ich werde funktional Programmieren lernen. #haskell, Baby.","id":30053025502466048,"from_user_id":251466,"geo":null,"iso_language_code":"de","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"357786","profile_image_url":"http://a0.twimg.com/profile_images/612044841/FM_2010_normal.jpg","created_at":"Tue, 25 Jan 2011 23:59:13 +0000","from_user":"diligiant","id_str":"30052100973006848","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @paulrbrown: &quot;...we only discovered a single bug after compilation.&quot; (http://t.co/K0wlEYz) #haskell","id":30052100973006848,"from_user_id":357786,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"101597523","profile_image_url":"http://a1.twimg.com/profile_images/1206183256/2010-12-12-204902_normal.jpg","created_at":"Tue, 25 Jan 2011 23:54:46 +0000","from_user":"wlad_kent","id_str":"30050977964892160","metadata":{"result_type":"recent"},"to_user_id":86297184,"text":"@Nilson_Neto Isso eh bem basico. quando vc estiver estudando recurs\u00e3o em Haskell, ai vc vai ver oq eh papo de nerd - kkk - 1\u00ba periodo isso.","id":30050977964892160,"from_user_id":101597523,"to_user":"Nilson_Neto","geo":null,"iso_language_code":"pt","to_user_id_str":"86297184","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Tue, 25 Jan 2011 23:51:22 +0000","from_user":"listwarenet","id_str":"30050123383832577","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-cafe/84336-haskell-cafe-monomorphic-let-bindings-and-darcs.html Haskell-cafe - Monomorph","id":30050123383832577,"from_user_id":144546280,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"},{"from_user_id_str":"5776901","profile_image_url":"http://a0.twimg.com/profile_images/472682157/lucabw_normal.JPG","created_at":"Tue, 25 Jan 2011 23:48:40 +0000","from_user":"lsbardel","id_str":"30049446469312512","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Very interesting technology stack these guys use http://bit.ly/ghAjS7 #python #redis #haskell","id":30049446469312512,"from_user_id":5776901,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"3005901","profile_image_url":"http://a0.twimg.com/profile_images/278943006/Lone_Pine_Peak_-_Peter_200x200_normal.jpg","created_at":"Tue, 25 Jan 2011 23:45:48 +0000","from_user":"pmonks","id_str":"30048721110573056","metadata":{"result_type":"recent"},"to_user_id":203834278,"text":"@techielicous Haskell: http://bit.ly/gy3oFi ;-)","id":30048721110573056,"from_user_id":3005901,"to_user":"techielicous","geo":null,"iso_language_code":"en","to_user_id_str":"203834278","source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"162697074","profile_image_url":"http://a2.twimg.com/profile_images/826205838/ryan3_normal.jpg","created_at":"Tue, 25 Jan 2011 23:44:47 +0000","from_user":"TheRonaldMCD","id_str":"30048468781244416","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I'm at Aldi Food Market (4122 Gaston Ave, Haskell, Dallas) http://4sq.com/ekqRY7","id":30048468781244416,"from_user_id":162697074,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://foursquare.com&quot; rel=&quot;nofollow&quot;&gt;foursquare&lt;/a&gt;"},{"from_user_id_str":"203834278","profile_image_url":"http://a0.twimg.com/profile_images/1223375080/me_normal.jpg","created_at":"Tue, 25 Jan 2011 23:44:04 +0000","from_user":"techielicous","id_str":"30048286589067264","metadata":{"result_type":"recent"},"to_user_id":3005901,"text":"@pmonks I was thinking Haskell or Scheme","id":30048286589067264,"from_user_id":203834278,"to_user":"pmonks","geo":null,"iso_language_code":"en","to_user_id_str":"3005901","source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"537690","profile_image_url":"http://a3.twimg.com/profile_images/45665122/nushiostamp_normal.jpg","created_at":"Tue, 25 Jan 2011 23:38:14 +0000","from_user":"nushio","id_str":"30046818658164737","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u305d\u3046\u3044\u3084\u5951\u7d04\u306b\u3088\u308b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u3068\u304b\u3042\u3063\u305f\u306a\u3002Haskell\u306a\u3093\u304b\u3088\u308a\u3042\u3063\u3061\u306e\u65b9\u304c\u9b54\u6cd5\u5c11\u5973\u547c\u3070\u308f\u308a\u306b\u3075\u3055\u308f\u3057\u3044\u3002","id":30046818658164737,"from_user_id":537690,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"181192","profile_image_url":"http://a2.twimg.com/profile_images/1089890701/q530888600_9828_normal.jpg","created_at":"Tue, 25 Jan 2011 23:38:03 +0000","from_user":"aodag","id_str":"30046772223016960","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @omasanori: \u300c\u3082\u3046\u4f55\u5e74\u3082Haskell\u306e\u3053\u3068\u3057\u304b\u8003\u3048\u3066\u306a\u304b\u3063\u305f\u304b\u3089\u306a\u3001\u30eb\u30fc\u30d7\u306e\u4f7f\u3044\u65b9\u5fd8\u308c\u3066\u305f\u300d","id":30046772223016960,"from_user_id":181192,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.movatwi.jp&quot; rel=&quot;nofollow&quot;&gt;www.movatwi.jp&lt;/a&gt;"},{"from_user_id_str":"5886055","profile_image_url":"http://a3.twimg.com/profile_images/85531669/ichi_normal.jpg","created_at":"Tue, 25 Jan 2011 23:37:53 +0000","from_user":"kanaya","id_str":"30046729243983873","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u9e97\u3057\u3044\u3002\u201c@omasanori: \u300c\u3082\u3046\u4f55\u5e74\u3082Haskell\u306e\u3053\u3068\u3057\u304b\u8003\u3048\u3066\u306a\u304b\u3063\u305f\u304b\u3089\u306a\u3001\u30eb\u30fc\u30d7\u306e\u4f7f\u3044\u65b9\u5fd8\u308c\u3066\u305f\u300d\u201d","id":30046729243983873,"from_user_id":5886055,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://itunes.apple.com/app/twitter/id333903271?mt=8&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPad&lt;/a&gt;"},{"from_user_id_str":"52620546","profile_image_url":"http://a1.twimg.com/profile_images/434693356/twitter-icon_normal.png","created_at":"Tue, 25 Jan 2011 23:36:26 +0000","from_user":"omasanori","id_str":"30046367187476481","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u300c\u3082\u3046\u4f55\u5e74\u3082Haskell\u306e\u3053\u3068\u3057\u304b\u8003\u3048\u3066\u306a\u304b\u3063\u305f\u304b\u3089\u306a\u3001\u30eb\u30fc\u30d7\u306e\u4f7f\u3044\u65b9\u5fd8\u308c\u3066\u305f\u300d","id":30046367187476481,"from_user_id":52620546,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.movatwi.jp&quot; rel=&quot;nofollow&quot;&gt;www.movatwi.jp&lt;/a&gt;"},{"from_user_id_str":"1659992","profile_image_url":"http://a1.twimg.com/profile_images/504488750/1_normal.jpg","created_at":"Tue, 25 Jan 2011 23:16:13 +0000","from_user":"finalfusion","id_str":"30041278544609280","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @necocen: Haskell\u306e\u30df\u30b5\u30ef\u3001\u3068\u3044\u3046\u3082\u306e\u3092\u8003\u3048\u3066\u307f\u3066\u3071\u3063\u3068\u3057\u306a\u3044","id":30041278544609280,"from_user_id":1659992,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"272513","profile_image_url":"http://a2.twimg.com/profile_images/320244078/Mike_Painting2_normal.png","created_at":"Tue, 25 Jan 2011 23:05:09 +0000","from_user":"mikehadlow","id_str":"30038492373319680","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Just written the same simple program in C#, F# and Haskell: 18, 12 and 9 LoC respectively. And I'm much better at C# than F# or Haskell.","id":30038492373319680,"from_user_id":272513,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"89393264","profile_image_url":"http://a0.twimg.com/profile_images/1169486472/020_portland_me_normal.jpg","created_at":"Tue, 25 Jan 2011 23:01:28 +0000","from_user":"newsportlandme","id_str":"30037564589084673","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Governor's Choice to Run Maine DOC Under Scrutiny - MPBN: State Rep. Anne Haskell, a Portland Democrat, says Mai... http://bit.ly/fO30gC","id":30037564589084673,"from_user_id":89393264,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"38138","profile_image_url":"http://a3.twimg.com/profile_images/1212565885/Screen_shot_2011-01-11_at_5.28.47_PM_normal.png","created_at":"Tue, 25 Jan 2011 22:59:55 +0000","from_user":"michaelneale","id_str":"30037174615281664","metadata":{"result_type":"recent"},"to_user_id":null,"text":"The haskell EvilMangler http://t.co/P2Tls7J","id":30037174615281664,"from_user_id":38138,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"45692","profile_image_url":"http://a3.twimg.com/profile_images/1177741507/dogkarno_r_normal.jpg","created_at":"Tue, 25 Jan 2011 22:45:06 +0000","from_user":"karno","id_str":"30033448286552064","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell\u3063\u3066\u95a2\u6570\u306b\u30ab\u30ec\u30fc\u7c89\u3076\u3061\u8fbc\u3080\u3068\u304b\u306a\u3093\u3068\u304b","id":30033448286552064,"from_user_id":45692,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://yubitter.com/&quot; rel=&quot;nofollow&quot;&gt;yubitter&lt;/a&gt;"},{"from_user_id_str":"27605","profile_image_url":"http://a2.twimg.com/profile_images/15826632/meron_normal.jpg","created_at":"Tue, 25 Jan 2011 22:44:23 +0000","from_user":"celeron1ghz","id_str":"30033268761956352","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @necocen: Haskell\u306e\u30df\u30b5\u30ef\u3001\u3068\u3044\u3046\u3082\u306e\u3092\u8003\u3048\u3066\u307f\u3066\u3071\u3063\u3068\u3057\u306a\u3044","id":30033268761956352,"from_user_id":27605,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"12901","profile_image_url":"http://a1.twimg.com/profile_images/56091349/haruhi_nagato-Y_normal.jpg","created_at":"Tue, 25 Jan 2011 22:43:30 +0000","from_user":"necocen","id_str":"30033044035346432","metadata":{"result_type":"recent"},"to_user_id":null,"text":"\u307e\u3042Haskell\u77e5\u3089\u3093\u3057\u306d","id":30033044035346432,"from_user_id":12901,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"12901","profile_image_url":"http://a1.twimg.com/profile_images/56091349/haruhi_nagato-Y_normal.jpg","created_at":"Tue, 25 Jan 2011 22:42:54 +0000","from_user":"necocen","id_str":"30032894856531968","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell\u306e\u30df\u30b5\u30ef\u3001\u3068\u3044\u3046\u3082\u306e\u3092\u8003\u3048\u3066\u307f\u3066\u3071\u3063\u3068\u3057\u306a\u3044","id":30032894856531968,"from_user_id":12901,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"10821270","profile_image_url":"http://a0.twimg.com/profile_images/1195474259/Salto_Marlon_normal.jpg","created_at":"Tue, 25 Jan 2011 22:35:09 +0000","from_user":"jjedMoriAnktah","id_str":"30030942106025984","metadata":{"result_type":"recent"},"to_user_id":null,"text":"&quot;A Haskell program that outputs a Python program that outputs a Ruby program that outputs the original Haskell program&quot; http://is.gd/E6Julu","id":30030942106025984,"from_user_id":10821270,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"7554762","profile_image_url":"http://a0.twimg.com/profile_images/100515212/ajay-photo_normal.jpg","created_at":"Tue, 25 Jan 2011 22:34:30 +0000","from_user":"comatose_kid","id_str":"30030780205899776","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @bumptech: Bump Dev Blog - Why we use Haskell at Bump http://devblog.bu.mp/haskell-at-bump","id":30030780205899776,"from_user_id":7554762,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"148474705","profile_image_url":"http://a0.twimg.com/profile_images/1119234716/fur_hat_-_gilbeys_vodka_-_life_-_11-30-1962_normal.JPG","created_at":"Tue, 25 Jan 2011 22:29:19 +0000","from_user":"landmvintage","id_str":"30029476003840000","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @faerymoongodess: Magnificent Miriam Haskell Baroque Pearl Necklace by @MercyMadge http://etsy.me/hqRl51","id":30029476003840000,"from_user_id":148474705,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"37715508","profile_image_url":"http://a1.twimg.com/profile_images/1207891411/ballerina_normal.jpg","created_at":"Tue, 25 Jan 2011 22:24:52 +0000","from_user":"faerymoongodess","id_str":"30028356326002688","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Magnificent Miriam Haskell Baroque Pearl Necklace by @MercyMadge http://etsy.me/hqRl51","id":30028356326002688,"from_user_id":37715508,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"17671137","profile_image_url":"http://a2.twimg.com/profile_images/290264834/Haskell-logo-outer-glow_normal.png","created_at":"Tue, 25 Jan 2011 22:17:16 +0000","from_user":"Hackage","id_str":"30026442456694784","metadata":{"result_type":"recent"},"to_user_id":null,"text":"base16-bytestring 0.1.0.0, added by BryanOSullivan: Fast base16 (hex) encoding and deconding for ByteStrings http://bit.ly/eu75TN","id":30026442456694784,"from_user_id":17671137,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"199750997","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Tue, 25 Jan 2011 22:12:07 +0000","from_user":"benreads","id_str":"30025146991382528","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Writing Systems Software in a Functional Language -- brief, but fun. I want to see how well they can make Systems Haskell perform at scale.","id":30025146991382528,"from_user_id":199750997,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"35359797","profile_image_url":"http://a1.twimg.com/profile_images/1173453785/48893_521140819_1896062_q_normal.jpg","created_at":"Tue, 25 Jan 2011 22:09:45 +0000","from_user":"jcawthorne1","id_str":"30024549265309696","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Just saw Jeff Haskell give the middle finger!! Lol awesome","id":30024549265309696,"from_user_id":35359797,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"13540930","profile_image_url":"http://a1.twimg.com/profile_images/1205312219/23467_350321383101_821143101_5114147_3010041_n_normal.jpg","created_at":"Tue, 25 Jan 2011 22:06:44 +0000","from_user":"goodfox","id_str":"30023790381498369","metadata":{"result_type":"recent"},"to_user_id":null,"text":"At the Haskell Convocation. (@ Haskell Indian Nations U Auditorium) http://4sq.com/eKKXyn","id":30023790381498369,"from_user_id":13540930,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://foursquare.com&quot; rel=&quot;nofollow&quot;&gt;foursquare&lt;/a&gt;"},{"from_user_id_str":"14674418","profile_image_url":"http://a2.twimg.com/profile_images/238230125/IMG_1030-1_normal.jpg","created_at":"Tue, 25 Jan 2011 22:02:31 +0000","from_user":"sanityinc","id_str":"30022731919523840","metadata":{"result_type":"recent"},"to_user_id":371289,"text":"@xshay Haskell's great, but Clojure's similarly lazy in all the ways that matter, and is more practical for day-to-day use.","id":30022731919523840,"from_user_id":14674418,"to_user":"xshay","geo":null,"iso_language_code":"en","to_user_id_str":"371289","source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"371289","profile_image_url":"http://a2.twimg.com/profile_images/1113482439/me-brisbane_normal.jpg","created_at":"Tue, 25 Jan 2011 21:58:29 +0000","from_user":"xshay","id_str":"30021714444292096","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Just made a lazy sequence of prime numbers in haskell. I'm smitten.","id":30021714444292096,"from_user_id":371289,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"199453873","profile_image_url":"http://a3.twimg.com/a/1294785484/images/default_profile_3_normal.png","created_at":"Tue, 25 Jan 2011 21:48:40 +0000","from_user":"stackfeed","id_str":"30019243982454784","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Practical Scala reference manual, for searching things like method names: Hello, \n\nInspired by\nHaskell API Searc... http://bit.ly/g4zWZQ","id":30019243982454784,"from_user_id":199453873,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"17489366","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Tue, 25 Jan 2011 21:45:32 +0000","from_user":"aapnoot","id_str":"30018455189065728","metadata":{"result_type":"recent"},"to_user_id":null,"text":"download 0.3.1, added by MagnusTherning: High-level file download based on URLs http://bit.ly/i8mYvi","id":30018455189065728,"from_user_id":17489366,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"17489366","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Tue, 25 Jan 2011 21:45:31 +0000","from_user":"aapnoot","id_str":"30018452601180160","metadata":{"result_type":"recent"},"to_user_id":null,"text":"download 0.3.1.1, added by MagnusTherning: High-level file download based on URLs http://bit.ly/eHfiJB","id":30018452601180160,"from_user_id":17489366,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"17671137","profile_image_url":"http://a2.twimg.com/profile_images/290264834/Haskell-logo-outer-glow_normal.png","created_at":"Tue, 25 Jan 2011 21:45:31 +0000","from_user":"Hackage","id_str":"30018451867176960","metadata":{"result_type":"recent"},"to_user_id":null,"text":"download 0.3.1, added by MagnusTherning: High-level file download based on URLs http://bit.ly/i8mYvi","id":30018451867176960,"from_user_id":17671137,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"138502705","profile_image_url":"http://a1.twimg.com/profile_images/1083845614/yclogo_normal.gif","created_at":"Tue, 25 Jan 2011 21:45:04 +0000","from_user":"newsyc100","id_str":"30018340839755777","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell improves log processing 4x over Python http://devblog.bu.mp/haskell-at-bump (http://bit.ly/gQxxR8)","id":30018340839755777,"from_user_id":138502705,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://news.ycombinator.com&quot; rel=&quot;nofollow&quot;&gt;newsyc&lt;/a&gt;"},{"from_user_id_str":"1578246","profile_image_url":"http://a0.twimg.com/profile_images/59312315/avatar_simpson_small_normal.jpg","created_at":"Tue, 25 Jan 2011 21:43:32 +0000","from_user":"magthe","id_str":"30017953801969665","metadata":{"result_type":"recent"},"to_user_id":null,"text":"New version of download uploaded to #hackage #haskell","id":30017953801969665,"from_user_id":1578246,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://api.supertweet.net&quot; rel=&quot;nofollow&quot;&gt;MyAuth API Proxy&lt;/a&gt;"},{"from_user_id_str":"135838970","profile_image_url":"http://a2.twimg.com/profile_images/1079929891/logo_normal.png","created_at":"Tue, 25 Jan 2011 21:37:51 +0000","from_user":"reward999","id_str":"30016525180084224","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Found Great Dane (Main &amp; Haskell- Dallas): We found a great dane. 214-712-0000 http://bit.ly/fQ8iBw","id":30016525180084224,"from_user_id":135838970,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"137719265","profile_image_url":"http://a2.twimg.com/profile_images/1092224079/8__4__normal.jpg","created_at":"Tue, 25 Jan 2011 21:34:22 +0000","from_user":"WeiMatas","id_str":"30015646020411392","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Fourth day Rez party Eddie Haskell County in second life \u2013 which took place in cabaret Tadd","id":30015646020411392,"from_user_id":137719265,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://dlvr.it&quot; rel=&quot;nofollow&quot;&gt;dlvr.it&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Tue, 25 Jan 2011 21:33:21 +0000","from_user":"listwarenet","id_str":"30015392571195392","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-cafe/83889-haskell-cafe-gpl-license-of-h-matrix-and-prelude-numeric.html Haskell-cafe -","id":30015392571195392,"from_user_id":144546280,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"}],"max_id":30121530767708160,"since_id":0,"refresh_url":"?since_id=30121530767708160&q=haskell","next_page":"?page=2&max_id=30121530767708160&rpp=100&q=haskell","results_per_page":100,"page":1,"completed_in":1.195569,"since_id_str":"0","max_id_str":"30121530767708160","query":"haskell"}
benchmarks/json-data/twitter20.jsonnew file+1
@@ -0,0 +1 @@
1+{"results":[{"from_user_id_str":"166199691","profile_image_url":"http://a2.twimg.com/profile_images/1252958188/38_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:26 +0000","from_user":"_classicc","id_str":"41191052790603776","metadata":{"result_type":"recent"},"to_user_id":null,"text":"my twitter is actin slow today.","id":41191052790603776,"from_user_id":166199691,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"138835410","profile_image_url":"http://a1.twimg.com/profile_images/1250985094/243321801_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:26 +0000","from_user":"amereronday","id_str":"41191050307567616","metadata":{"result_type":"recent"},"to_user_id":null,"text":"twitter jail, here i come.","id":41191050307567616,"from_user_id":138835410,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"359548","profile_image_url":"http://a2.twimg.com/profile_images/53612334/don_otvos_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:26 +0000","from_user":"donnyo","id_str":"41191050110451712","metadata":{"result_type":"recent"},"to_user_id":7074534,"text":"@stlsmallbiz I see there is currently a Twitter promo too....tempting....","id":41191050110451712,"from_user_id":359548,"to_user":"stlsmallbiz","geo":null,"iso_language_code":"en","place":{"id":"82b7b2f97b12261d","type_":"poi","full_name":"Yammer Inc, San Francisco"},"to_user_id_str":"7074534","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"122523770","profile_image_url":"http://a0.twimg.com/profile_images/1073533262/11646_1076222405045_1810798478_156114_3663737_n_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:26 +0000","from_user":"msBreChan","id_str":"41191049720238080","metadata":{"result_type":"recent"},"to_user_id":null,"text":"so twitter gt spam now -_-","id":41191049720238080,"from_user_id":122523770,"geo":{"type_":"Point","coordinates":[35.2213,-80.8276]},"iso_language_code":"en","place":{"id":"4d5ed95f830e9b41","type_":"neighborhood","full_name":"Elizabeth, Charlotte"},"to_user_id_str":null,"source":"&lt;a href=&quot;http://mobile.twitter.com&quot; rel=&quot;nofollow&quot;&gt;Twitter for Android&lt;/a&gt;"},{"from_user_id_str":"229024950","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_6_normal.png","created_at":"Fri, 25 Feb 2011 17:41:25 +0000","from_user":"NinaMaechik","id_str":"41191047853912064","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Glad I can remember my twitter password! LOL! Hugs to Nick from his aunties...","id":41191047853912064,"from_user_id":229024950,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"215545822","profile_image_url":"http://a2.twimg.com/profile_images/1239909540/RTL_normal.png","created_at":"Fri, 25 Feb 2011 17:41:25 +0000","from_user":"RightToLaugh","id_str":"41191047371558912","metadata":{"result_type":"recent"},"to_user_id":null,"text":"#Bacon wrapped dates http://bit.ly/hUxVC9 Just like my grandma used to make http://twitter.com/#","id":41191047371558912,"from_user_id":215545822,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"217845526","profile_image_url":"http://a0.twimg.com/sticky/default_profile_images/default_profile_3_normal.png","created_at":"Fri, 25 Feb 2011 17:41:25 +0000","from_user":"TheShoeLooker","id_str":"41191047052804096","metadata":{"result_type":"recent"},"to_user_id":38033240,"text":"@ShoeDazzle love love love to twitter or blog about your deals and shoes!\ntheshoelooker.blogspot.com","id":41191047052804096,"from_user_id":217845526,"to_user":"shoedazzle","geo":null,"iso_language_code":"en","to_user_id_str":"38033240","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"24953438","profile_image_url":"http://a3.twimg.com/profile_images/1181252763/76820_10150100014748783_677998782_7386695_4377006_n_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:25 +0000","from_user":"liljermaine32","id_str":"41191046025056256","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Twitter fam I gotta question 4 ya is texas south or midwest #arguments","id":41191046025056256,"from_user_id":24953438,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://mobile.twitter.com&quot; rel=&quot;nofollow&quot;&gt;Twitter for Android&lt;/a&gt;"},{"from_user_id_str":"122451024","profile_image_url":"http://a2.twimg.com/profile_images/1143400129/100706-ETCanada_201134_1__normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:25 +0000","from_user":"Kim_DEon","id_str":"41191045161164801","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Help @CARE @EvaLongoria and ME use Twitter to change the lives of girls in poverty across the world! Ready? Go to http://TwitChange.com NOW!","id":41191045161164801,"from_user_id":122451024,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"128351479","profile_image_url":"http://a3.twimg.com/profile_images/1150198829/Kirby_Photo__edit__normal.JPG","created_at":"Fri, 25 Feb 2011 17:41:24 +0000","from_user":"TheDaveKirby","id_str":"41191043894493184","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Maybe its time to clean house...MY HOUSE http://bit.ly/ejG22P","id":41191043894493184,"from_user_id":128351479,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"87512773","profile_image_url":"http://a0.twimg.com/profile_images/1252511106/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:24 +0000","from_user":"supportthehood","id_str":"41191043206610946","metadata":{"result_type":"recent"},"to_user_id":2467330,"text":"@eastcoastmp3 #FF it's the way twitter works !!!","id":41191043206610946,"from_user_id":87512773,"to_user":"eastcoastmp3","geo":null,"iso_language_code":"en","to_user_id_str":"2467330","source":"&lt;a href=&quot;http://twitter.com/&quot; rel=&quot;nofollow&quot;&gt;Twitter for iPhone&lt;/a&gt;"},{"from_user_id_str":"149894545","profile_image_url":"http://a0.twimg.com/profile_images/1219334400/patrick_camo_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:24 +0000","from_user":"suburbpat","id_str":"41191040912330752","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I havent had a rib session on twitter in a while.......I wanna Rib with a nigga with alot followers lol","id":41191040912330752,"from_user_id":149894545,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"97749622","profile_image_url":"http://a0.twimg.com/profile_images/1254640781/IMG1633A_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:24 +0000","from_user":"jrricardosantos","id_str":"41191040547430400","metadata":{"result_type":"recent"},"to_user_id":101017476,"text":"@yofzs pq tirou o CAPS LOCK? kkkk tava bem legal...hehehe eu estou no t\u00e9dio...kkk tbm estou no twitter e msn..aff!!","id":41191040547430400,"from_user_id":97749622,"to_user":"yofzs","geo":null,"iso_language_code":"en","to_user_id_str":"101017476","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"94381536","profile_image_url":"http://a1.twimg.com/profile_images/1174777929/41509_100001699300415_3521888_n_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:23 +0000","from_user":"DonNieves","id_str":"41191038978752512","metadata":{"result_type":"recent"},"to_user_id":151926400,"text":"@TiiH13 cheira meu ovo, no email, no orkut, no msn, no facebook, no twitter, no skype, no spark, no ICQ e no google talk","id":41191038978752512,"from_user_id":94381536,"to_user":"TiiH13","geo":null,"iso_language_code":"en","to_user_id_str":"151926400","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"211858432","profile_image_url":"http://a3.twimg.com/profile_images/1231906180/JonasBrothers_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:23 +0000","from_user":"OriginalJBfans","id_str":"41191038328651776","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I literally forgot about this twitter... so whats occuring followers?","id":41191038328651776,"from_user_id":211858432,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"90317132","profile_image_url":"http://a3.twimg.com/profile_images/1230085056/254101635_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:23 +0000","from_user":"Just2smooth","id_str":"41191036936126464","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Wassup twitter","id":41191036936126464,"from_user_id":90317132,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://ubersocial.com&quot; rel=&quot;nofollow&quot;&gt;\u00dcberSocial&lt;/a&gt;"},{"from_user_id_str":"144771504","profile_image_url":"http://a1.twimg.com/profile_images/1243343836/image_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:23 +0000","from_user":"ima_b_b_badman","id_str":"41191036638339072","metadata":{"result_type":"recent"},"to_user_id":null,"text":"i been M.I.A. all day twitter my bad","id":41191036638339072,"from_user_id":144771504,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"207922664","profile_image_url":"http://a2.twimg.com/profile_images/1237106108/258356167_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:22 +0000","from_user":"itsthecarter_","id_str":"41191036013391873","metadata":{"result_type":"recent"},"to_user_id":null,"text":"twitter is a stupid addiction.","id":41191036013391873,"from_user_id":207922664,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://ubersocial.com&quot; rel=&quot;nofollow&quot;&gt;\u00dcberSocial&lt;/a&gt;"},{"from_user_id_str":"150000649","profile_image_url":"http://a0.twimg.com/profile_images/1237789059/belllaa_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:22 +0000","from_user":"angelicabrvo","id_str":"41191035707207680","metadata":{"result_type":"recent"},"to_user_id":null,"text":"que hubo twitter? huy que feoxd","id":41191035707207680,"from_user_id":150000649,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://blackberry.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Twitter for BlackBerry\u00ae&lt;/a&gt;"},{"from_user_id_str":"185713003","profile_image_url":"http://a2.twimg.com/profile_images/1191421540/163229_177015295661467_154687431227587_492170_2147500_n_normal.jpg","created_at":"Fri, 25 Feb 2011 17:41:22 +0000","from_user":"downbytheshores","id_str":"41191033945595905","metadata":{"result_type":"recent"},"to_user_id":null,"text":"follow us on twitter\nwww.twitter.com/downbytheshores http://fb.me/DhDS915e","id":41191033945595905,"from_user_id":185713003,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.facebook.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Facebook&lt;/a&gt;"}],"max_id":41191052790603776,"since_id":38643906774044672,"refresh_url":"?since_id=41191052790603776&q=twitter","next_page":"?page=2&max_id=41191052790603776&rpp=20&lang=en&q=twitter","results_per_page":20,"page":1,"completed_in":0.128719,"warning":"adjusted since_id to 38643906774044672 (), requested since_id was older than allowed -- since_id removed for pagination.","since_id_str":"38643906774044672","max_id_str":"41191052790603776","query":"twitter"}
benchmarks/json-data/twitter50.jsonnew file+1
@@ -0,0 +1 @@
1+{"results":[{"from_user_id_str":"207858021","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Wed, 26 Jan 2011 04:30:38 +0000","from_user":"pboudarga","id_str":"30120402839666689","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I'm at Rolla Sushi Grill (27737 Bouquet Canyon Road, #106, Btw Haskell Canyon and Rosedell Drive, Saugus) http://4sq.com/gqqdhs","id":30120402839666689,"from_user_id":207858021,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://foursquare.com&quot; rel=&quot;nofollow&quot;&gt;foursquare&lt;/a&gt;"},{"from_user_id_str":"69988683","profile_image_url":"http://a0.twimg.com/profile_images/1211955817/avatar_7888_normal.gif","created_at":"Wed, 26 Jan 2011 04:25:23 +0000","from_user":"YNK33","id_str":"30119083059978240","metadata":{"result_type":"recent"},"to_user_id":null,"text":"hsndfile 0.5.0: Free and open source Haskell bindings for libsndfile http://bit.ly/gHaBWG Mac Os","id":30119083059978240,"from_user_id":69988683,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"81492","profile_image_url":"http://a1.twimg.com/profile_images/423894208/Picture_7_normal.jpg","created_at":"Wed, 26 Jan 2011 04:24:28 +0000","from_user":"satzz","id_str":"30118851488251904","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Emacs\u306e\u30e2\u30fc\u30c9\u8868\u793a\u304c\u4eca(Ruby Controller Outputz RoR Flymake REl hs)\u3068\u306a\u3063\u3066\u3066\u3088\u304f\u308f\u304b\u3089\u306a\u3044\u3093\u3060\u3051\u3069\u6700\u5f8c\u306eREl\u3068\u304bhs\u3063\u3066\u4f55\u3060\u308d\u3046\u2026haskell\u3068\u304b2\u5e74\u4ee5\u4e0a\u66f8\u3044\u3066\u306a\u3044\u3051\u3069\u2026","id":30118851488251904,"from_user_id":81492,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.hootsuite.com&quot; rel=&quot;nofollow&quot;&gt;HootSuite&lt;/a&gt;"},{"from_user_id_str":"9518356","profile_image_url":"http://a2.twimg.com/profile_images/119165723/ocaml-icon_normal.png","created_at":"Wed, 26 Jan 2011 04:19:19 +0000","from_user":"planet_ocaml","id_str":"30117557788741632","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I so miss #haskell type classes in #ocaml - i want to do something like refinement. Also why does ocaml not have... http://bit.ly/geYRwt","id":30117557788741632,"from_user_id":9518356,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"218059","profile_image_url":"http://a1.twimg.com/profile_images/1053837723/twitter-icon9_normal.jpg","created_at":"Wed, 26 Jan 2011 04:16:32 +0000","from_user":"aprikip","id_str":"30116854940835840","metadata":{"result_type":"recent"},"to_user_id":null,"text":"yatex-mode\u3084haskell-mode\u306e\u3053\u3068\u3067\u3059\u306d\u3001\u308f\u304b\u308a\u307e\u3059\u3002","id":30116854940835840,"from_user_id":218059,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://sites.google.com/site/yorufukurou/&quot; rel=&quot;nofollow&quot;&gt;YoruFukurou&lt;/a&gt;"},{"from_user_id_str":"216363","profile_image_url":"http://a1.twimg.com/profile_images/72454310/Tim-Avatar_normal.png","created_at":"Wed, 26 Jan 2011 04:15:30 +0000","from_user":"dysinger","id_str":"30116594684264448","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell in Hawaii tonight for me... #fun","id":30116594684264448,"from_user_id":216363,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.nambu.com/&quot; rel=&quot;nofollow&quot;&gt;Nambu&lt;/a&gt;"},{"from_user_id_str":"1774820","profile_image_url":"http://a2.twimg.com/profile_images/61169291/dan_desert_thumb_normal.jpg","created_at":"Wed, 26 Jan 2011 04:13:36 +0000","from_user":"DanMil","id_str":"30116117682851840","metadata":{"result_type":"recent"},"to_user_id":1594784,"text":"@ojrac @chewedwire @tomheon Haskell isn't a language, it's a belief system. A seductive one...","id":30116117682851840,"from_user_id":1774820,"to_user":"ojrac","geo":null,"iso_language_code":"en","to_user_id_str":"1594784","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"659256","profile_image_url":"http://a0.twimg.com/profile_images/746976711/angular-final_normal.jpg","created_at":"Wed, 26 Jan 2011 04:11:06 +0000","from_user":"djspiewak","id_str":"30115488931520512","metadata":{"result_type":"recent"},"to_user_id":null,"text":"One of the very nice things about Haskell as opposed to SML is the reduced proliferation of identifiers (e.g. andb, orb, etc). #typeclasses","id":30115488931520512,"from_user_id":659256,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Wed, 26 Jan 2011 04:06:12 +0000","from_user":"listwarenet","id_str":"30114255890026496","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-cafe/84752-re-haskell-cafe-gpl-license-of-h-matrix-and-prelude-numeric.html Re: Haskell-c","id":30114255890026496,"from_user_id":144546280,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"},{"from_user_id_str":"1594784","profile_image_url":"http://a2.twimg.com/profile_images/378515773/square-profile_normal.jpg","created_at":"Wed, 26 Jan 2011 04:01:29 +0000","from_user":"ojrac","id_str":"30113067333324800","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @tomheon: @ojrac @chewedwire Don't worry, learning Haskell will not give you any clear idea what monad means.","id":30113067333324800,"from_user_id":1594784,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"207589736","profile_image_url":"http://a3.twimg.com/profile_images/1225527428/headshot_1_normal.jpg","created_at":"Wed, 26 Jan 2011 04:00:13 +0000","from_user":"ashleevelazq101","id_str":"30112747555397632","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Federal investigation finds safety violations at The Acadia Hospital: By Meg Haskell, BDN Staff The investigatio... http://bit.ly/dONnpn","id":30112747555397632,"from_user_id":207589736,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"17671137","profile_image_url":"http://a2.twimg.com/profile_images/290264834/Haskell-logo-outer-glow_normal.png","created_at":"Wed, 26 Jan 2011 03:58:00 +0000","from_user":"Hackage","id_str":"30112192346984448","metadata":{"result_type":"recent"},"to_user_id":null,"text":"streams 0.4, added by EdwardKmett: Various Haskell 2010 stream comonads http://bit.ly/idBkPe","id":30112192346984448,"from_user_id":17671137,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"17489366","profile_image_url":"http://a3.twimg.com/sticky/default_profile_images/default_profile_2_normal.png","created_at":"Wed, 26 Jan 2011 03:58:00 +0000","from_user":"aapnoot","id_str":"30112191881420800","metadata":{"result_type":"recent"},"to_user_id":null,"text":"streams 0.4, added by EdwardKmett: Various Haskell 2010 stream comonads http://bit.ly/idBkPe","id":30112191881420800,"from_user_id":17489366,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"8530482","profile_image_url":"http://a2.twimg.com/profile_images/137867266/n608671563_7396_normal.jpg","created_at":"Wed, 26 Jan 2011 03:50:12 +0000","from_user":"jeffmclamb","id_str":"30110229207187456","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Angel - daemon to run and monitor processes like daemontools or god, written in Haskell http://ff.im/-wNyLk","id":30110229207187456,"from_user_id":8530482,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://friendfeed.com&quot; rel=&quot;nofollow&quot;&gt;FriendFeed&lt;/a&gt;"},{"from_user_id_str":"177539201","profile_image_url":"http://a0.twimg.com/profile_images/1178368800/img_normal.jpeg","created_at":"Wed, 26 Jan 2011 03:46:01 +0000","from_user":"tomheon","id_str":"30109174645919744","metadata":{"result_type":"recent"},"to_user_id":1594784,"text":"@ojrac @chewedwire Don't worry, learning Haskell will not give you any clear idea what monad means.","id":30109174645919744,"from_user_id":177539201,"to_user":"ojrac","geo":null,"iso_language_code":"en","to_user_id_str":"1594784","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"1594784","profile_image_url":"http://a2.twimg.com/profile_images/378515773/square-profile_normal.jpg","created_at":"Wed, 26 Jan 2011 03:44:34 +0000","from_user":"ojrac","id_str":"30108808684503040","metadata":{"result_type":"recent"},"to_user_id":128028225,"text":"@chewedwire @tomheon Why are you making me curious about Haskell? I LIKE not knowing what monad means!!","id":30108808684503040,"from_user_id":1594784,"to_user":"chewedwire","geo":null,"iso_language_code":"en","to_user_id_str":"128028225","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"23750094","profile_image_url":"http://a0.twimg.com/profile_images/951373780/Moeinthecar_normal.jpg","created_at":"Wed, 26 Jan 2011 03:41:54 +0000","from_user":"shokalshab","id_str":"30108140443795456","metadata":{"result_type":"recent"},"to_user_id":null,"text":"I'm at Magnitude Cheer @ Gymnastics Olympica USA (7735 Haskell Ave., btw Saticoy &amp; Strathern, Van Nuys) http://4sq.com/gmXfaL","id":30108140443795456,"from_user_id":23750094,"geo":null,"iso_language_code":"en","place":{"id":"4e4a2a2f86cb2946","type_":"poi","full_name":"Gymnastics Olympica USA, Van Nuys"},"to_user_id_str":null,"source":"&lt;a href=&quot;http://foursquare.com&quot; rel=&quot;nofollow&quot;&gt;foursquare&lt;/a&gt;"},{"from_user_id_str":"8135112","profile_image_url":"http://a0.twimg.com/profile_images/1165240350/LIMITED_normal.jpg","created_at":"Wed, 26 Jan 2011 03:41:35 +0000","from_user":"Claricei","id_str":"30108059208515584","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @kristenmchugh22: @KeithOlbermann Ryan looks like Jughead w/o the hat. And sounds as mealy-mouthed as Eddie Haskell.","id":30108059208515584,"from_user_id":8135112,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"128028225","profile_image_url":"http://a1.twimg.com/profile_images/1224994593/Coding_Drunk_normal.jpg","created_at":"Wed, 26 Jan 2011 03:40:02 +0000","from_user":"chewedwire","id_str":"30107670367182848","metadata":{"result_type":"recent"},"to_user_id":177539201,"text":"@tomheon Cool, I'll take a look. I feel like I should mention this: http://bit.ly/hVstDM","id":30107670367182848,"from_user_id":128028225,"to_user":"tomheon","geo":null,"iso_language_code":"en","to_user_id_str":"177539201","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"8679778","profile_image_url":"http://a3.twimg.com/profile_images/1195318056/me_nyc_12_18_10_icon_normal.jpg","created_at":"Wed, 26 Jan 2011 03:38:42 +0000","from_user":"kristenmchugh22","id_str":"30107332381777920","metadata":{"result_type":"recent"},"to_user_id":756269,"text":"@KeithOlbermann Ryan looks like Jughead w/o the hat. And sounds as mealy-mouthed as Eddie Haskell.","id":30107332381777920,"from_user_id":8679778,"to_user":"KeithOlbermann","geo":null,"iso_language_code":"en","to_user_id_str":"756269","source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"103316559","profile_image_url":"http://a1.twimg.com/profile_images/1179458751/bc3beab4-d59d-4e78-b13b-50747986cfa2_normal.png","created_at":"Wed, 26 Jan 2011 03:36:15 +0000","from_user":"cityslikr","id_str":"30106719153557504","metadata":{"result_type":"recent"},"to_user_id":null,"text":"&quot;Social safety net into a hammock.&quot; So says Eddie Haskell with the GOP response. #SOTU","id":30106719153557504,"from_user_id":103316559,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://blackberry.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Twitter for BlackBerry\u00ae&lt;/a&gt;"},{"from_user_id_str":"169063143","profile_image_url":"http://a0.twimg.com/profile_images/1160506212/9697_1_normal.gif","created_at":"Wed, 26 Jan 2011 03:31:52 +0000","from_user":"wrkforce_safety","id_str":"30105614919143424","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Federal investigation finds safety violations at The Acadia Hospital: By Meg Haskell, BDN Staff The investigatio... http://bit.ly/gA60C1","id":30105614919143424,"from_user_id":169063143,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"177539201","profile_image_url":"http://a0.twimg.com/profile_images/1178368800/img_normal.jpeg","created_at":"Wed, 26 Jan 2011 03:29:40 +0000","from_user":"tomheon","id_str":"30105060960632832","metadata":{"result_type":"recent"},"to_user_id":128028225,"text":"@chewedwire Great book on Haskell: http://oreilly.com/catalog/9780596514983","id":30105060960632832,"from_user_id":177539201,"to_user":"chewedwire","geo":null,"iso_language_code":"en","to_user_id_str":"128028225","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"782692","profile_image_url":"http://a0.twimg.com/profile_images/1031304589/Profile.2007.1_normal.jpg","created_at":"Wed, 26 Jan 2011 03:29:19 +0000","from_user":"turnageb","id_str":"30104974591533057","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @ovillalon: Paul Ryan solves the mystery of whatever happened to Eddie Haskell. #sotu","id":30104974591533057,"from_user_id":782692,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"128028225","profile_image_url":"http://a1.twimg.com/profile_images/1224994593/Coding_Drunk_normal.jpg","created_at":"Wed, 26 Jan 2011 03:28:04 +0000","from_user":"chewedwire","id_str":"30104657267265536","metadata":{"result_type":"recent"},"to_user_id":177539201,"text":"@tomheon I always loved the pattern matching in SML and it looks like Haskell is MUCH better at it. I'm messing around now at tryhaskell.org","id":30104657267265536,"from_user_id":128028225,"to_user":"tomheon","geo":null,"iso_language_code":"en","to_user_id_str":"177539201","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"12834082","profile_image_url":"http://a3.twimg.com/profile_images/1083036140/mugshot_normal.png","created_at":"Wed, 26 Jan 2011 03:28:01 +0000","from_user":"ovillalon","id_str":"30104647213518848","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Paul Ryan solves the mystery of whatever happened to Eddie Haskell. #sotu","id":30104647213518848,"from_user_id":12834082,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"13540930","profile_image_url":"http://a1.twimg.com/profile_images/1205312219/23467_350321383101_821143101_5114147_3010041_n_normal.jpg","created_at":"Wed, 26 Jan 2011 03:26:02 +0000","from_user":"goodfox","id_str":"30104146455560192","metadata":{"result_type":"recent"},"to_user_id":10226179,"text":"@billykeene22 Bordeaux is one of my heroes. I was so excited when he accepted the invitation to campus. He's been a great friend to Haskell.","id":30104146455560192,"from_user_id":13540930,"to_user":"billykeene22","geo":null,"iso_language_code":"en","to_user_id_str":"10226179","source":"&lt;a href=&quot;http://www.ubertwitter.com/bb/download.php&quot; rel=&quot;nofollow&quot;&gt;\u00dcberTwitter&lt;/a&gt;"},{"from_user_id_str":"18616016","profile_image_url":"http://a2.twimg.com/profile_images/1173522726/214397343_normal.jpg","created_at":"Wed, 26 Jan 2011 03:25:18 +0000","from_user":"josej30","id_str":"30103962313031681","metadata":{"result_type":"recent"},"to_user_id":14870909,"text":"@cris7ian Ahh bueno multiparadigma ya es respetable :) Empezar\u00e9 a explotar la parte funcional de los lenguajes ahora #Haskell","id":30103962313031681,"from_user_id":18616016,"to_user":"Cris7ian","geo":null,"iso_language_code":"es","to_user_id_str":"14870909","source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"14870909","profile_image_url":"http://a2.twimg.com/profile_images/1176930429/oso_yo_normal.png","created_at":"Wed, 26 Jan 2011 03:23:43 +0000","from_user":"Cris7ian","id_str":"30103562360983553","metadata":{"result_type":"recent"},"to_user_id":18616016,"text":"@josej30 hahaha no, es multiparadigma y es bastante lazy. Nothing like haskell, pero s\u00ed, el de Flash","id":30103562360983553,"from_user_id":14870909,"to_user":"josej30","geo":null,"iso_language_code":"es","to_user_id_str":"18616016","source":"&lt;a href=&quot;http://www.echofon.com/&quot; rel=&quot;nofollow&quot;&gt;Echofon&lt;/a&gt;"},{"from_user_id_str":"2421643","profile_image_url":"http://a0.twimg.com/profile_images/1190361665/ernestgrumbles-17_normal.jpg","created_at":"Wed, 26 Jan 2011 03:20:24 +0000","from_user":"ernestgrumbles","id_str":"30102730756333568","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Wow... WolframAlpha did not know who Eddie Haskell is. Guess I'll never use that &quot;knowledge engine&quot; again.","id":30102730756333568,"from_user_id":2421643,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"128028225","profile_image_url":"http://a1.twimg.com/profile_images/1224994593/Coding_Drunk_normal.jpg","created_at":"Wed, 26 Jan 2011 03:14:21 +0000","from_user":"chewedwire","id_str":"30101204428132352","metadata":{"result_type":"recent"},"to_user_id":177539201,"text":"@tomheon How is Haskell better/different from CL or Scheme? I honestly don't know, although I'm becoming more curious.","id":30101204428132352,"from_user_id":128028225,"to_user":"tomheon","geo":null,"iso_language_code":"en","to_user_id_str":"177539201","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"13540930","profile_image_url":"http://a1.twimg.com/profile_images/1205312219/23467_350321383101_821143101_5114147_3010041_n_normal.jpg","created_at":"Wed, 26 Jan 2011 03:06:54 +0000","from_user":"goodfox","id_str":"30099329809129473","metadata":{"result_type":"recent"},"to_user_id":null,"text":"A day of vision &amp; speeches. #SOTU now. And a wonderful Haskell Convocation address earlier today by Sinte Gleske President Lionel Bordeaux.","id":30099329809129473,"from_user_id":13540930,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.ubertwitter.com/bb/download.php&quot; rel=&quot;nofollow&quot;&gt;\u00dcberTwitter&lt;/a&gt;"},{"from_user_id_str":"119185220","profile_image_url":"http://a0.twimg.com/profile_images/1089027228/dfg_normal.jpg","created_at":"Wed, 26 Jan 2011 03:03:38 +0000","from_user":"LaLiciouz_03","id_str":"30098510623805440","metadata":{"result_type":"recent"},"to_user_id":null,"text":"The Game with the girl room 330 Haskell follow us...","id":30098510623805440,"from_user_id":119185220,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"18616016","profile_image_url":"http://a2.twimg.com/profile_images/1173522726/214397343_normal.jpg","created_at":"Wed, 26 Jan 2011 02:57:25 +0000","from_user":"josej30","id_str":"30096946144215040","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Voy a extra\u00f1ar Haskell cuando regrese al mundo imperativo. Hay alg\u00fan lenguaje imperativo que tenga este poder funcional? #ci3661","id":30096946144215040,"from_user_id":18616016,"geo":null,"iso_language_code":"es","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"17671137","profile_image_url":"http://a2.twimg.com/profile_images/290264834/Haskell-logo-outer-glow_normal.png","created_at":"Wed, 26 Jan 2011 02:55:32 +0000","from_user":"Hackage","id_str":"30096471814574080","metadata":{"result_type":"recent"},"to_user_id":null,"text":"comonad-transformers 0.9.0, added by EdwardKmett: Haskell 98 comonad transformers http://bit.ly/h6xIsf","id":30096471814574080,"from_user_id":17671137,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitterfeed.com&quot; rel=&quot;nofollow&quot;&gt;twitterfeed&lt;/a&gt;"},{"from_user_id_str":"177539201","profile_image_url":"http://a0.twimg.com/profile_images/1178368800/img_normal.jpeg","created_at":"Wed, 26 Jan 2011 02:48:12 +0000","from_user":"tomheon","id_str":"30094626920603649","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Every time I look at Haskell I love it more.","id":30094626920603649,"from_user_id":177539201,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"60792568","profile_image_url":"http://a0.twimg.com/profile_images/1203647517/glenda-flash_normal.jpg","created_at":"Wed, 26 Jan 2011 02:40:42 +0000","from_user":"r_takaishi","id_str":"30092735935422464","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell\u3088\u308aD\u8a00\u8a9e\u304c\u4e0a\u3068\u306f\u601d\u308f\u306a\u304b\u3063\u305f\uff0e http://www.tiobe.com/index.php/content/paperinfo/tpci/index.html","id":30092735935422464,"from_user_id":60792568,"geo":null,"iso_language_code":"ja","to_user_id_str":null,"source":"&lt;a href=&quot;http://twmode.sf.net/&quot; rel=&quot;nofollow&quot;&gt;twmode&lt;/a&gt;"},{"from_user_id_str":"160145510","profile_image_url":"http://a0.twimg.com/profile_images/1218108166/going_galt_normal.jpg","created_at":"Wed, 26 Jan 2011 02:39:31 +0000","from_user":"wtp1787","id_str":"30092439653974018","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @KLSouth: Eddie Haskell Goes to Washington... &quot;You look really nice tonight, Ms Cleaver&quot;","id":30092439653974018,"from_user_id":160145510,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"96616016","profile_image_url":"http://a1.twimg.com/profile_images/1196978169/Picture0002_normal.jpg","created_at":"Wed, 26 Jan 2011 02:39:20 +0000","from_user":"MelissaRNMBA","id_str":"30092392203816960","metadata":{"result_type":"recent"},"to_user_id":14862975,"text":"@KLSouth At least Eddie Haskell was entertaining.","id":30092392203816960,"from_user_id":96616016,"to_user":"KLSouth","geo":null,"iso_language_code":"en","to_user_id_str":"14862975","source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"14862975","profile_image_url":"http://a0.twimg.com/profile_images/421596393/kls_4_normal.JPG","created_at":"Wed, 26 Jan 2011 02:38:29 +0000","from_user":"KLSouth","id_str":"30092178327871489","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Eddie Haskell Goes to Washington... &quot;You look really nice tonight, Ms Cleaver&quot;","id":30092178327871489,"from_user_id":14862975,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.tweetdeck.com&quot; rel=&quot;nofollow&quot;&gt;TweetDeck&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Wed, 26 Jan 2011 02:36:17 +0000","from_user":"listwarenet","id_str":"30091626869161984","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-beginners/84641-haskell-beginners-wildcards-in-expressions.html Haskell-beginners - Wild","id":30091626869161984,"from_user_id":144546280,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"},{"from_user_id_str":"24538048","profile_image_url":"http://a2.twimg.com/profile_images/1117267605/rope_normal.jpg","created_at":"Wed, 26 Jan 2011 02:23:14 +0000","from_user":"dbph","id_str":"30088341030440960","metadata":{"result_type":"recent"},"to_user_id":null,"text":"RT @dnene: Skilled Calisthenics. Haskell code that outputs python which spits ruby which emits the haskell source. http://j.mp/YlQUL via @mfeathers","id":30088341030440960,"from_user_id":24538048,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"},{"from_user_id_str":"158951567","profile_image_url":"http://a3.twimg.com/profile_images/962721419/Logo_3_normal.jpg","created_at":"Wed, 26 Jan 2011 01:58:31 +0000","from_user":"YubaVetTech","id_str":"30082124207886336","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Dr. Haskell has just been awarded the prestigious Hayward Award for \u2018Excellence in Education\u2019. This award honors... http://fb.me/QgQCxd74","id":30082124207886336,"from_user_id":158951567,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.facebook.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Facebook&lt;/a&gt;"},{"from_user_id_str":"158951567","profile_image_url":"http://a3.twimg.com/profile_images/962721419/Logo_3_normal.jpg","created_at":"Wed, 26 Jan 2011 01:56:04 +0000","from_user":"YubaVetTech","id_str":"30081505476743168","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Dr. Haskell has just been awarded the prestigous Haward Award for Excellence in Education. This award honors... http://fb.me/PC9mYmCR","id":30081505476743168,"from_user_id":158951567,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://www.facebook.com/twitter&quot; rel=&quot;nofollow&quot;&gt;Facebook&lt;/a&gt;"},{"from_user_id_str":"2331498","profile_image_url":"http://a3.twimg.com/profile_images/494632120/me_normal.jpg","created_at":"Wed, 26 Jan 2011 01:43:50 +0000","from_user":"Verus","id_str":"30078427155406848","metadata":{"result_type":"recent"},"to_user_id":79273052,"text":"@kami_joe \u3044\u3084\uff0c\u8ab2\u984c\u306f\u89e3\u6c7a\u5bfe\u8c61(\u30d1\u30ba\u30eb\u3068\u304b)\u3092\u4e0e\u3048\u3089\u308c\u3066\uff0c\u554f\u984c\u5b9a\u7fa9\u3068\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0(\u6307\u5b9a\u8a00\u8a9e\u306fC++\u3082\u3057\u304f\u306fJava)\u3068\u3044\u3046\u3044\u308f\u3070\u666e\u901a\u306a\u8ab2\u984c\u3067\u306f\u3042\u308b\u3093\u3060\u3051\u3069\uff0e\u95a2\u6570\u578b\u8a00\u8a9e\u306fHaskell\u306e\u6388\u696d\u304c\u307e\u305f\u5225\u306b\u3042\u308b\u306e\uff0e","id":30078427155406848,"from_user_id":2331498,"to_user":"kami_joe","geo":null,"iso_language_code":"ja","to_user_id_str":"79273052","source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"79151233","profile_image_url":"http://a2.twimg.com/a/1295051201/images/default_profile_2_normal.png","created_at":"Wed, 26 Jan 2011 01:40:37 +0000","from_user":"cz_newdrafts","id_str":"30077617361125376","metadata":{"result_type":"recent"},"to_user_id":null,"text":"Haskell programming language http://bit.ly/gpPAwB","id":30077617361125376,"from_user_id":79151233,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://tommorris.org/&quot; rel=&quot;nofollow&quot;&gt;tommorris' hacksample&lt;/a&gt;"},{"from_user_id_str":"2331498","profile_image_url":"http://a3.twimg.com/profile_images/494632120/me_normal.jpg","created_at":"Wed, 26 Jan 2011 01:02:57 +0000","from_user":"Verus","id_str":"30068139416879104","metadata":{"result_type":"recent"},"to_user_id":9252720,"text":"@shukukei Java\u3068C\u306f\u3042\u308b\u7a0b\u5ea6\u66f8\u3051\u3066\u3042\u305f\u308a\u307e\u3048\u306a\u3068\u3053\u308d\u304c\u3042\u308b\u304b\u3089\u306a\u30fc\uff0ePython\u306f\u500b\u4eba\u7684\u306b\u611f\u899a\u304c\u5408\u308f\u306a\u3044\uff0e\u611f\u899a\u306a\u306e\u3067\uff0c\u3082\u3046\u3069\u3046\u3057\u3088\u3046\u3082\u306a\u3044\uff57 \u3044\u307e\u306fScala\u3068Haskell\u3092\u3082\u3063\u3068\u6975\u3081\u305f\u3044\u3068\u3053\u308d\uff0e","id":30068139416879104,"from_user_id":2331498,"to_user":"shukukei","geo":null,"iso_language_code":"ja","to_user_id_str":"9252720","source":"&lt;a href=&quot;http://itunes.apple.com/us/app/twitter/id409789998?mt=12&quot; rel=&quot;nofollow&quot;&gt;Twitter for Mac&lt;/a&gt;"},{"from_user_id_str":"2781460","profile_image_url":"http://a0.twimg.com/profile_images/82526625/.joeyicon_normal.jpg","created_at":"Wed, 26 Jan 2011 01:02:35 +0000","from_user":"joeyhess","id_str":"30068046538219520","metadata":{"result_type":"recent"},"to_user_id":null,"text":"just figured out that I can use parameterized types to remove a dependency loop in git-annex's type definitions. whee #haskell","id":30068046538219520,"from_user_id":2781460,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://identi.ca&quot; rel=&quot;nofollow&quot;&gt;identica&lt;/a&gt;"},{"from_user_id_str":"144546280","profile_image_url":"http://a1.twimg.com/a/1295051201/images/default_profile_1_normal.png","created_at":"Wed, 26 Jan 2011 00:54:22 +0000","from_user":"listwarenet","id_str":"30065977920061440","metadata":{"result_type":"recent"},"to_user_id":null,"text":"http://www.listware.net/201101/haskell-beginners/84466-haskell-beginners-bytestring-question.html Haskell-beginners - Bytestrin","id":30065977920061440,"from_user_id":144546280,"geo":null,"iso_language_code":"no","to_user_id_str":null,"source":"&lt;a href=&quot;http://1e10.org/cloud/&quot; rel=&quot;nofollow&quot;&gt;1e10&lt;/a&gt;"},{"from_user_id_str":"1291845","profile_image_url":"http://a0.twimg.com/profile_images/1225743404/ThinOxygen-small-opaque-solidarity_normal.png","created_at":"Wed, 26 Jan 2011 00:52:07 +0000","from_user":"_aaron_","id_str":"30065412242669568","metadata":{"result_type":"recent"},"to_user_id":null,"text":"wanted: librly licensed high level native compiled lang with min runtime (otherwise cobra/mono would be perfect) for win. lua? haskell? ooc?","id":30065412242669568,"from_user_id":1291845,"geo":null,"iso_language_code":"en","to_user_id_str":null,"source":"&lt;a href=&quot;http://twitter.com/&quot;&gt;web&lt;/a&gt;"}],"max_id":30120402839666689,"since_id":0,"refresh_url":"?since_id=30120402839666689&q=haskell","next_page":"?page=2&max_id=30120402839666689&rpp=50&q=haskell","results_per_page":50,"page":1,"completed_in":0.291696,"since_id_str":"0","max_id_str":"30120402839666689","query":"haskell"}
benchmarks/parse.pynew file+25
@@ -0,0 +1,25 @@
1+#!/usr/bin/env python
2+
3+import json, sys, time
4+
5+def isint(x):
6+ try:
7+ int(x)
8+ return True
9+ except:
10+ return False
11+
12+if len(sys.argv) > 2 and isint(sys.argv[1]) and isint(sys.argv[2]):
13+ sys.argv.pop(1)
14+
15+count = int(sys.argv[1])
16+
17+for n in sys.argv[2:]:
18+ print '%s:' % n
19+ start = time.time()
20+ fp = open(n)
21+ for i in xrange(count):
22+ fp.seek(0)
23+ val = json.load(fp)
24+ end = time.time()
25+ print ' %d good, %gs' % (count, end - start)
cabal.projectnew file+5
@@ -0,0 +1,5 @@
1+with-compiler: ghc
2+packages: .
3+packages: attoparsec-iso8601
4+-- packages: benchmarks
5+tests: true
cbits/unescape_string.cnew file+149
@@ -0,0 +1,149 @@
1+// Copyright (c) 2008-2009 Bjoern Hoehrmann
2+// Copyright (c) 2015, Ondrej Palkovsky
3+// Copyright (c) 2016, Winterland
4+
5+#include <string.h>
6+#include <stdio.h>
7+#include <stdint.h>
8+
9+
10+#define UTF8_ACCEPT 0
11+#define UTF8_REJECT 12
12+
13+static const uint8_t utf8d[] = {
14+ // The first part of the table maps bytes to character classes that
15+ // to reduce the size of the transition table and create bitmasks.
16+ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
17+ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
18+ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
19+ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
20+ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,
21+ 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7, 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
22+ 8,8,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
23+ 10,3,3,3,3,3,3,3,3,3,3,3,3,4,3,3, 11,6,6,6,5,8,8,8,8,8,8,8,8,8,8,8,
24+
25+ // The second part is a transition table that maps a combination
26+ // of a state of the automaton and a character class to a state.
27+ 0,12,24,36,60,96,84,12,12,12,48,72, 12,12,12,12,12,12,12,12,12,12,12,12,
28+ 12, 0,12,12,12,12,12, 0,12, 0,12,12, 12,24,12,12,12,12,12,24,12,24,12,12,
29+ 12,12,12,12,12,12,12,24,12,12,12,12, 12,24,12,12,12,12,12,12,12,24,12,12,
30+ 12,12,12,12,12,12,12,36,12,36,12,12, 12,36,12,12,12,12,12,36,12,36,12,12,
31+ 12,36,12,12,12,12,12,12,12,12,12,12,
32+};
33+
34+static inline uint32_t decode(uint32_t* state, uint32_t* codep, uint32_t byte) {
35+ uint32_t type = utf8d[byte];
36+
37+ *codep = (*state != UTF8_ACCEPT) ?
38+ (byte & 0x3fu) | (*codep << 6) :
39+ (0xff >> type) & (byte);
40+
41+ *state = utf8d[256 + *state + type];
42+ return *state;
43+}
44+
45+static inline uint16_t decode_hex(uint32_t c)
46+{
47+ if (c >= '0' && c <= '9') return c - '0';
48+ else if (c >= 'a' && c <= 'f') return c - 'a' + 10;
49+ else if (c >= 'A' && c <= 'F') return c - 'A' + 10;
50+ return 0xFFFF; // Should not happen
51+}
52+
53+// Decode, return non-zero value on error
54+int _js_decode_string(uint16_t *const dest, size_t *destoff,
55+ const uint8_t *s, const uint8_t *const srcend)
56+{
57+ uint16_t *d = dest + *destoff;
58+ uint32_t state = 0;
59+ uint32_t codepoint;
60+
61+ uint8_t surrogate = 0;
62+ uint16_t temp_hex = 0;
63+ uint16_t unidata;
64+
65+ // Optimized version of dispatch when just an ASCII char is expected
66+ #define DISPATCH_ASCII(label) {\
67+ if (s >= srcend) {\
68+ return -1;\
69+ }\
70+ codepoint = *s++;\
71+ goto label;\
72+ }
73+
74+ standard:
75+ // Test end of stream
76+ while (s < srcend) {
77+ if (decode(&state, &codepoint, *s++) != UTF8_ACCEPT) {
78+ if (state == UTF8_REJECT) { return -1; }
79+ continue;
80+ }
81+
82+ if (codepoint == '\\')
83+ DISPATCH_ASCII(backslash)
84+ else if (codepoint <= 0xffff)
85+ *d++ = (uint16_t) codepoint;
86+ else {
87+ *d++ = (uint16_t) (0xD7C0 + (codepoint >> 10));
88+ *d++ = (uint16_t) (0xDC00 + (codepoint & 0x3FF));
89+ }
90+ }
91+ *destoff = d - dest;
92+ // Exit point
93+ return (state != UTF8_ACCEPT);
94+ backslash:
95+ switch (codepoint) {
96+ case '"':
97+ case '\\':
98+ case '/':
99+ *d++ = (uint16_t) codepoint;
100+ goto standard;
101+ break;
102+ case 'b': *d++ = '\b';goto standard;
103+ case 'f': *d++ = '\f';goto standard;
104+ case 'n': *d++ = '\n';goto standard;
105+ case 'r': *d++ = '\r';goto standard;
106+ case 't': *d++ = '\t';goto standard;
107+ case 'u': DISPATCH_ASCII(unicode1);;break;
108+ default:
109+ return -1;
110+ }
111+ unicode1:
112+ temp_hex = decode_hex(codepoint);
113+ if (temp_hex == 0xFFFF) { return -1; }
114+ else unidata = temp_hex << 12;
115+ DISPATCH_ASCII(unicode2);
116+ unicode2:
117+ temp_hex = decode_hex(codepoint);
118+ if (temp_hex == 0xFFFF) { return -1; }
119+ else unidata |= temp_hex << 8;
120+ DISPATCH_ASCII(unicode3);
121+ unicode3:
122+ temp_hex = decode_hex(codepoint);
123+ if (temp_hex == 0xFFFF) { return -1; }
124+ else unidata |= temp_hex << 4;
125+ DISPATCH_ASCII(unicode4);
126+ unicode4:
127+ temp_hex = decode_hex(codepoint);
128+ if (temp_hex == 0xFFFF) { return -1; }
129+ else unidata |= temp_hex;
130+ *d++ = (uint16_t) unidata;
131+
132+ if (surrogate) {
133+ if (unidata < 0xDC00 || unidata > 0xDFFF) // is not low surrogate
134+ return -1;
135+ surrogate = 0;
136+ } else if (unidata >= 0xD800 && unidata <= 0xDBFF ) { // is high surrogate
137+ surrogate = 1;
138+ DISPATCH_ASCII(surrogate1);
139+ } else if (unidata >= 0xDC00 && unidata <= 0xDFFF) { // is low surrogate
140+ return -1;
141+ }
142+ goto standard;
143+ surrogate1:
144+ if (codepoint != '\\') { return -1; }
145+ DISPATCH_ASCII(surrogate2)
146+ surrogate2:
147+ if (codepoint != 'u') { return -1; }
148+ DISPATCH_ASCII(unicode1)
149+}
changelog.mdnew file+690
@@ -0,0 +1,690 @@
1+For the latest version of this document, please see [https://github.com/bos/aeson/blob/master/changelog.md](https://github.com/bos/aeson/blob/master/changelog.md).
2+
3+### upcoming
4+
5+* `FromJSON` instance of `Ratio a` now parses numbers in addtion to
6+ standard `{numerator=..., denumerator=...}` encoding.
7+
8+### 1.4.6.0
9+
10+* Provide a clearer error message when a required tagKey for a constructor is missing, thanks to Guru Devanla.
11+ The error message now looks like this: `Error in $: parsing Types.SomeType failed, expected Object with key "tag" containing one of ["nullary","unary","product","record","list"], key "tag" not found`
12+
13+* Add `formatPath` and `formatRelativePath` functions to turn a `JSONPath` into a `String`, thanks to Robbie McMichael
14+
15+
16+### 1.4.5.0
17+
18+* Expose `(<?>)`, `JSONPath` and `JSONPathElement(..)` from `Data.Aeson.Types`. Previously only available through internal modules. Thanks to Luke Clifton.
19+
20+* Support for base-compat 0.11, thanks to Ryan Scott.
21+
22+* Travis build for GHC 8.8, thanks to Oleg Grenrus.
23+
24+### 1.4.4.0
25+
26+**New features**:
27+
28+* Adds a parameterized parser `jsonWith` that can be used to choose how to handle duplicate keys in objects, thanks to Xia Li-Yao.
29+
30+* Add generic implementations of `FromJSONKey` and `ToJSONKey`, thanks to Xia Li-Yao. Example:
31+
32+```haskell
33+data Foo = Bar
34+ deriving Generic
35+
36+opts :: JSONKeyOptions
37+opts = defaultJSONKeyOptions { keyModifier = toLower }
38+
39+instance ToJSONKey Foo where
40+ toJSONKey = genericToJSONKey opts
41+
42+instance FromJSONKey Foo where
43+ fromJSONKey = genericFromJSONKey opts
44+```
45+
46+**Minor**:
47+* aeson now uses `time-compat` instead of `time-locale-compat`, thanks to Oleg Grenrus.
48+* Prepare for `MonadFail` breakages in GHC 8.8, thanks to Oleg Grenrus.
49+* Require `bytestring >= 0.10.8.1` for newer GHCs to avoid build failures, thanks to Oleg Grenrus.
50+* Support `primitive 0.7.*`, thanks to Adam Bergmark.
51+* Allow `semigroups 0.19.*` and `hashable 1.3.*`, thanks to Oleg Grenrus.
52+* Fix a typo in the error message when parsing `NonEmpty`, thanks to Colin Woodbury.
53+* Document surprising behavior when using `omitNothingFields` with type variables, thanks to Xia Li-Yao.
54+
55+**Internal changes**:
56+* Code cleanup by Oleg Grenrus
57+* Fix dependencies of the benchmarks on older GHC's, thanks to Xia Li-Yao.
58+
59+### 1.4.3.0
60+* Improve error messages for FromJSON in existing instances and GHC Generic implementation. Thanks to Xia Li-Yao & Igor Pashev.
61+* Tweak error-reporting combinators and their documentation. Thanks to Xia Li-Yao.
62+ * `typeMismatch` is now about comparing JSON types (i.e., the expected and actual names of the Value constructor).
63+ * `withObject` and other `with*` combinators now also mention the JSON types they expect
64+ * New `unexpected` and `prependFailure` combinators.
65+* Add `Contravariant` `ToJSONKeyFunction` instance. Thanks to Oleg Grenrus.
66+* Add `KeyValue` instance for `Object`. Thanks to Robert Hensing.
67+* Improve performance when parsing certain large numbers, thanks to Oleg Grenrus.
68+* Add `Data.Aeson.QQ.Simple` - A limited version of aeson-qq. Thanks to Oleg Grenrus.
69+* Exposes internal helper functions like `<?>`, `JSONPath`, and `parseIndexedJSON` from `Data.Aeson` module. Thanks to Abid Uzair.
70+* Better error messages when there are syntax errors parsing objects and arrays. Thanks to Fintan Halpenny.
71+* Support building with `th-abstraction-0.3.0.0` or later. Thanks to Ryan Scott.
72+
73+### 1.4.2.0
74+
75+* Add `Data.Aeson.QQ.Simple` which is a simpler version of the `aeson-qq` package, it does not support interpolation, thanks to Oleg Grenrus.
76+* Add `Contravariant ToJSONKeyFunction` instance, thanks to Oleg Grenrus.
77+* Add `KeyValue Object` instance, thanks to Robert Hensing
78+* Improved performance when parsing large numbers, thanks to Oleg Grenrus.
79+
80+### 1.4.1.0
81+
82+* Optimizations of generics, thanks to Rémy Oudompheng, here are some numbers for GHC 8.4:
83+ * Compilation time: G/BigProduct.hs is 25% faster, G/BigRecord.hs is 2x faster.
84+ * Runtime performance: BigRecord/toJSON/generic and BigProduct/encode/generic are more than 2x faster.
85+* Added To/FromJSON instances for `Void` and Generics's `V1`, thanks to Will Yager
86+* Added To/FromJSON instances for `primitive`'s `Array`, `SmallArray`, `PrimArray` and `UnliftedArray`, thanks to Andrew Thad.
87+* Fixes handling of `UTCTime` wrt. leap seconds , thanks to Adam Schønemann
88+* Warning and documentation fixes thanks to tom-bop, Gabor Greif, Ian Jeffries, and Mateusz Curyło.
89+
90+## 1.4.0.0
91+
92+This release introduces bounds on the size of `Scientific` numbers when they are converted to other arbitrary precision types that do not represent them efficiently in memory.
93+
94+This means that trying to decode a number such as `1e1000000000` into an `Integer` will now fail instead of using a lot of memory. If you need to represent large numbers you can add a newtype (preferably over `Scientific`) and providing a parser using `withScientific`.
95+
96+The following instances are affected by this:
97+* `FromJSON Natural`
98+* `FromJSONKey Natural`
99+* `FromJSON Integer`
100+* `FromJSONKey Integer`
101+* `FromJSON NominalDiffTime`
102+
103+For the same reasons the following instances & functions have been removed:
104+* Remove `FromJSON Data.Attoparsec.Number` instance. Note that `Data.Attoparsec.Number` is deprecated.
105+* Remove deprecated `withNumber`, use `withScientific` instead.
106+
107+Finally, encoding integral values with large exponents now uses scientific notation, this saves space for large numbers.
108+
109+#### 1.3.1.1
110+
111+* Catch 0 denominators when parsing Ratio
112+
113+### 1.3.1.0
114+
115+* Fix bug in generically derived `FromJSON` instances that are using `unwrapUnaryRecords`, thanks to Xia Li-yao
116+* Allow base-compat 0.10.*, thanks to Oleg Grenrus
117+
118+## 1.3.0.0
119+
120+Breaking changes:
121+* `GKeyValue` has been renamed to `KeyValuePair`, thanks to Xia Li-yao
122+* Removed unused `FromJSON` constraint in `withEmbeddedJson`, thanks to Tristan Seligmann
123+
124+Other improvements:
125+* Optimizations of TH toEncoding, thanks to Xia Li-yao
126+* Optimizations of hex decoding when using the default/pure unescape implementation, thanks to Xia Li-yao
127+* Improved error message on `Day` parse failures, thanks to Gershom Bazerman
128+* Add `encodeFile` as well as `decodeFile*` variants, thanks to Markus Hauck
129+* Documentation fixes, thanks to Lennart Spitzner
130+* CPP cleanup, thanks to Ryan Scott
131+
132+### 1.2.4.0
133+
134+* Add `Ord` instance for `JSONPathElement`, thanks to Simon Hengel.
135+
136+
137+### 1.2.3.0
138+
139+* Added `withEmbeddedJSON` to help parse JSON embedded inside a JSON string, thanks to Jesse Kempf.
140+* Memory usage improvements to the default (pure) parser, thanks to Jonathan Paugh. Also thanks to Neil Mitchell & Oleg Grenrus for contributing a benchmark.
141+* `omitNothingFields` now works for the `Option` newtype, thanks to Xia Li-yao.
142+* Some documentation fixes, thanks to Jonathan Paug & Philippe Crama.
143+
144+### 1.2.2.0
145+
146+* Add `FromJSON` and `ToJSON` instances for
147+ * `DiffTime`, thanks to Víctor López Juan.
148+ * `CTime`, thanks to Daniel Díaz.
149+* Fix handling of fractions when parsing Natural, thanks to Yuriy Syrovetskiy.
150+* Change text in error messages for Integral types to make them follow the common pattern, thanks to Yuriy Syrovetskiy.
151+* Add missing `INCOHERENT` pragma for `RecordToPair`, thanks to Xia Li-yao.
152+* Everything related to `Options` is now exported from `Data.Aeson`, thanks to Xia Li-yao.
153+* Optimizations to not escape text in clear cases, thanks to Oleg Grenrus.
154+* Some documentation fixes, thanks to Phil de Joux & Xia Li-yao.
155+
156+### 1.2.1.0
157+
158+* Add `parserThrowError` and `parserCatchError` combinators, thanks to Oleg Grenrus.
159+
160+* Add `Generic` instance for `Value`, thanks to Xia Li-yao.
161+
162+* Fix a mistake in the 1.2.0.0 changelog, the `cffi` flag is disabled by default! Thanks to dbaynard.
163+
164+## 1.2.0.0
165+
166+* `tagSingleConstructors`, an option to encode single-constructor types as tagged sums was added to `Options`. It is disabled by default for backward compatibility.
167+
168+* The `cffi` flag is now turned off (`False`) by default, this means C FFI code is no longer used by default. You can flip the flag to get C implementation.
169+
170+* The `Options` constructor is no longer exposed to prevent new options from being breaking changes, use `defaultOptions` instead.
171+
172+* The contents of `GToJSON` and `GToEncoding` are no longer exposed.
173+
174+* Some INLINE pragmas were removed to avoid GHC running out of simplifier ticks.
175+
176+### 1.1.2.0
177+
178+* Fix an accidental change in the format of `deriveJSON`. Thanks to Xia Li-yao!
179+
180+* Documentation improvements regarding `ToJSON`, `FromJSON`, and `SumEncoding`. Thanks to Xia Li-yao and Lennart Spitzner!
181+
182+### 1.1.1.0
183+
184+* Added a pure implementation of the C FFI code, the C FFI code. If you wish to use the pure haskell version set the `cffi` flag to `False`. This should make aeson compile when C isn't available, such as for GHCJS. Thanks to James Parker & Marcin Tolysz!
185+
186+* Using the `fast` flag can no longer cause a test case to fail. As far as we know this didn't affect any users of the library itself. Thanks to Xia Li-yao!
187+
188+## 1.1.0.0
189+
190+* Added instances for `UUID`.
191+
192+* The operators for parsing fields now have named aliases:
193+ - `.:` => `parseField`
194+ - `.:?` => `parseFieldMaybe`
195+ - `.:!` => `parseFieldMaybe'`
196+ - These functions now also have variants with explicit parser functions: `explicitParseField`, `explicitParseFieldMaybe`, "explicitParseFieldMaybe'`
197+Thanks to Oleg Grenrus.
198+
199+* `ToJSONKey (Identity a)` and `FromJSONKey (Identity a)` no longer require the unnecessary `FromJSON a` constraint. Thanks to Oleg Grenrus.
200+
201+* Added `Data.Aeson.Encoding.pair'` which is a more general version of `Data.Aeson.Encoding.pair`. Thanks to Andrew Martin.
202+
203+* `Day`s BCE are properly encoded and `+` is now a valid prefix for `Day`s CE. Thanks to Matt Parsons.
204+
205+* Some commonly used ToJSON instances are now specialized in order to improve compile time. Thanks to Bartosz Nitka.
206+
207+
208+[JSONTestSuite](https://github.com/nst/JSONTestSuite) cleanups, all
209+motivated by tighter RFC 7159 compliance:
210+
211+* The parser now rejects numbers for which
212+ [the integer portion contains a leading zero](https://github.com/bos/aeson/commit/3fb7c155f2255482b1b9566ec5c1eaf9895d630e).
213+* The parser now rejects numbers for which
214+ [a decimal point is not followed by at least one digit](https://github.com/bos/aeson/commit/ecfca35a45286dbe2bbaf5f62354be393bc59b66),
215+* The parser now rejects documents that contain [whitespace outside the
216+ set {space, newline, carriage return, tab}](https://github.com/bos/aeson/commit/8ef622c2ad8d4a109884e17c2792238a2a320e44).
217+
218+Over 90% of JSONTestSuite tests currently pass. The remainder can be
219+categorised as follows:
220+
221+* The string parser is strict with Unicode compliance where the RFC
222+ leaves room for implementation-defined behaviour (tests prefixed
223+ with "`i_string_`". (This is necessary because the `text` library
224+ cannot accommodate invalid Unicode.)
225+
226+* The parser does not (and will not) support UTF-16, UTF-32, or byte
227+ order marks (BOM).
228+* The parser accepts unescaped control characters, even though the RFC
229+ states that control characters must be escaped. (This may change at
230+ some point, but doesn't seem important.)
231+
232+#### 1.0.2.1
233+
234+* Fixes a regression where a bunch of valid characters caused an
235+ "Invalid UTF8-Stream" error when decoding. Thanks to Vladimir
236+ Shabanov who investigated and fixed this.
237+
238+### 1.0.2.0
239+
240+* Fixes a regression where it was no longer possible to derive
241+ instances for types such as `data T a = T { f1 :: a, f2 :: Maybe a
242+ }`.
243+
244+Thanks to Sean Leather for fixing this, and to Ryan Scott for helping out.
245+
246+### 1.0.1.0
247+
248+* Decoding performance has been significantly improved (see
249+ https://github.com/bos/aeson/pull/452). Thanks to @winterland1989.
250+
251+* Add `ToJSON`/`FromJSON` instances for newtypes from
252+ `Data.Semigroup`: `Min`, `Max`, `First`, `Last`, `WrappedMonoid`,
253+ `Option`. Thanks to Lennart Spitzner.
254+
255+* Make the documentation for `.:!` more accurate. Thanks to Ian Jeffries.
256+
257+# 1.0.0.0
258+
259+Major enhancements:
260+
261+* Introduced new `FromJSONKey` and `ToJSONKey` type classes that are
262+ used to encode maps without going through HashMap. This also allows arbitrary
263+ serialization of keys where a string-like key will encode into an object and
264+ other keys will encode into an array of key-value tuples.
265+
266+* Added higher rank classes: `ToJSON1`, `ToJSON2`, `FromJSON1`, and
267+ `FromJSON2`.
268+
269+* Added `Data.Aeson.Encoding` with functions to safely write `ToJSON`
270+ instances using `toEncoding`.
271+
272+Other enhancements:
273+
274+* A Cabal `fast` flag was added to disable building with optimizations. This drastically speeds up compiling both aeson ***and*** libraries using aeson so it is recommended to enable it during development. With cabal-install you can `cabal install aeson -ffast` and with stack you can add a flag section to your stack.yaml:
275+```
276+flags:
277+ aeson:
278+ fast: true
279+```
280+
281+* Added list specific members to `ToJSON` and `FromJSON` classes. In
282+ the same way `Read` and `Show` handle lists specifically. This
283+ removes need for overlapping instances to handle `String`.
284+
285+* Added a new `sumEncoding` option `UntaggedValue` which prevents
286+ objects from being tagged with the constructor name.
287+
288+* JSONPaths are now tracked in instances derived with template-haskell
289+ and generics.
290+
291+* Get rid of redundancy of JSONPath error messages in nested records.
292+
293+ `eitherDecode "{\"x\":{\"a\": [1,2,true]}}" :: Either String Y`
294+ previously yielded
295+ `Error in $.x.a[2]: failed to parse field" x: failed to parse field a: expected Int, encountered Boolean`
296+ and now yields `Error in $.x.a[2]: expected Int, encountered Boolean"`.
297+
298+ Some users might prefer to insert `modifyFailure` themselves to
299+ customize error messages, which previously prevented the use of
300+ `(.:)`.
301+
302+* Backwards compatibility with `bytestring-0.9` using the
303+ `bytestring-builder` compatibility package.
304+
305+* Export `decodeWith`, `decodeStrictWith`, `eitherDecodeWith`, and
306+ `eitherDecodeStrictWith` from `Data.Aeson.Parser`. This allows
307+ decoding using explicit parsers instead of using `FromJSON`
308+ instances.
309+
310+* Un-orphan internal instances to render them in haddocks.
311+
312+Other changes:
313+
314+* Integral `FromJSON` instances now only accept integral
315+ values. E.g. parsing `3.14` to `Int` fails instead of succeeding
316+ with the value `3`.
317+
318+* Over/underflows are now caught for bounded numeric types.
319+
320+* Remove the `contents` field encoding with `allNullaryToStringTag = False`,
321+ giving us `{ "tag" : "c1" }` instead of `{ "tag" : "c1", contents : [] }`.
322+ The contents field is optional when parsing so this is only a breaking
323+ change for ToJSON instances.
324+
325+* Fix a bug where `genericToEncoding` with `unwrapUnaryRecords = True`
326+ would produce an invalid encoding: `"unwrap\":""`.
327+
328+* `ToJSON` instances using `genericToEncoding` and `omitNothingFields`
329+ no longer produce invalid JSON.
330+
331+* Added instances for `DList`, `Compose`, `Product`, `Sum`.
332+
333+### 0.11.2.0
334+
335+* Enable `PolyKinds` to generalize `Proxy`, `Tagged`, and `Const` instances.
336+* Add `unsafeToEncoding` in `Data.Aeson.Types`, use with care!
337+
338+#### 0.11.1.4
339+
340+* Fix build with `base >= 4.8` and `unordered-containers < 0.2.6`.
341+
342+#### 0.11.1.3
343+
344+* Fix build on TH-less GHCs
345+
346+#### 0.11.1.2
347+
348+* Fix build with `base < 4.8` and `unordered-containers < 0.2.6`.
349+* Add missing field in docs for `defaultOptions`.
350+
351+#### 0.11.1.1
352+
353+* Fixes a bug where the hashes of equal values could differ.
354+
355+### 0.11.1.0
356+
357+The only changes are added instances.
358+
359+These are new:
360+* `ToJSON a => ToJSON (NonEmpty a)`
361+* `FromJSON a => FromJSON (NonEmpty a)`
362+* `ToJSON (Proxy a)`
363+* `FromJSON (Proxy a)`
364+* `ToJSON b => ToJSON (Tagged a b)`
365+* `FromJSON b => FromJSON (Tagged a b)`
366+* `ToJSON a => ToJSON (Const a b)`
367+* `FromJSON a => FromJSON (Const a b)`
368+
369+These are now available for older GHCs:
370+* `ToJSON Natural`
371+* `FromJSON Natural`
372+
373+# 0.11.0.0
374+
375+This release should be close to backwards compatible with aeson 0.9.
376+
377+If you are upgrading from aeson 0.10 it might be easier to go back in
378+history to the point you were still using 0.9.
379+
380+**Breaking changes**:
381+
382+* Revert `.:?` to behave like it did in 0.9. If you want the 0.10
383+ behavior use `.:!` instead.
384+
385+* Revert JSON format of `Either` to 0.9, `Left` and `Right` are now
386+ serialized with an initial uppercase letter. If you want the names
387+ in lowercase you can add a newtype with an instance.
388+
389+* All `ToJSON` and `FromJSON` instances except for `[a]` are no longer
390+ `OVERLAPPABLE`. Mark your instance as `OVERLAPPING` if it overlaps
391+ any of the other aeson instances.
392+
393+* All `ToJSON` and `FromJSON` instances except for `[Char]` are no
394+ longer incoherent, this means you may need to replace your
395+ incoherent instances with a newtyped instance.
396+
397+**Additions**:
398+
399+* Introduce `.:!` that behaves like `.:?` did in 0.10.
400+
401+* Allow `HH:MM` format for `ZonedTime` and `UTCTime`.
402+ This is one of the formats allowed by
403+ [ISO 8601](https://en.wikipedia.org/wiki/ISO_8601#Times).
404+
405+* Added `ToJSON` and `FromJSON` instances for the
406+ `Version`, `Ordering`, and `Natural` types.
407+
408+**Bug fixes**:
409+
410+* JSONPath identifiers are now escaped if they contain invalid characters.
411+
412+* Fixed JSONPath messages for Seq to include indices.
413+
414+* Fixed JSONPath messages for Either to include `left`/`right`.
415+
416+* Fix missing quotes surrounding time encodings.
417+
418+* Fix #293: Type error in TH when using `omitNothingFields = True`.
419+
420+**Compatibility**:
421+
422+* Various updates to support GHC 8.
423+
424+
425+# 0.10.0.0
426+
427+## Performance improvements
428+
429+* Direct encoding via the new `toEncoding` method is over 2x faster
430+ than `toJSON`. (You must write or code-gen a `toEncoding`
431+ implementation to unlock this speedup. See below for details.)
432+
433+* Improved string decoding gives a 12% speed win in parsing
434+ string-heavy JSON payloads (very common).
435+
436+* Encoding and decoding of time-related types are 10x faster (!!) as a
437+ result of bypassing `Data.Time.Format` and the arbitrary-precision
438+ `Integer` type.
439+
440+* When using `toEncoding`, `[Char]` can be encoded without a conversion to
441+ `Text`. This is fast and efficient.
442+
443+* Parsing into an `Object` is now 5% faster and more
444+ allocation-efficient.
445+
446+## SUBTLE API CHANGES, READ CAREFULLY
447+
448+With the exception of long-deprecated code, the API changes below
449+**should be upwards compatible** from older versions of `aeson`. If you run
450+into upgrade problems, please file an issue with details.
451+
452+* The `ToJSON` class has a new method, `toEncoding`, that allows
453+ direct encoding from a Haskell value to a lazy bytestring without
454+ construction of an intermediate `Value`.
455+
456+ The performance benefits of direct encoding are significant: more
457+ than 2x faster than before, with less than 1/3 the memory usage.
458+
459+ To preserve API compatibility across upgrades from older versions of
460+ this library, the default implementation of `toEncoding` uses
461+ `toJSON`. You will *not* see any performance improvement unless you
462+ write an implementation of `toEncoding`, which can be very simple:
463+
464+ ```haskell
465+ instance ToJSON Coord where
466+ toEncoding = genericToEncoding defaultOptions
467+ ```
468+
469+ (Behind the scenes, the `encode` function uses `toEncoding` now, so
470+ if you implement `toEncoding` for your types, you should see a
471+ speedup immediately.)
472+
473+ If you use Template Haskell or GHC Generics to auto-generate your
474+ `ToJSON` instances, you'll benefit from fast toEncoding
475+ implementations for free!
476+
477+* When converting from a `Value` to a target Haskell type, `FromJSON`
478+ instances now provide much better error messages, including a
479+ complete JSON path from the root of the object to the offending
480+ element. This greatly eases debugging.
481+
482+* It is now possible to use Template Haskell to generate `FromJSON`
483+ and `ToJSON` instances for types in data families.
484+
485+* If you use Template Haskell or generics, and used to use the
486+ `camelTo` function to rename fields, the new `camelTo2` function is
487+ smarter. For example, `camelTo` will rename `CamelAPICase` to
488+ `camelapi_case` (ugh!), while `camelTo2` will map it to
489+ `camel_api_case` (yay!).
490+
491+* New `ToJSON` and `FromJSON` instances for the following time-related
492+ types: `Day`, `LocalTime`.
493+
494+* `FromJSON` `UTCTime` parser accepts the same values as for `ZonedTime`,
495+ but converts any time zone offset into a UTC time.
496+
497+* The `Result` type is now an instance of `Foldable` and `Traversable`.
498+
499+* The `Data.Aeson.Generic` module has been removed. It was deprecated in
500+ late 2013.
501+
502+* GHC 7.2 and older are no longer supported.
503+
504+* The instance of `Monad` for the `Result` type lacked an implementation
505+ of `fail` (oops). This has been corrected.
506+
507+* Semantics of `(.:?)` operator are changed. It's doesn't anymore accept
508+ present `Null` value.
509+
510+* Added `(Foldable t, ToJSON a) => ToJSON (t a)` overlappable instance.
511+ You might see `No instance for (Foldable YourPolymorphicType) arising from a
512+ use of ‘.=’` -errors due this change.
513+
514+# 0.9.0.1
515+
516+* A stray export of `encodeToBuilder` got away!
517+
518+# 0.9.0.0
519+
520+* The `json` and `json'` parsers are now synonyms for `value` and
521+ `value'`, in conformance with the looser semantics of RFC 7159.
522+
523+* Renamed `encodeToByteStringBuilder` to the more compact
524+ `encodeToBuilder`.
525+
526+# 0.8.1.1
527+
528+* The dependency on the `unordered-containers` package was too lax,
529+ and has been corrected.
530+
531+# 0.8.1.0
532+
533+* Encoding a `Scientific` value with a huge exponent is now handled
534+ efficiently. (This would previously allocate a huge
535+ arbitrary-precision integer, potentially leading to a denial of
536+ service.)
537+
538+* Handling of strings that contain backslash escape sequences is
539+ greatly improved. For a pathological string containing almost a
540+ megabyte of consecutive backslashes, the new implementation is 27x
541+ faster and uses 42x less memory.
542+
543+* The `ToJSON` instance for `UTCTime` is rendered with higher
544+ (picosecond) resolution.
545+
546+* The `value` parser now correctly handles leading whitespace.
547+
548+* New instances of `ToJSON` and `FromJSON` for `Data.Sequence` and
549+ `Data.Functor.Identity`. The `Value` type now has a `Read` instance.
550+
551+* `ZonedTime` parser ordering now favours the standard `JSON` format,
552+ increasing efficiency in the common case.
553+
554+* Encoding to a `Text.Builder` now escapes `'<'` and `'>'` characters,
555+ to reduce XSS risk.
556+
557+# 0.8.0.2
558+
559+* Fix `ToJSON` instance for 15-tuples (see #223).
560+
561+# 0.8.0.1
562+
563+* Support `time-1.5`.
564+
565+# 0.8.0.0
566+
567+* Add `ToJSON` and `FromJSON` instances for tuples of up to 15
568+ elements.
569+
570+# 0.7.1.0
571+
572+* Major compiler and library compatibility changes: we have dropped
573+ support for GHC older than 7.4, `text` older than 1.1, and
574+ `bytestring` older than 0.10.4.0. Supporting the older versions had
575+ become increasingly difficult, to the point where it was no longer
576+ worth it.
577+
578+# 0.7.0.0
579+
580+* The performance of encoding to and decoding of bytestrings have both
581+ improved by up to 2x, while also using less memory.
582+
583+* New dependency: the `scientific` package lets us parse floating point
584+ numbers more quickly and accurately.
585+
586+* `eitherDecode`, `decodeStrictWith`: fixed bugs.
587+
588+* Added `FromJSON` and `ToJSON` instances for `Tree` and `Scientific`.
589+
590+* Fixed the `ToJSON` instances for `UTCTime` and `ZonedTime`.
591+
592+# 0.6 series
593+
594+* Much improved documentation.
595+
596+* Angle brackets are now escaped in JSON strings, to help avoid XSS
597+ attacks.
598+
599+* Fixed up handling of nullary constructors when using generic
600+ encoding.
601+
602+* Added `ToJSON`/`FromJSON` instances for:
603+
604+ * The `Fixed` class
605+ * ISO-8601 dates: `UTCTime`, `ZonedTime`, and `TimeZone`
606+
607+* Added accessor functions for inspecting `Value`s.
608+
609+* Added `eitherDecode` function that returns an error message if
610+ decoding fails.
611+
612+# 0.5 to 0.6
613+
614+* This release introduces a slightly obscure, but
615+ backwards-incompatible, change.
616+
617+ In the generic APIs of versions 0.4 and 0.5, fields whose names
618+ began with a `"_"` character would have this character removed. This
619+ no longer occurs, as it was both buggy and surprising
620+ (https://github.com/bos/aeson/issues/53).
621+
622+* Fixed a bug in generic decoding of nullary constructors
623+ (https://github.com/bos/aeson/issues/62).
624+
625+# 0.4 to 0.5
626+
627+* When used with the UTF-8 encoding performance improvements
628+ introduced in version 0.11.1.12 of the `text` package, this release
629+ improves `aeson`'s JSON encoding performance by 33% relative to
630+ `aeson` 0.4.
631+
632+ As part of achieving this improvement, an API change was necessary.
633+ The `fromValue` function in the `Data.Aeson.Encode` module now uses
634+ the `text` package's `Builder` type instead of the `blaze-builder`
635+ package's `Builder` type.
636+
637+# 0.3 to 0.4
638+
639+* The new `decode` function complements the longstanding `encode`
640+ function, and makes the API simpler.
641+
642+* New examples make it easier to learn to use the package
643+ (https://github.com/bos/aeson/tree/master/examples).
644+
645+* Generics support
646+
647+ `aeson`'s support for data-type generic programming makes it
648+ possible to use JSON encodings of most data types without writing
649+ any boilerplate instances.
650+
651+ Thanks to Bas Van Dijk, `aeson` now supports the two major schemes
652+ for doing datatype-generic programming:
653+
654+ * the modern mechanism, built into GHC itself
655+ (http://www.haskell.org/ghc/docs/latest/html/users_guide/generic-programming.html)
656+
657+ * the older mechanism, based on SYB (aka "scrap your
658+ boilerplate")
659+
660+ The modern GHC-based generic mechanism is fast and terse: in fact,
661+ its performance is generally comparable in performance to
662+ hand-written and TH-derived `ToJSON` and `FromJSON` instances. To
663+ see how to use GHC generics, refer to `examples/Generic.hs`.
664+
665+ The SYB-based generics support lives in `Data.Aeson.Generic` and is
666+ provided mainly for users of GHC older than 7.2. SYB is far slower
667+ (by about 10x) than the more modern generic mechanism. To see how
668+ to use SYB generics, refer to `examples/GenericSYB.hs`.
669+
670+* We switched the intermediate representation of JSON objects from
671+ `Data.Map` to `Data.HashMap` which has improved type conversion
672+ performance.
673+
674+* Instances of `ToJSON` and `FromJSON` for tuples are between 45% and 70%
675+ faster than in 0.3.
676+
677+* Evaluation control
678+
679+ This version of aeson makes explicit the decoupling between
680+ *identifying* an element of a JSON document and *converting* it to
681+ Haskell. See the `Data.Aeson.Parser` documentation for details.
682+
683+ The normal `aeson` `decode` function performs identification
684+ strictly, but defers conversion until needed. This can result in
685+ improved performance (e.g. if the results of some conversions are
686+ never needed), but at a cost in increased memory consumption.
687+
688+ The new `decode'` function performs identification and conversion
689+ immediately. This incurs an up-front cost in CPU cycles, but
690+ reduces reduce memory consumption.
examples/Generic.hsnew file+37
@@ -0,0 +1,37 @@
1+-- This example is basically the same as in Simplest.hs, only it uses
2+-- GHC's builtin generics instead of explicit instances of ToJSON and
3+-- FromJSON.
4+
5+-- We enable the DeriveGeneric language extension so that GHC can
6+-- automatically derive the Generic class for us.
7+
8+{-# LANGUAGE DeriveGeneric #-}
9+{-# LANGUAGE NoImplicitPrelude #-}
10+{-# LANGUAGE OverloadedStrings #-}
11+
12+module Main (main) where
13+
14+import Prelude.Compat
15+
16+import Data.Aeson (FromJSON, ToJSON, decode, encode)
17+import qualified Data.ByteString.Lazy.Char8 as BL
18+import GHC.Generics (Generic)
19+
20+-- To decode or encode a value using the generic machinery, we must
21+-- make the type an instance of the Generic class.
22+data Coord = Coord { x :: Double, y :: Double }
23+ deriving (Show, Generic)
24+
25+-- While we still have to declare our type as instances of FromJSON
26+-- and ToJSON, we do *not* need to provide bodies for the instances.
27+-- Default versions will be supplied for us.
28+
29+instance FromJSON Coord
30+instance ToJSON Coord
31+
32+main :: IO ()
33+main = do
34+ let req = decode "{\"x\":3.0,\"y\":-1.0}" :: Maybe Coord
35+ print req
36+ let reply = Coord { x = 123.4, y = 20 }
37+ BL.putStrLn (encode reply)
examples/Simplest.hsnew file+41
@@ -0,0 +1,41 @@
1+{-# LANGUAGE NoImplicitPrelude #-}
2+{-# LANGUAGE OverloadedStrings #-}
3+{-# LANGUAGE RecordWildCards #-}
4+
5+module Main (main) where
6+
7+import Prelude.Compat
8+
9+import Control.Applicative (empty)
10+import Data.Aeson
11+import Data.Monoid
12+import qualified Data.ByteString.Lazy.Char8 as BL
13+
14+data Coord = Coord { x :: Double, y :: Double }
15+ deriving (Show)
16+
17+-- A ToJSON instance allows us to encode a value as JSON.
18+
19+instance ToJSON Coord where
20+ toJSON (Coord xV yV) = object [ "x" .= xV,
21+ "y" .= yV ]
22+
23+ toEncoding Coord{..} = pairs $
24+ "x" .= x <>
25+ "y" .= y
26+
27+-- A FromJSON instance allows us to decode a value from JSON. This
28+-- should match the format used by the ToJSON instance.
29+
30+instance FromJSON Coord where
31+ parseJSON (Object v) = Coord <$>
32+ v .: "x" <*>
33+ v .: "y"
34+ parseJSON _ = empty
35+
36+main :: IO ()
37+main = do
38+ let req = decode "{\"x\":3.0,\"y\":-1.0}" :: Maybe Coord
39+ print req
40+ let reply = Coord 123.4 20
41+ BL.putStrLn (encode reply)
examples/TemplateHaskell.hsnew file+28
@@ -0,0 +1,28 @@
1+-- We can use Template Haskell (TH) to generate instances of the
2+-- FromJSON and ToJSON classes automatically. This is the fastest way
3+-- to add JSON support for a type.
4+{-# LANGUAGE NoImplicitPrelude #-}
5+{-# LANGUAGE OverloadedStrings #-}
6+{-# LANGUAGE TemplateHaskell #-}
7+
8+module Main (main) where
9+
10+import Prelude.Compat
11+
12+import Data.Aeson (decode, encode)
13+import Data.Aeson.TH (deriveJSON, defaultOptions)
14+import qualified Data.ByteString.Lazy.Char8 as BL
15+
16+data Coord = Coord { x :: Double, y :: Double }
17+ deriving (Show)
18+
19+-- This splice will derive instances of ToJSON and FromJSON for us.
20+
21+$(deriveJSON defaultOptions ''Coord)
22+
23+main :: IO ()
24+main = do
25+ let req = decode "{\"x\":3.0,\"y\":-1.0}" :: Maybe Coord
26+ print req
27+ let reply = Coord { x = 123.4, y = 20 }
28+ BL.putStrLn (encode reply)
examples/Twitter.hsnew file+80
@@ -0,0 +1,80 @@
1+-- These types follow the format of Twitter search results, as can be
2+-- found in the benchmarks/json-data directory.
3+--
4+-- For uses of these types, see the Twitter subdirectory.
5+--
6+-- There is one deviation for the sake of convenience: the Geo field
7+-- named "type_" is really named "type" in Twitter's real feed. I
8+-- renamed "type" to "type_" in the *.json files, to avoid overlap
9+-- with a Haskell reserved keyword.
10+
11+{-# LANGUAGE DeriveDataTypeable #-}
12+{-# LANGUAGE DeriveGeneric #-}
13+{-# LANGUAGE NoImplicitPrelude #-}
14+
15+module Twitter
16+ (
17+ Metadata(..)
18+ , Geo(..)
19+ , Story(..)
20+ , Result(..)
21+ ) where
22+
23+import Prelude.Compat
24+
25+import Control.DeepSeq
26+import Data.Data (Typeable, Data)
27+import Data.Int (Int64)
28+import Data.Text (Text)
29+import GHC.Generics (Generic)
30+
31+{-# ANN module "Hlint: ignore Use camelCase" #-}
32+{-# ANN module "Hlint: ignore Use newtype instead of data" #-}
33+
34+data Metadata = Metadata {
35+ result_type :: Text
36+ } deriving (Eq, Show, Typeable, Data, Generic)
37+
38+instance NFData Metadata
39+
40+data Geo = Geo {
41+ type_ :: Text
42+ , coordinates :: (Double, Double)
43+ } deriving (Eq, Show, Typeable, Data, Generic)
44+
45+instance NFData Geo
46+
47+data Story = Story {
48+ from_user_id_str :: Text
49+ , profile_image_url :: Text
50+ , created_at :: Text -- ZonedTime
51+ , from_user :: Text
52+ , id_str :: Text
53+ , metadata :: Metadata
54+ , to_user_id :: Maybe Int64
55+ , text :: Text
56+ , id_ :: Int64
57+ , from_user_id :: Int64
58+ , geo :: Maybe Geo
59+ , iso_language_code :: Text
60+ , to_user_id_str :: Maybe Text
61+ , source :: Text
62+ } deriving (Show, Typeable, Data, Generic)
63+
64+instance NFData Story
65+
66+data Result = Result {
67+ results :: [Story]
68+ , max_id :: Int64
69+ , since_id :: Int64
70+ , refresh_url :: Text
71+ , next_page :: Text
72+ , results_per_page :: Int
73+ , page :: Int
74+ , completed_in :: Double
75+ , since_id_str :: Text
76+ , max_id_str :: Text
77+ , query :: Text
78+ } deriving (Show, Typeable, Data, Generic)
79+
80+instance NFData Result
examples/Twitter/Generic.hsnew file+44
@@ -0,0 +1,44 @@
1+-- Use GHC generics to automatically generate good instances.
2+
3+{-# LANGUAGE NoImplicitPrelude #-}
4+
5+{-# OPTIONS_GHC -fno-warn-orphans #-}
6+
7+module Twitter.Generic
8+ (
9+ Metadata(..)
10+ , Geo(..)
11+ , Story(..)
12+ , Result(..)
13+ ) where
14+
15+import Prelude.Compat ()
16+
17+import Twitter
18+import Twitter.Options
19+
20+import Data.Aeson (ToJSON (..), FromJSON (..), genericToJSON, genericToEncoding, genericParseJSON)
21+
22+instance ToJSON Metadata where
23+ toJSON = genericToJSON twitterOptions
24+ toEncoding = genericToEncoding twitterOptions
25+instance FromJSON Metadata where
26+ parseJSON = genericParseJSON twitterOptions
27+
28+instance ToJSON Geo where
29+ toJSON = genericToJSON twitterOptions
30+ toEncoding = genericToEncoding twitterOptions
31+instance FromJSON Geo where
32+ parseJSON = genericParseJSON twitterOptions
33+
34+instance ToJSON Story where
35+ toJSON = genericToJSON twitterOptions
36+ toEncoding = genericToEncoding twitterOptions
37+instance FromJSON Story where
38+ parseJSON = genericParseJSON twitterOptions
39+
40+instance ToJSON Result where
41+ toJSON = genericToJSON twitterOptions
42+ toEncoding = genericToEncoding twitterOptions
43+instance FromJSON Result where
44+ parseJSON = genericParseJSON twitterOptions
examples/Twitter/Manual.hsnew file+146

This diff is too big to show here.

examples/Twitter/Options.hsnew file+10

This diff is too big to show here.

examples/Twitter/TH.hsnew file+25

This diff is too big to show here.

examples/aeson-examples.cabalnew file+32

This diff is too big to show here.

ffi/Data/Aeson/Parser/UnescapeFFI.hsnew file+52

This diff is too big to show here.

include/incoherent-compat.hnew file+7

This diff is too big to show here.

include/overlapping-compat.hnew file+8

This diff is too big to show here.

pure/Data/Aeson/Parser/UnescapePure.hsnew file+254

This diff is too big to show here.

run-hlint.shnew file+7

This diff is too big to show here.

stack-bench.yamlnew file+12

This diff is too big to show here.

stack-ffi-unescape.yamlnew file+9

This diff is too big to show here.

stack-lts12.yamlnew file+15

This diff is too big to show here.

stack-nightly.yamlnew file+11

This diff is too big to show here.

tests/DataFamilies/Encoders.hsnew file+239

This diff is too big to show here.

tests/DataFamilies/Instances.hsnew file+43

This diff is too big to show here.

tests/DataFamilies/Properties.hsnew file+141

This diff is too big to show here.

tests/DataFamilies/Types.hsnew file+54

This diff is too big to show here.

tests/Encoders.hsnew file+458

This diff is too big to show here.

tests/ErrorMessages.hsnew file+224

This diff is too big to show here.

tests/Functions.hsnew file+18

This diff is too big to show here.

tests/Instances.hsnew file+167

This diff is too big to show here.

tests/JSONTestSuite/LICENSEnew file+21

This diff is too big to show here.

tests/JSONTestSuite/README.mdnew file+50

This diff is too big to show here.

tests/JSONTestSuite/parsers/test-AppleJSONSerialization/bin/test-AppleJSONSerializationnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test-AppleJSONSerialization/test-AppleJSONSerialization.xcodeproj/project.pbxprojnew file+260

This diff is too big to show here.

tests/JSONTestSuite/parsers/test-AppleJSONSerialization/test-AppleJSONSerialization.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test-AppleJSONSerialization/test-AppleJSONSerialization.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test-AppleJSONSerialization/test-AppleJSONSerialization.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test-AppleJSONSerialization.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test-AppleJSONSerialization/test-AppleJSONSerialization.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test-AppleJSONSerialization/test-AppleJSONSerialization/main.swiftnew file+34

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Bash_JSON/JSON.shnew file+208

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/bin/test_Freddynew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy.xcodeproj/project.pbxprojnew file+300

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy.xcodeproj/project.xcworkspace/xcshareddata/test_Freddy.xcscmblueprintnew file+30

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_Freddy.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSON.swiftnew file+95

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSONDecodable.swiftnew file+177

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSONEncodable.swiftnew file+83

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSONEncodingDetector.swiftnew file+110

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSONLiteralConvertible.swiftnew file+130

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSONParser.swiftnew file+907

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSONParsing.swiftnew file+126

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSONSerializing.swiftnew file+43

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/JSONSubscripting.swiftnew file+705

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20160830/test_Freddy/main.swiftnew file+37

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/bin/test_Freddynew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy.xcodeproj/project.pbxprojnew file+300

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy.xcodeproj/project.xcworkspace/xcshareddata/test_Freddy.xcscmblueprintnew file+30

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_Freddy.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSON.swiftnew file+98

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSONDecodable.swiftnew file+186

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSONEncodable.swiftnew file+83

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSONEncodingDetector.swiftnew file+110

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSONLiteralConvertible.swiftnew file+134

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSONParser.swiftnew file+918

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSONParsing.swiftnew file+126

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSONSerializing.swiftnew file+54

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/JSONSubscripting.swiftnew file+613

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_20161018/test_Freddy/main.swiftnew file+40

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/bin/test_Freddy_2_1_0new file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy.xcodeproj/project.pbxprojnew file+300

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy.xcodeproj/project.xcworkspace/xcshareddata/test_Freddy.xcscmblueprintnew file+30

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_Freddy.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSON.swiftnew file+95

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSONDecodable.swiftnew file+151

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSONEncodable.swiftnew file+83

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSONEncodingDetector.swiftnew file+110

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSONLiteralConvertible.swiftnew file+130

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSONParser.swiftnew file+903

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSONParsing.swiftnew file+126

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSONSerializing.swiftnew file+43

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/JSONSubscripting.swiftnew file+643

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Freddy_2_1_0/test_Freddy/main.swiftnew file+37

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_JSONKit/JSONKit.hnew file+251

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_JSONKit/JSONKit.mnew file+3065

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_JSONKit/bin/test-JSONKitnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_JSONKit/test-JSONKit.xcodeproj/project.pbxprojnew file+252

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_JSONKit/test-JSONKit.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_JSONKit/test-JSONKit.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_JSONKit/test-JSONKit.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test-JSONKit.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_JSONKit/test-JSONKit.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_JSONKit/test-JSONKit/main.mnew file+73

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Json.NET/Program.csnew file+46

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Json.NET/bin/Release/netcoreapp1.0/publish/Newtonsoft.Json.dllnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Json.NET/bin/Release/netcoreapp1.0/publish/System.Runtime.Serialization.Primitives.dllnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Json.NET/bin/Release/netcoreapp1.0/publish/test_Json.NET.deps.jsonnew file+49

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Json.NET/bin/Release/netcoreapp1.0/publish/test_Json.NET.dllnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Json.NET/bin/Release/netcoreapp1.0/publish/test_Json.NET.pdbnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Json.NET/bin/Release/netcoreapp1.0/publish/test_Json.NET.runtimeconfig.jsonnew file+8

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Json.NET/project.jsonnew file+21

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Json.NET/project.lock.jsonnew file+6741

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Lua_JSON/JSON.luanew file+1451

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Lua_JSON/test_JSON.luanew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/bin/test_ObjCNSJSONSerializernew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer.xcodeproj/project.pbxprojnew file+246

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_ObjCNSJSONSerializer.xcschemenew file+97

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer/a.outnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer/a.out.dSYM/Contents/Info.plistnew file+20

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer/a.out.dSYM/Contents/Resources/DWARF/a.outnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer/findings_dir/plot_datanew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ObjCNSJSONSerializer/test_ObjCNSJSONSerializer/main.mnew file+32

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/Accessors.swiftnew file+255

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/DecimalNumber.swiftnew file+236

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/Decoder.swiftnew file+294

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/Encoder.swiftnew file+167

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/JSON.swiftnew file+170

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/JSONError.swiftnew file+1619

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/JSONObject.swiftnew file+215

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/ObjectiveC.swiftnew file+233

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/Parser.swiftnew file+674

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/bin/test_PMJSONnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/test_PMJSON.xcodeproj/project.pbxprojnew file+296

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/test_PMJSON.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/test_PMJSON.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/test_PMJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_PMJSON.xcschemenew file+97

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/test_PMJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_1_0/test_PMJSON/main.swiftnew file+46

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/Accessors.swiftnew file+255

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/DecimalNumber.swiftnew file+236

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/Decoder.swiftnew file+502

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/Encoder.swiftnew file+215

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/JSON.swiftnew file+170

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/JSONError.swiftnew file+1619

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/JSONObject.swiftnew file+215

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/ObjectiveC.swiftnew file+331

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/Parser.swiftnew file+745

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/bin/test_PMJSONnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/test_PMJSON.xcodeproj/project.pbxprojnew file+296

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/test_PMJSON.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/test_PMJSON.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/test_PMJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_PMJSON.xcschemenew file+97

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/test_PMJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_PMJSON_1_2_0/test_PMJSON/main.swiftnew file+46

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4.hnew file+35

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4Parser.hnew file+248

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4Parser.mnew file+287

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamParser.hnew file+131

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamParser.mnew file+317

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamParserState.hnew file+82

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamParserState.mnew file+355

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamTokeniser.hnew file+40

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamTokeniser.mnew file+395

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamWriter.hnew file+210

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamWriter.mnew file+358

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamWriterState.hnew file+69

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4StreamWriterState.mnew file+147

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4Writer.hnew file+103

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/SBJson4Writer.mnew file+102

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/bin/test_SBJSONnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_SBJSON/test_SBJSON.xcodeproj/project.pbxprojnew file+290

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/test_SBJSON.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/test_SBJSON.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_SBJSON/test_SBJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcdebugger/Breakpoints_v2.xcbkptlistnew file+5

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/test_SBJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_SBJSON.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/test_SBJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_SBJSON/test_SBJSON/main.mnew file+38

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSON.xcodeproj/project.pbxprojnew file+361

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSON.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSON.xcodeproj/project.xcworkspace/xcshareddata/STJSON.xcscmblueprintnew file+30

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSON.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_STJSON/STJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/STJSON.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/STJSONTests.xcschemenew file+56

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+32

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSON/STJSONParser.swiftnew file+663

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSON/main.swiftnew file+47

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSONTests/Info.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/STJSONTests/STJSONTests.swiftnew file+92

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_STJSON/bin/STJSONnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Info.plistnew file+563

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/MacOS/Squeaknew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/English.lproj/Localizable.stringsnew file+9

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/English.lproj/MainMenu.nibnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/Squeak.icnsnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/SqueakChanges.icnsnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/SqueakGeneric.icnsnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/SqueakImage.icnsnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/SqueakPlugin.icnsnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/SqueakProject.icnsnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/SqueakScript.icnsnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak.app/Contents/Resources/SqueakSources.icnsnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/Squeak5.1-16549-32bit.imagenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_Squeak_JSON_tonyg/test_JSON.stnew file+9

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_TouchJSON/bin/test_TouchJSONnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_TouchJSON/test_TouchJSON.xcodeproj/project.pbxprojnew file+262

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_TouchJSON/test_TouchJSON.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_TouchJSON/test_TouchJSON.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_TouchJSON/test_TouchJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_TouchJSON.xcschemenew file+97

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_TouchJSON/test_TouchJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_TouchJSON/test_TouchJSON/CJSONDeserializer.hnew file+96

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_TouchJSON/test_TouchJSON/CJSONDeserializer.mnew file+1240

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_TouchJSON/test_TouchJSON/main.mnew file+25

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_cJSON/bin/test-cJSONnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_cJSON/cJSON.cnew file+754

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_cJSON/cJSON.hnew file+153

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_cJSON/test-cJSON.xcodeproj/project.pbxprojnew file+257

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_cJSON/test-cJSON.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_cJSON/test-cJSON.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_cJSON/test-cJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcdebugger/Breakpoints_v2.xcbkptlistnew file+5

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_cJSON/test-cJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test-cJSON.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_cJSON/test-cJSON.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_cJSON/test-cJSON/main.cnew file+69

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/bin/test_ccannew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/common.hnew file+18

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_10.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_101.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_11.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_12.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_125.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_127.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_13.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_136.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_137.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_139.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_14.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_140.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_145.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_147.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_149.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_15.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_150.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_151.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_153.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_154.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_155.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_156.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_157.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_158.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_159.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_16.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_160.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_161.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_162.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_163.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_164.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_165.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_169.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_17.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_171.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_172.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_173.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_175.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_176.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_177.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_178.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_179.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_18.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_180.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_181.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_183.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_184.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_185.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_186.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_187.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_188.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_189.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_19.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_190.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_191.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_192.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_193.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_194.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_195.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_197.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_198.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_199.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_2.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_20.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_200.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_201.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_202.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_203.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_204.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_205.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_206.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_207.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_208.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_209.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_21.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_210.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_211.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_212.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_213.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_214.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_216.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_217.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_218.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_219.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_22.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_220.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_221.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_222.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_223.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_23.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_24.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_25.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_26.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_27.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_28.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_29.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_3.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_30.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_31.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_32.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_33.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_34.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_35.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_36.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_37.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_4.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_40.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_44.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_46.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_5.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_54.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_55.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_59.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_6.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_63.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_64.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_66.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_69.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_7.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_77.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_78.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_79.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_80.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_81.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_82.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_83.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_85.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_86.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_87.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_9.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/n_91.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_100.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_102.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_103.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_104.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_105.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_106.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_107.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_108.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_109.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_110.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_111.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_112.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_113.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_114.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_115.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_116.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_117.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_118.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_119.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_120.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_121.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_122.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_123.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_124.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_126.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_128.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_129.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_130.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_131.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_132.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_133.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_134.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_135.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_138.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_141.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_142.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_143.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_144.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_146.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_148.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_152.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_166.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_167.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_168.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_170.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_174.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_182.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_196.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_215.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_38.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_39.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_41.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_42.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_43.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_45.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_47.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_48.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_49.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_50.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_51.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_52.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_53.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_56.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_57.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_58.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_60.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_61.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_62.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_65.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_67.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_68.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_70.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_71.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_72.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_73.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_74.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_75.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_76.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_84.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_88.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_89.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_90.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_92.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_93.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_94.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_95.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_96.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_97.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_98.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/nst_files/y_99.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/run-construction.cnew file+191

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/run-decode-encode.cnew file+77

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/run-stringify.cnew file+108

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/run-validate.cnew file+49

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/test-stringsnew file+224

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/test-strings-reencodednew file+90

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/_test/x.pynew file+21

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/json.cnew file+1381

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/json/json.hnew file+117

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/test_ccan/test_ccan.xcodeproj/project.pbxprojnew file+262

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/test_ccan/test_ccan.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/test_ccan/test_ccan.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_ccan_json/test_ccan/test_ccan.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_ccan.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/test_ccan/test_ccan.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_ccan_json/test_ccan/test_ccan/main.cnew file+44

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_dkjson.luanew file+25

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_go/test_jsonnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_go/test_json.gonew file+30

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_haskell-aeson/.gitignorenew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_haskell-aeson/package.yamlnew file+12

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_haskell-aeson/src/Main.hsnew file+29

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_haskell-aeson/stack.yamlnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_haskell-aeson/testaesonnew file+8

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_haskell-aeson/testaeson.cabalnew file+21

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/bin/test_janssonnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jansson/dump.cnew file+467

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/error.cnew file+63

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/hashtable.cnew file+356

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/hashtable.hnew file+184

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/hashtable_seed.cnew file+277

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/jansson.hnew file+298

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/jansson_config.hnew file+43

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/jansson_private.hnew file+109

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/load.cnew file+1110

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/lookup3.hnew file+381

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/memory.cnew file+69

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/pack_unpack.cnew file+871

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/strbuffer.cnew file+111

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/strbuffer.hnew file+34

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/strconv.cnew file+145

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/test_jansson.xcodeproj/project.pbxprojnew file+309

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/test_jansson.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/test_jansson.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jansson/test_jansson.xcodeproj/xcuserdata/nst.xcuserdatad/xcdebugger/Breakpoints_v2.xcbkptlistnew file+5

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/test_jansson.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_jansson.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/test_jansson.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/test_jansson/main.cnew file+208

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/utf.cnew file+187

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/utf.hnew file+27

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jansson/value.cnew file+1048

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_com_leastfixedpoint_json_1_0/META-INF/MANIFEST.MFnew file+3

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_com_leastfixedpoint_json_1_0/README.txtnew file+5

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_com_leastfixedpoint_json_1_0/TestJSONParsing.classnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_com_leastfixedpoint_json_1_0/TestJSONParsing.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_com_leastfixedpoint_json_1_0/TestJSONParsing.javanew file+40

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_com_leastfixedpoint_json_1_0/com.leastfixedpoint.json-1.0.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_gson_2_7/META-INF/MANIFEST.MFnew file+3

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_gson_2_7/README.txtnew file+5

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_gson_2_7/TestJSONParsing.classnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_gson_2_7/TestJSONParsing.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_gson_2_7/TestJSONParsing.javanew file+51

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_gson_2_7/gson-2.7.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_jackson_2_8_4/META-INF/MANIFEST.MFnew file+3

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_jackson_2_8_4/README.txtnew file+5

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_jackson_2_8_4/TestJSONParsing.classnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_jackson_2_8_4/TestJSONParsing.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_jackson_2_8_4/TestJSONParsing.javanew file+48

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_jackson_2_8_4/jackson-annotations-2.2.3.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_jackson_2_8_4/jackson-core-2.8.4.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_jackson_2_8_4/jackson-databind-2.3.1.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_nanojson_1_0/META-INF/MANIFEST.MFnew file+3

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_nanojson_1_0/README.txtnew file+5

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_nanojson_1_0/TestJSONParsing.classnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_nanojson_1_0/TestJSONParsing.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_nanojson_1_0/TestJSONParsing.javanew file+45

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_nanojson_1_0/nanojson-1.0.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_simple_json_1_1_1/META-INF/MANIFEST.MFnew file+3

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_simple_json_1_1_1/README.txtnew file+3

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_simple_json_1_1_1/TestJSONParsing.classnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_simple_json_1_1_1/TestJSONParsing.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_java_simple_json_1_1_1/TestJSONParsing.javanew file+43

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_java_simple_json_1_1_1/json-simple-1.1.1.jarnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jsmn/bin/test_jsmnnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jsmn/jsmn.cnew file+311

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsmn/jsmn.hnew file+76

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsmn/test_jsmn/test_jsmn.xcodeproj/project.pbxprojnew file+253

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsmn/test_jsmn/test_jsmn.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsmn/test_jsmn/test_jsmn.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jsmn/test_jsmn/test_jsmn.xcodeproj/xcuserdata/nst.xcuserdatad/xcdebugger/Breakpoints_v2.xcbkptlistnew file+23

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsmn/test_jsmn/test_jsmn.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_jsmn.xcschemenew file+101

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsmn/test_jsmn/test_jsmn.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsmn/test_jsmn/test_jsmn/main.cnew file+50

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-jq.pynew file+34

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-parser/bin/test_json-parsernew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-parser/test_json-parser.xcodeproj/project.pbxprojnew file+258

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-parser/test_json-parser.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-parser/test_json-parser.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-parser/test_json-parser.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/test_json-parser.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-parser/test_json-parser.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-parser/test_json-parser/json.cnew file+1011

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-parser/test_json-parser/json.hnew file+283

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-parser/test_json-parser/main.cnew file+66

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust-serde_json/rj/.gitignorenew file+2

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust-serde_json/rj/Cargo.tomlnew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust-serde_json/rj/READMEnew file+2

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust-serde_json/rj/src/main.rsnew file+30

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/Cargo.locknew file+14

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/Cargo.tomlnew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/READMEnew file+2

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/src/main.rsnew file+42

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.cargo-locknew file

No changes to the content.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/json-74a82b4ec4439e90/dep-lib-jsonnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/json-74a82b4ec4439e90/lib-jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/json-74a82b4ec4439e90/lib-json.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-b5d63a9d8da2968e/bin-tjnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-b5d63a9d8da2968e/bin-tj.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-b5d63a9d8da2968e/dep-bin-tjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-bb890ae6f101bb25/bin-tjnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-bb890ae6f101bb25/bin-tj.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-bb890ae6f101bb25/dep-bin-tjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-bf24d0bdc8d0f4d6/bin-tjnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-bf24d0bdc8d0f4d6/bin-tj.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/.fingerprint/tj-bf24d0bdc8d0f4d6/dep-bin-tjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/deps/libjson-6bbf4c11dd6d7c25.rlibnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/tjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/tj.dSYM/Contents/Info.plistnew file+20

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rust/target/debug/tj.dSYM/Contents/Resources/DWARF/tjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/Cargo.locknew file+14

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/Cargo.tomlnew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/READMEnew file+2

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/src/main.rsnew file+32

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.cargo-locknew file

No changes to the content.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rj-8f8b750d20f3bf10/bin-rjnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rj-8f8b750d20f3bf10/bin-rj.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rj-8f8b750d20f3bf10/dep-bin-rjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rj-da0f8f63b87cf531/bin-rjnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rj-da0f8f63b87cf531/bin-rj.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rj-da0f8f63b87cf531/dep-bin-rjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rustc-serialize-80c565222c5ccdbb/dep-lib-rustc-serializenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rustc-serialize-80c565222c5ccdbb/lib-rustc-serializenew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/.fingerprint/rustc-serialize-80c565222c5ccdbb/lib-rustc-serialize.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/deps/librustc_serialize-3561541d79c18212.rlibnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/rjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/rj.dSYM/Contents/Info.plistnew file+20

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json-rustc_serialize/rj/target/debug/rj.dSYM/Contents/Resources/DWARF/rjnew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_json.crnew file+19

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json.jsnew file+13

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json.phpnew file+21

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json.plnew file+32

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json.pynew file+39

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json.rbnew file+23

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker/bin/jsonCheckernew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jsonChecker/jsonChecker/JSON_checker.cnew file+400

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker/jsonChecker/JSON_checker.hnew file+13

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker/jsonChecker/jsonChecker.xcodeproj/project.pbxprojnew file+253

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker/jsonChecker/jsonChecker.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker/jsonChecker/jsonChecker.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jsonChecker/jsonChecker/jsonChecker.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/jsonChecker.xcschemenew file+91

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker/jsonChecker/jsonChecker.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker/jsonChecker/jsonChecker/main.cnew file+53

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker2/FSM.rtfnew file+103

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker2/bin/jsonChecker2new file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jsonChecker2/jsonChecker2/JSON_checker.cnew file+402

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker2/jsonChecker2/JSON_checker.hnew file+13

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker2/jsonChecker2/jsonChecker/main.cnew file+53

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker2/jsonChecker2/jsonChecker2.xcodeproj/project.pbxprojnew file+253

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker2/jsonChecker2/jsonChecker2.xcodeproj/project.xcworkspace/contents.xcworkspacedatanew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker2/jsonChecker2/jsonChecker2.xcodeproj/project.xcworkspace/xcuserdata/nst.xcuserdatad/UserInterfaceState.xcuserstatenew file

Binary file not shown.

tests/JSONTestSuite/parsers/test_jsonChecker2/jsonChecker2/jsonChecker2.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/jsonChecker.xcschemenew file+97

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonChecker2/jsonChecker2/jsonChecker2.xcodeproj/xcuserdata/nst.xcuserdatad/xcschemes/xcschememanagement.plistnew file+22

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json_re.rbnew file+33

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_json_xs.plnew file+28

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_jsonlite.rnew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_oj_compat.rbnew file+25

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_oj_strict.rbnew file+25

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_qt/build.shnew file+4

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_qt/main.cppnew file+25

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_qt/test_qt.pronew file+12

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_rjson.rnew file+7

This diff is too big to show here.

tests/JSONTestSuite/parsers/test_yajl.rbnew file+24

This diff is too big to show here.

tests/JSONTestSuite/results/logs.txtnew file+2048

This diff is too big to show here.

tests/JSONTestSuite/results/parsing.htmlnew file+2816

This diff is too big to show here.

tests/JSONTestSuite/results/parsing_pruned.htmlnew file+2661

This diff is too big to show here.

tests/JSONTestSuite/results/pruned_results.pngnew file

Binary file not shown.

tests/JSONTestSuite/results/style.cssnew file+89

This diff is too big to show here.

tests/JSONTestSuite/results/transform.htmlnew file+1492

This diff is too big to show here.

tests/JSONTestSuite/run_tests.pynew file+673

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_object_key_lone_2nd_surrogate.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_1st_surrogate_but_2nd_missing.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_1st_valid_surrogate_2nd_invalid.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_UTF-16LE_with_BOM.jsonnew file

Binary file not shown.

tests/JSONTestSuite/test_parsing/i_string_UTF-8_invalid_sequence.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_incomplete_surrogate_and_escape_valid.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_incomplete_surrogate_pair.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_incomplete_surrogates_escape_valid.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_invalid_lonely_surrogate.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_invalid_surrogate.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_inverted_surrogates_U+1D11E.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_lone_second_surrogate.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_not_in_unicode_range.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_truncated-utf-8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_unicode_U+10FFFE_nonchar.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_unicode_U+1FFFE_nonchar.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_unicode_U+FDD0_nonchar.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_string_unicode_U+FFFE_nonchar.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_structure_500_nested_arrays.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/i_structure_UTF-8_BOM_empty_object.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_1_true_without_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_a_invalid_utf8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_colon_instead_of_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_comma_after_close.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_comma_and_number.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_double_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_double_extra_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_extra_close.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_extra_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_incomplete.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_incomplete_invalid_value.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_inner_array_no_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_invalid_utf8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_items_separated_by_semicolon.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_just_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_just_minus.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_missing_value.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_newlines_unclosed.jsonnew file+3

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_number_and_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_number_and_several_commas.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_spaces_vertical_tab_formfeed.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_star_inside.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_unclosed.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_unclosed_trailing_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_unclosed_with_new_lines.jsonnew file+3

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_array_unclosed_with_object_inside.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_incomplete_false.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_incomplete_null.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_incomplete_true.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_++.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_+1.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_+Inf.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_-01.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_-1.0..jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_-2..jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_-NaN.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_.-1.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_.2e-3.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_0.1.2.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_0.3e+.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_0.3e.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_0.e1.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_0_capital_E+.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_0_capital_E.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_0e+.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_0e.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_1.0e+.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_1.0e-.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_1.0e.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_1_000.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_1eE2.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_2.e+3.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_2.e-3.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_2.e3.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_9.e+.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_Inf.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_NaN.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_U+FF11_fullwidth_digit_one.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_expression.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_hex_1_digit.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_hex_2_digits.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_infinity.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_invalid+-.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_invalid-negative-real.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_invalid-utf-8-in-bigger-int.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_invalid-utf-8-in-exponent.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_invalid-utf-8-in-int.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_minus_infinity.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_minus_sign_with_trailing_garbage.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_minus_space_1.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_neg_int_starting_with_zero.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_neg_real_without_int_part.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_neg_with_garbage_at_end.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_real_garbage_after_e.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_real_with_invalid_utf8_after_e.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_real_without_fractional_part.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_starting_with_dot.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_then_00.jsonnew file

Binary file not shown.

tests/JSONTestSuite/test_parsing/n_number_with_alpha.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_with_alpha_char.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_number_with_leading_zero.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_bad_value.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_bracket_key.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_comma_instead_of_colon.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_double_colon.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_emoji.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_garbage_at_end.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_key_with_single_quotes.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_missing_colon.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_missing_key.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_missing_semicolon.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_missing_value.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_no-colon.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_non_string_key.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_non_string_key_but_huge_number_instead.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_pi_in_key_and_trailing_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_repeated_null_null.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_several_trailing_commas.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_single_quote.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_trailing_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_trailing_comment.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_trailing_comment_open.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_trailing_comment_slash_open.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_trailing_comment_slash_open_incomplete.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_two_commas_in_a_row.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_unquoted_key.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_unterminated-value.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_with_single_string.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_object_with_trailing_garbage.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_single_space.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_1_surrogate_then_escape u.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_1_surrogate_then_escape u1.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_1_surrogate_then_escape u1x.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_1_surrogate_then_escape.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_UTF8_surrogate_U+D800.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_accentuated_char_no_quotes.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_backslash_00.jsonnew file

Binary file not shown.

tests/JSONTestSuite/test_parsing/n_string_escape_x.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_escaped_backslash_bad.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_escaped_ctrl_char_tab.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_escaped_emoji.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_incomplete_escape.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_incomplete_escaped_character.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_incomplete_surrogate.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_incomplete_surrogate_escape_invalid.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_invalid-utf-8-in-escape.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_invalid_backslash_esc.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_invalid_unicode_escape.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_invalid_utf-8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_invalid_utf8_after_escape.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_iso_latin_1.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_leading_uescaped_thinspace.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_lone_utf8_continuation_byte.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_no_quotes_with_bad_escape.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_overlong_sequence_2_bytes.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_overlong_sequence_6_bytes.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_overlong_sequence_6_bytes_null.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_single_doublequote.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_single_quote.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_single_string_no_double_quotes.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_start_escape_unclosed.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_unescaped_crtl_char.jsonnew file

Binary file not shown.

tests/JSONTestSuite/test_parsing/n_string_unescaped_newline.jsonnew file+2

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_unescaped_tab.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_unicode_CapitalU.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_string_with_trailing_garbage.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_..jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_100000_opening_arrays.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_U+2060_word_joined.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_UTF8_BOM_no_data.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_array_trailing_garbage.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_array_with_extra_array_close.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_array_with_unclosed_string.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_ascii-unicode-identifier.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_capitalized_True.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_close_unopened_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_comma_instead_of_closing_brace.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_double_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_end_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_incomplete_UTF8_BOM.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_lone-invalid-utf-8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_lone-open-bracket.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_no_data.jsonnew file

No changes to the content.

tests/JSONTestSuite/test_parsing/n_structure_null-byte-outside-string.jsonnew file

Binary file not shown.

tests/JSONTestSuite/test_parsing/n_structure_null.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_number_with_trailing_garbage.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_object_followed_by_closing_object.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_object_unclosed_no_value.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_object_with_comment.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_object_with_trailing_garbage.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_array_apostrophe.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_array_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_array_object.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_array_open_object.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_array_open_string.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_array_string.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_object.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_object_close_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_object_comma.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_object_open_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_object_open_string.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_object_string_with_apostrophes.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_open_open.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_single_point.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_single_star.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_trailing_#.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_uescaped_LF_before_string.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_unclosed_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_unclosed_array_partial_null.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_unclosed_array_unfinished_false.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_unclosed_array_unfinished_true.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_unclosed_object.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_unicode-identifier.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_whitespace_U+2060_word_joiner.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/n_structure_whitespace_formfeed.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_arraysWithSpaces.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_empty-string.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_empty.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_ending_with_newline.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_false.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_heterogeneous.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_null.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_with_1_and_newline.jsonnew file+2

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_with_leading_space.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_with_several_null.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_array_with_trailing_space.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_0e+1.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_0e1.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_after_space.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_double_close_to_zero.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_double_huge_neg_exp.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_huge_exp.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_int_with_exp.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_minus_zero.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_neg_int_huge_exp.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_negative_int.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_negative_one.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_negative_zero.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_pos_double_huge_exp.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_capital_e.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_capital_e_neg_exp.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_capital_e_pos_exp.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_exponent.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_fraction_exponent.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_neg_exp.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_neg_overflow.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_pos_exponent.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_pos_overflow.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_real_underflow.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_simple_int.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_simple_real.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_too_big_neg_int.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_too_big_pos_int.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_number_very_big_negative_int.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_basic.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_duplicated_key.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_duplicated_key_and_value.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_empty.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_empty_key.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_escaped_null_in_key.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_extreme_numbers.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_long_strings.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_simple.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_string_unicode.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_object_with_newlines.jsonnew file+3

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_1_2_3_bytes_UTF-8_sequences.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_accepted_surrogate_pair.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_accepted_surrogate_pairs.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_allowed_escapes.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_backslash_and_u_escaped_zero.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_backslash_doublequotes.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_comments.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_double_escape_a.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_double_escape_n.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_escaped_control_character.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_escaped_noncharacter.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_in_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_in_array_with_leading_space.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_last_surrogates_1_and_2.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_newline_uescaped.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_nonCharacterInUTF-8_U+10FFFF.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_nonCharacterInUTF-8_U+1FFFF.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_nonCharacterInUTF-8_U+FFFF.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_null_escape.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_one-byte-utf-8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_pi.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_simple_ascii.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_space.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_surrogates_U+1D11E_MUSICAL_SYMBOL_G_CLEF.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_three-byte-utf-8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_two-byte-utf-8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_u+2028_line_sep.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_u+2029_par_sep.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_uEscape.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_unescaped_char_delete.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_unicode.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_unicodeEscapedBackslash.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_unicode_2.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_unicode_U+200B_ZERO_WIDTH_SPACE.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_unicode_U+2064_invisible_plus.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_unicode_escaped_double_quote.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_utf16BE_no_BOM.jsonnew file

Binary file not shown.

tests/JSONTestSuite/test_parsing/y_string_utf16LE_no_BOM.jsonnew file

Binary file not shown.

tests/JSONTestSuite/test_parsing/y_string_utf8.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_string_with_del_character.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_lonely_false.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_lonely_int.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_lonely_negative_real.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_lonely_null.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_lonely_string.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_lonely_true.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_string_empty.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_trailing_newline.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_true_in_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_parsing/y_structure_whitespace_array.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/number_1.0.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/number_1.000000000000000005.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/number_1000000000000000.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/number_10000000000000000999.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/number_1e-999.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/number_1e6.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/object_key_nfc_nfd.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/object_key_nfd_nfc.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/object_same_key_different_values.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/object_same_key_same_value.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/object_same_key_unclear_values.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/string_1_escaped_invalid_codepoint.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/string_1_invalid_codepoint.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/string_2_escaped_invalid_codepoints.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/string_2_invalid_codepoints.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/string_3_escaped_invalid_codepoints.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/string_3_invalid_codepoints.jsonnew file+1

This diff is too big to show here.

tests/JSONTestSuite/test_transform/string_with_escaped_NULL.jsonnew file+1

This diff is too big to show here.

tests/Options.hsnew file+68

This diff is too big to show here.

tests/PropUtils.hsnew file+208

This diff is too big to show here.

tests/Properties.hsnew file+40

This diff is too big to show here.

tests/PropertyGeneric.hsnew file+116

This diff is too big to show here.

tests/PropertyKeys.hsnew file+40

This diff is too big to show here.

tests/PropertyRTFunctors.hsnew file+51

This diff is too big to show here.

tests/PropertyRoundTrip.hsnew file+74

This diff is too big to show here.

tests/PropertyTH.hsnew file+130

This diff is too big to show here.

tests/SerializationFormatSpec.hsnew file+294

This diff is too big to show here.

tests/Tests.hsnew file+16

This diff is too big to show here.

tests/Types.hsnew file+170

This diff is too big to show here.

tests/UnitTests.hsnew file+760

This diff is too big to show here.

tests/UnitTests/NullaryConstructors.hsnew file+68

This diff is too big to show here.

tests/golden/generic.expectednew file+48

This diff is too big to show here.

tests/golden/simple.expectednew file+22

This diff is too big to show here.

travis/cabal_macros.hnew file+448

This diff is too big to show here.

travis/install.shnew file+58

This diff is too big to show here.

travis/script.shnew file+29

This diff is too big to show here.