Text.JSON.NonStrict

This module extends Text.JSON to enable the decoding of strings containing literal JS objects. In particular, it relaxes the restrictions that fields in JSON objects must be strings.

For example:

 JSON conformant:                   literal JS object:
 { "foo" : "bar" }                  { foo : "bar" }

Documentation

decodeNonStrict :: String -> Result (JSObject JSValue)

decodes a string encoding a JSON object in a relaxed fashion

decode "{ foo : \"bar\" }"
Error "Malformed JSON: expecting string: foo : \"b"

decodeNonStrict "{ foo : \"bar\" }"      == Ok $ toJSObject [("foo", JSString $ toJSString "bar")]
decodeNonStrict "{ \"foo\" : \"bar\" }"  == Ok $ toJSObject [("foo", JSString $ toJSString "bar")]

get_fields :: JSObject a -> [String]

returns the list of fields of a JSON Object

do obj <- decodeNonStrict "{ foo : \"bar\", fooz : \"baz\" }"
   return $ get_fields obj  == Ok ["foo", "fooz"]

do obj <- decodeNonStrict "{ foo : \"bar\", fooz : \"baz\" }"
   return $ get_field obj $ head $ get_fields obj  == Ok (Just $ JSString $ toJSString "bar" )