Commits

camlspotter  committed c8fdd6a

format

  • Participants
  • Parent commits cf27f48

Comments (0)

Files changed (1)

File lib/json_conv.ml

 open Tiny_json
 open Tiny_json.Json
 
-open Meta_conv.Types.Error
+open Meta_conv.Error
 open Meta_conv.Internal
 
 include MakeMinimumCoders(struct
     
   type target = Json.t
 
-  let format = Json.format
+  let format ppf t = Format.fprintf ppf "%s" (Json.show t)
 
   module Encode = struct
     let tuple ts       = Array ts