2013-03-03 05:43:44 +00:00
|
|
|
|
2013-03-06 17:22:59 +00:00
|
|
|
module Json.Experimental where
|
2013-03-03 05:43:44 +00:00
|
|
|
|
|
|
|
import JavaScript as JS
|
2013-03-10 09:40:31 +00:00
|
|
|
import Native.Json (recordFromJSString, recordToPrettyJSString
|
2013-03-03 05:43:44 +00:00
|
|
|
|
2013-03-10 09:40:31 +00:00
|
|
|
fromString s = recordFromJSString (JS.fromString s)
|
|
|
|
fromJSString = recordFromJSString
|
2013-03-03 05:43:44 +00:00
|
|
|
|
2013-03-10 09:40:31 +00:00
|
|
|
toString r = JS.toString (recordToPrettyJSString "" r)
|
|
|
|
toPrettyString sep r = JS.toString (recordToPrettyJSString sep r)
|
|
|
|
toJSString r = recordToPrettyJSString "" r
|