Initial commit

Author: andrewthad

.gitignore

@@ -0,0 +1,28 @@
+dist
+dist-*
+cabal-dev
+*.o
+*.hi
+*.chi
+*.chs.h
+*.dyn_o
+*.dyn_hi
+.hpc
+.hsenv
+.cabal-sandbox/
+cabal.sandbox.config
+*.prof
+*.aux
+*.hp
+*.eventlog
+.stack-work/
+cabal.project.local
+cabal.project.local~
+.HTF/
+.ghc.environment.*
+stack.yaml
+*.swm
+*.swo
+*.swp
+test_results/**
+cabal.project.local

CHANGELOG.md

@@ -0,0 +1,5 @@
+# Revision history for json-syntax
+
+## 0.1.0.0 -- YYYY-mm-dd
+
+* First version. Released on an unsuspecting world.

LICENSE

@@ -0,0 +1,30 @@
+Copyright (c) 2019, Andrew Martin
+
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+
+    * Redistributions in binary form must reproduce the above
+      copyright notice, this list of conditions and the following
+      disclaimer in the documentation and/or other materials provided
+      with the distribution.
+
+    * Neither the name of Andrew Martin nor the names of other
+      contributors may be used to endorse or promote products derived
+      from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

README.md

@@ -0,0 +1,25 @@
+# json-syntax
+
+This library parses JSON into a `Value` type that is consistent with the
+ABNF described in [RFC 7159](https://tools.ietf.org/html/rfc7159). The
+parser is about six times faster than the parser that `aeson` provides.
+This parser is however, non-resumable, so if resumable parsing is
+important, `aeson` should be preferred. Results from the benchmark suite:
+
+    benchmarked json/twitter/100
+    time                 208.6 μs   (207.1 μs .. 210.1 μs)
+                         1.000 R²   (0.999 R² .. 1.000 R²)
+    mean                 211.8 μs   (210.7 μs .. 213.3 μs)
+    std dev              4.493 μs   (3.299 μs .. 7.422 μs)
+    
+    benchmarked aeson/twitter/100
+    time                 1.284 ms   (1.267 ms .. 1.296 ms)
+                         0.999 R²   (0.999 R² .. 1.000 R²)
+    mean                 1.282 ms   (1.276 ms .. 1.292 ms)
+    std dev              26.07 μs   (17.87 μs .. 40.01 μs)
+
+This library does not include any functions or typeclasses to help users
+convert data from `Value`, the RFC-7159-inspired syntax tree data type.
+Such functions and typeclasses are outside the scope of this library. If
+anyone writes a library that helps users marshal their data in this way,
+open a issue so that the `json-syntax` documentation can point users to it.

Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

bench/Main.hs

@@ -0,0 +1,27 @@
+{-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE TypeApplications #-}
+
+import Gauge.Main (defaultMain,bgroup,bench,whnf)
+
+import Twitter100 (encodedTwitter100,byteStringTwitter100)
+
+import qualified Data.Bytes as Bytes
+import qualified Json as J
+import qualified Data.Aeson as Aeson
+
+main :: IO ()
+main = defaultMain
+  [ bgroup "json"
+    [ bgroup "twitter"
+      [ bench "100" $ whnf
+          (\b -> J.decode (Bytes.fromByteArray b))
+          encodedTwitter100
+      ]
+    ]
+  , bgroup "aeson"
+    [ bgroup "twitter"
+      [ bench "100"
+          (whnf (Aeson.decodeStrict' @Aeson.Value) byteStringTwitter100)
+      ]
+    ]
+  ]