json 0.4.3 → 0.4.4
raw patch · 4 files changed
+8/−8 lines, 4 filesnew-uploaderPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Text.JSON: instance (Eq a) => Eq (Result a)
- Text.JSON: instance (JSON a) => JSON (IntMap a)
- Text.JSON: instance (JSON a) => JSON (JSObject a)
- Text.JSON: instance (JSON a) => JSON (Maybe a)
- Text.JSON: instance (JSON a) => JSON [a]
- Text.JSON: instance (Show a) => Show (Result a)
- Text.JSON.Types: instance (Eq e) => Eq (JSObject e)
- Text.JSON.Types: instance (Ord e) => Ord (JSObject e)
- Text.JSON.Types: instance (Read e) => Read (JSObject e)
- Text.JSON.Types: instance (Show e) => Show (JSObject e)
+ Text.JSON: instance Eq a => Eq (Result a)
+ Text.JSON: instance JSON a => JSON (IntMap a)
+ Text.JSON: instance JSON a => JSON (JSObject a)
+ Text.JSON: instance JSON a => JSON (Maybe a)
+ Text.JSON: instance JSON a => JSON [a]
+ Text.JSON: instance Show a => Show (Result a)
+ Text.JSON.Types: instance Eq e => Eq (JSObject e)
+ Text.JSON.Types: instance Ord e => Ord (JSObject e)
+ Text.JSON.Types: instance Read e => Read (JSObject e)
+ Text.JSON.Types: instance Show e => Show (JSObject e)
- Text.JSON: decode :: (JSON a) => String -> Result a
+ Text.JSON: decode :: JSON a => String -> Result a
- Text.JSON: decodeStrict :: (JSON a) => String -> Result a
+ Text.JSON: decodeStrict :: JSON a => String -> Result a
- Text.JSON: encode :: (JSON a) => a -> String
+ Text.JSON: encode :: JSON a => a -> String
- Text.JSON: encodeStrict :: (JSON a) => a -> String
+ Text.JSON: encodeStrict :: JSON a => a -> String
- Text.JSON: readJSON :: (JSON a) => JSValue -> Result a
+ Text.JSON: readJSON :: JSON a => JSValue -> Result a
- Text.JSON: readJSONs :: (JSON a) => JSValue -> Result [a]
+ Text.JSON: readJSONs :: JSON a => JSValue -> Result [a]
- Text.JSON: showJSON :: (JSON a) => a -> JSValue
+ Text.JSON: showJSON :: JSON a => a -> JSValue
- Text.JSON: showJSONs :: (JSON a) => [a] -> JSValue
+ Text.JSON: showJSONs :: JSON a => [a] -> JSValue
- Text.JSON: valFromObj :: (JSON a) => String -> JSObject JSValue -> Result a
+ Text.JSON: valFromObj :: JSON a => String -> JSObject JSValue -> Result a
- Text.JSON.Generic: class (Typeable a) => Data a
+ Text.JSON.Generic: class Typeable a => Data a
- Text.JSON.Generic: decodeJSON :: (Data a) => String -> a
+ Text.JSON.Generic: decodeJSON :: Data a => String -> a
- Text.JSON.Generic: encodeJSON :: (Data a) => a -> String
+ Text.JSON.Generic: encodeJSON :: Data a => a -> String
- Text.JSON.Generic: fromJSON :: (Data a) => JSValue -> Result a
+ Text.JSON.Generic: fromJSON :: Data a => JSValue -> Result a
- Text.JSON.Generic: fromJSON_generic :: (Data a) => JSValue -> Result a
+ Text.JSON.Generic: fromJSON_generic :: Data a => JSValue -> Result a
- Text.JSON.Generic: toJSON :: (Data a) => a -> JSValue
+ Text.JSON.Generic: toJSON :: Data a => a -> JSValue
- Text.JSON.Generic: toJSON_generic :: (Data a) => a -> JSValue
+ Text.JSON.Generic: toJSON_generic :: Data a => a -> JSValue
Files
- CHANGES +4/−0
- Text/JSON/String.hs +2/−2
- json.cabal +1/−1
- tests/Makefile +1/−5
CHANGES view
@@ -1,3 +1,7 @@+Version 0.4.4: released 2009-01-17; changes from 0.4.2++ * Fixes handling of unterminated strings.+ Version 0.4.3: released 2009-01-17; changes from 0.4.2 * optimize some common cases..string and int literals.
Text/JSON/String.hs view
@@ -121,7 +121,6 @@ case x of '"' : cs -> parse [] cs _ -> fail $ "Malformed JSON: expecting string: " ++ context x- where parse rs cs = case cs of@@ -131,10 +130,11 @@ c : ds | c >= '\x20' && c <= '\xff' -> parse (c:rs) ds | c < '\x20' -> fail $ "Illegal unescaped character in string: " ++ context cs- | i <= 0x10fffff -> parse (c:rs) ds+ | i <= 0x10ffff -> parse (c:rs) ds | otherwise -> fail $ "Illegal unescaped character in string: " ++ context cs where i = (fromIntegral (fromEnum c) :: Integer)+ _ -> fail $ "Unable to parse JSON String: unterminated String: " ++ context cs esc rs c cs = case c of '\\' -> parse ('\\' : rs) cs
json.cabal view
@@ -1,5 +1,5 @@ name: json-version: 0.4.3+version: 0.4.4 synopsis: Support for serialising Haskell to and from JSON description: JSON (JavaScript Object Notation) is a lightweight data-interchange
tests/Makefile view
@@ -5,16 +5,12 @@ all: $(ODIR) ghc -cpp -O QC.hs --make -o QC -no-recomp -i.. -odir=$(ODIR) -hidir=$(ODIR)-# time ./QC- ./QC+ time ./QC runhaskell -i.. HUnit.hs generic: $(ODIR) ghc -i.. --make -fforce-recomp -odir=$(ODIR) -hidir=$(ODIR) GenericTest.hs -o GenericTest ./GenericTest--perf:- ghc -i.. --make Perf.hs clean: $(RM) -r $(ODIR)