16 lines
363 B
Haskell
16 lines
363 B
Haskell
import JSON
|
|
|
|
testNested = JObject [
|
|
("name", JObject [("first",JString "Tyrion"), ("last",JString "Lannister")]),
|
|
("age", JNumber 32),
|
|
("siblings", JArray [
|
|
JString "Jamie",
|
|
JString "Cersei"]),
|
|
("pet", JNull)]
|
|
|
|
main :: IO ()
|
|
main = let arr = JSON.jsonRightTriangles
|
|
in do
|
|
putStrLn $ JSON.toString arr
|
|
putStrLn $ JSON.toString testNested
|