Commits

camlspotter committed dba746f

json formatting was completely wrong (and is still wrong)

Comments (0)

Files changed (1)

     | [x] -> f ppf x
     | x::xs -> f ppf x; Format.fprintf ppf sep; format_list sep f ppf xs
 
+  (* CR jfuruse: Need test! *)
   let rec format ppf = 
     let open Format in
     function
       | Number s -> fprintf ppf "%s" s
       | Object o -> 
           fprintf ppf "{ @[%a }@]"
-            (format_list ";@ " (fun ppf (s,v) -> fprintf ppf "@[%s= @[<2>%a@]@]" s format v)) o
+            (format_list ",@ " (fun ppf (s,v) -> fprintf ppf "@[\"%s\": @[<2>%a@]@]" s format v)) o
       | Array ts -> 
           fprintf ppf "[ @[%a ]@]"
-            (format_list ";@ " format) ts
+            (format_list ",@ " format) ts
       | Bool b -> fprintf ppf "%b" b
       | Null -> fprintf ppf "()"
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.