JsonBool

src/kiss_tools/JsonBool.hx

@@ -0,0 +1,7 @@
+package kiss_tools;
+
+import kiss.Prelude;
+import kiss.List;
+
+@:build(kiss.Kiss.build())
+class JsonBool {}

src/kiss_tools/JsonBool.kiss

@@ -0,0 +1,4 @@
+(defNew [&prop :Bool value])
+
+(method stringify [] (if value "true" "false"))
+(method parse [:String data] (new JsonBool ?(= data "true")))