blob: 38d0d201c6215dcc311167ab9a4749d00637409c (
plain)
1
2
3
4
5
6
7
|
open Json
fun main () : transaction page = return <xml><body>
<pre>{[ fromJson "\"line 1\\nline 2\"" : string ]}</pre><br/>
<pre>{[fromJson "[1, 2, 3]" : list int]}</pre><br/>
<pre>{[toJson ("hi" :: "bye\"" :: "hehe" :: [])]}</pre>
</body></xml>
|
