Encode with SMILE

Documented at https://github.com/FasterXML/smile-format-specification

Co-authored-by: Eric Demko <edemko@layer3com.com>

Author: andrewthad

bench/Main.hs

@@ -12,13 +12,17 @@ import qualified Data.Bytes.Builder as BLDR
 import qualified Data.Bytes.Chunks as Chunks
 import qualified Data.ByteString.Lazy as LBS
 import qualified Json as J
+import qualified Json.Smile as Smile
 import qualified Data.Aeson as Aeson
 
 main :: IO ()
 main = do
   valueTwitter100 <- case J.decode (Bytes.fromByteArray encodedTwitter100) of
     Left _ -> fail "json-syntax failed to decode twitter-100"
     Right v -> pure v
+  valueUrl100 <- case J.decode (Bytes.fromByteArray encodedUrl100) of
+    Left _ -> fail "json-syntax failed to decode url-100"
+    Right v -> pure v
   aesonValueTwitter100 <- case Aeson.decodeStrict' byteStringTwitter100 of
     Nothing -> fail "aeson failed to decode twitter-100"
     Just (v :: Aeson.Value) -> pure v
@@ -32,13 +36,22 @@ main = do
           , bench "encode" $ whnf
               (\v -> Chunks.length (BLDR.run 128 (J.encode v)))
               valueTwitter100
+          , bench "encode-smile-simple" $ whnf
+              (\v -> Chunks.length (BLDR.run 128 (Smile.encode v)))
+              valueTwitter100
           ]
         ]
       , bgroup "url"
         [ bgroup "100"
           [ bench "decode" $ whnf
               (\b -> J.decode (Bytes.fromByteArray b))
               encodedUrl100
+          , bench "encode" $ whnf
+              (\v -> Chunks.length (BLDR.run 128 (J.encode v)))
+              valueUrl100
+          , bench "encode-smile-simple" $ whnf
+              (\v -> Chunks.length (BLDR.run 128 (Smile.encode v)))
+              valueUrl100
           ]
         ]
       ]

cabal.project

@@ -0,0 +1,11 @@
+packages: .
+
+source-repository-package
+    type: git
+    location: https://github.com/byteverse/bytesmith
+    tag: ac29b91728cea68b5107e69133fd78f0d68f76e0
+
+source-repository-package
+    type: git
+    location: https://github.com/byteverse/bytebuild
+    tag: 4f03a98100237863bb4a9ac75d4de6723a8e0961

common/Twitter100.hs

@@ -25,7 +25,7 @@ byteStringTwitter100 :: ByteString
 byteStringTwitter100 = encodeUtf8
   [text|
     {
-        "completed_in": 1.195569,
+        "completed_in": 1.000000,
         "max_id": 30121530767708160,
         "max_id_str": "30121530767708160",
         "next_page": "?page=2&max_id=30121530767708160&rpp=100&q=haskell",

json-syntax.cabal

@@ -26,19 +26,25 @@ build-type: Simple
 extra-source-files: CHANGELOG.md
 
 library
-  exposed-modules: Json
+  exposed-modules:
+    Json
+    Json.Smile
   build-depends:
     , array-builder >=0.1 && <0.2
     , array-chunks >=0.1.3 && <0.2
     , base >=4.12 && <5
-    , bytebuild >=0.3.8 && <0.4
+    , bytebuild >=0.3.9 && <0.4
     , byteslice >=0.1.3 && <0.3
     , bytesmith >=0.3.2 && <0.4
     , bytestring >=0.10.8 && <0.11
+    , integer-gmp >=1.0 && <1.1
+    , natural-arithmetic >=0.1.2 && <0.2
+    , contiguous >=0.6 && <0.7
     , primitive >=0.7 && <0.8
     , run-st >=0.1.1 && <0.2
     , scientific-notation >=0.1.2 && <0.2
     , text-short >=0.1.3 && <0.2
+    , zigzag >=0.0.1
   hs-source-dirs: src
   default-language: Haskell2010
   ghc-options: -Wall -O2
@@ -53,7 +59,7 @@ test-suite test
   ghc-options: -Wall -O2
   build-depends:
     , QuickCheck >=2.14.2
-    , aeson
+    , aeson <2.0
     , array-chunks
     , base >=4.12.0.0 && <5
     , bytebuild
@@ -66,6 +72,7 @@ test-suite test
     , scientific-notation >=0.1.1
     , tasty >=1.2.3 && <1.3
     , tasty-hunit >=0.10.0.2 && <0.11
+    , tasty-golden >=2.0 && <2.4
     , tasty-quickcheck >=0.10.1.2 && <0.11
     , text >=1.2
     , text-short