JSONb 1.0.7 → 1.0.8

raw patch · 3 files changed

+12/−9 lines, 3 filesdep ~attoparsecdep ~basedep ~bytestring-triePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: attoparsec, base, bytestring-trie

API changes (from Hackage documentation)

+ Text.JSON.Escape: escaped :: Char -> Bool

+ Text.JSONb.Decode: s_as_b :: String -> Parser ByteString

+ Text.JSONb.Schema.Display: broken :: [ByteString] -> Bool

+ Text.JSONb.Schema.Display: dent :: Int64 -> ByteString -> ByteString

+ Text.JSONb.Schema.Display: len :: Int64

+ Text.JSONb.Schema.Display: longest_key_len :: Trie a -> Int64

+ Text.JSONb.Schema.Display: must_be_multiline :: Int64 -> [ByteString] -> Bool

+ Text.JSONb.Schema.Display: space :: ByteString

+ Text.JSONb.Schema.Display: too_long :: Int64 -> [ByteString] -> Bool

Files

JSONb.cabal +3/−3
Text/JSONb/Decode.hs +5/−4
Text/JSONb/Schema.hs +4/−2

JSONb.cabal view

@@ -1,5 +1,5 @@ name                          : JSONb-version                       : 1.0.7+version                       : 1.0.8 category                      : Text license                       : BSD3 license-file                  : LICENSE@@ -36,7 +36,7 @@                               , containers                               , utf8-string >= 0.3                               , bytestring >= 0.9-                              , attoparsec >= 0.8+                              , attoparsec >= 0.10                               , bytestring-nums >= 0.3.1                               , bytestring-trie >= 0.1.4   exposed-modules             : Text.JSONb@@ -63,7 +63,7 @@                               , containers                               , utf8-string >= 0.3                               , bytestring >= 0.9-                              , attoparsec >= 0.8+                              , attoparsec >= 0.10                               , bytestring-nums >= 0.3.1                               , bytestring-trie >= 0.1.4   extensions                  : FlexibleInstances

Text/JSONb/Decode.hs view

@@ -24,8 +24,9 @@ import Data.Attoparsec (eitherResult) import Data.Attoparsec.Char8 ( choice, char, Parser, option, takeWhile1,                                takeWhile, skipMany, satisfy, signed,-                               decimal, Result(..)                       )+                               decimal                                   ) import qualified Data.Attoparsec.Char8 as Attoparsec+import qualified Data.Attoparsec.Types as AttoparsecT import Data.ByteString.Nums.Careless  import Text.JSONb.Simple@@ -45,9 +46,9 @@  -} break                       ::  ByteString -> (Either String JSON, ByteString) break bytes                  =  case Attoparsec.parse json bytes of-  Done remainder result     ->  (Right result, remainder)-  Fail _ _ s                ->  (Left s, bytes)-  Partial _                 ->  (Left "Partial", bytes)+  AttoparsecT.Done remainder result     ->  (Right result, remainder)+  AttoparsecT.Fail _ _ s                ->  (Left s, bytes)+  AttoparsecT.Partial _                 ->  (Left "Partial", bytes)   {-| Tries to parse any JSON literal.

Text/JSONb/Schema.hs view

@@ -11,9 +11,11 @@ import Data.Ord import Data.Word import Data.List (permutations)-import Data.Set as Set+import Data.Set (Set)+import qualified Data.Set as Set -import Data.Trie as Trie+import Data.Trie (Trie)+import qualified Data.Trie as Trie  import qualified Text.JSONb.Simple as Simple