Commits

camlspotter committed d0e28fe

moved format to Tiny_json

Comments (0)

Files changed (1)

     
   type target = Json.t
 
-  let rec format_list sep f ppf = function
-    | [] -> ()
-    | [x] -> f ppf x
-    | x::xs -> f ppf x; Format.fprintf ppf sep; format_list sep f ppf xs
-
-  let rec format ppf = 
-    let open Format in
-    function
-      | String s -> fprintf ppf "%S" s
-      | Number f -> fprintf ppf "%f" f
-      | Object o -> 
-          fprintf ppf "{ @[%a@] }"
-            (format_list ";@ " (fun ppf (s,v) -> fprintf ppf "@[%s= @[<v2>%a@]@]" s format v)) o
-      | Array ts -> 
-          fprintf ppf "[ @[%a@] ]"
-            (format_list ";@ " (fun ppf v -> fprintf ppf "@[<v2>%a@]@]" format v)) ts
-      | Bool b -> fprintf ppf "%b" b
-      | Null -> fprintf ppf "()"
+  let format = Json.format
 
   module Constr = struct
     let tuple ts       = Array ts
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.