json-stream 0.4.1.1 → 0.4.1.2

raw patch · 4 files changed

+7/−47 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Data/JsonStream/CLexType.hs +0/−43
• Data/JsonStream/Parser.hs +2/−2
• changelog.md +4/−1
• json-stream.cabal +1/−1

@@ -1,43 +0,0 @@-{-# LINE 1 "CLexType.hs" #-}-{-# LINE 1 "CLexType.hsc" #-}-{-# LINE 2 "CLexType.hs" #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}-{-# LINE 2 "CLexType.hsc" #-}-module Data.JsonStream.CLexType where--import Foreign.C.Types-import Foreign--newtype LexResultType = LexResultType CInt deriving (Show, Eq, Storable)---{-# LINE 10 "CLexType.hsc" #-}--resNumber  :: LexResultType-resNumber  = LexResultType 0-resString  :: LexResultType-resString  = LexResultType 1-resTrue  :: LexResultType-resTrue  = LexResultType 2-resFalse  :: LexResultType-resFalse  = LexResultType 3-resNull  :: LexResultType-resNull  = LexResultType 4-resOpenBrace  :: LexResultType-resOpenBrace  = LexResultType 5-resCloseBrace  :: LexResultType-resCloseBrace  = LexResultType 6-resOpenBracket  :: LexResultType-resOpenBracket  = LexResultType 7-resCloseBracket  :: LexResultType-resCloseBracket  = LexResultType 8-resStringPartial  :: LexResultType-resStringPartial  = LexResultType 9-resStringUni  :: LexResultType-resStringUni  = LexResultType 11-resNumberPartial  :: LexResultType-resNumberPartial  = LexResultType 10-resNumberSmall  :: LexResultType-resNumberSmall  = LexResultType 12--{-# LINE 28 "CLexType.hsc" #-}

@@ -236,13 +236,13 @@     (TokMoreData ntok) -> MoreData (array' valparse, ntok)     (TokFailed) -> Failed "Array - token failed"   where-    nextitem _ _ (ArrayEnd ctx) ntok = Done ctx ntok+    nextitem !_ _ (ArrayEnd ctx) ntok = Done ctx ntok     nextitem !i tok _ _ = arrcontent i (callParse (valparse i) tok)      arrcontent !i (Done _ ntp) = moreData (nextitem (i+1)) ntp     arrcontent !i (MoreData (Parser np, ntp)) = MoreData (Parser (arrcontent i . np), ntp)     arrcontent !i (Yield v np) = Yield v (arrcontent i np)-    arrcontent _ (Failed err) = Failed err+    arrcontent !_ (Failed err) = Failed err  -- | Match all items of an array. arrayOf :: Parser a -> Parser a

@@ -1,5 +1,8 @@+# 0.4.1.2+Slightly more strictness in arrayOf.+ # 0.4.1.1-Fixed memory leak in arrayOf+Fixed memory leak in arrayOf.  # 0.4.1.0 Added aeson-compatibile encode/decode functions.

@@ -1,5 +1,5 @@ name:                json-stream-version:             0.4.1.1+version:             0.4.1.2 synopsis:            Incremental applicative JSON parser description:         Easy to use JSON parser fully supporting incremental parsing.                      Parsing grammar in applicative form.