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
|
|
|
|
|
import Native.Json as Native
|
|
|
|
|
|
|
|
|
|
fromString s = Native.recordFromJSString (JS.fromString s)
|
2013-03-03 15:56:23 +00:00
|
|
|
fromJSString = Native.recordFromJSString
|
2013-03-03 05:43:44 +00:00
|
|
|
|
|
|
|
|
toString r = JS.toString (Native.recordToPrettyJSString "" r)
|
|
|
|
|
toPrettyString sep r = JS.toString (Native.recordToPrettyJSString sep r)
|
|
|
|
|
toJSString r = Native.recordToPrettyJSString "" r
|
