lab01: impl json

2026-02-02 09:38:15 -08:00
parent 14461fa7ef
commit 3b111eb7d6
2 changed files with 64 additions and 0 deletions
--- a/lab01/jsonDriver.hs
+++ b/lab01/jsonDriver.hs
@@ -0,0 +1,15 @@
+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