Fix Json output format, to be able to compliant with JSON description

totoro
1 parent ccaf60cc
Showing 1 changed file with 2 additions and 2 deletions Show diff stats
web/CXM_json.anubis
@@ -126,7 +126,7 @@ public define Printable_tree
     JsonMember member
   ) =
   if member is json_member(name, value) then
-  [ "'", name, "':" . format_json(value) ].
+  [ "\"", name, "\":" . format_json(value) ].
  
  
 define Printable_tree
@@ -162,7 +162,7 @@ public define Printable_tree
     json_array(values)    then [ "[", format_json_array(values), "]" . [] ],
     json_int(i)           then int_pt(i, []),
     json_float(f, p)      then str_pt(float_to_string(f, p), []),
-    json_string(s)        then str_pt("'" + format_json_esc(s) + "'", []),
+    json_string(s)        then str_pt("\"" + format_json_esc(s) + "\"", []),
     json_bool(b)          then str_pt(if b then "true" else "false", []),
     json_null             then str_pt("null", [])
   }.