Anonymous avatar Anonymous committed 28dde31

Cd_Json: rename: ti_json_t -> ti_json

Comments (0)

Files changed (1)

 
 open Strings.Latin1;
 
-value ti_json_t = ((new ti_simple "Json_type.t") :> ti Jt.t)
+value ti_json = ((new ti_simple "Json_type.t") :> ti Jt.t)
 ;
 
-value ti_json_to ti_a = ti_abs (ti_a :> tti _) ti_json_t
+value ti_json_to ti_a = ti_abs (ti_a :> tti _) ti_json
 ;
 
-value ti_json_from ti_a = ti_abs ti_json_t (ti_a :> tti _)
+value ti_json_from ti_a = ti_abs ti_json (ti_a :> tti _)
 ;
 
 value ubox_to_json
  : ubox -> Jt.t
  = fun u ->
      let uti = u.ub_uti in
-     uget_exn ti_json_t &
+     uget_exn ti_json &
        u_app (get_meth_untyped "json.to" uti) u
 ;
 
 value ubox_from_json
  : #uti -> Jt.t -> ubox
  = fun uti j ->
-     u_app (get_meth_untyped "json.from" uti) (ubox ti_json_t j)
+     u_app (get_meth_untyped "json.from" uti) (ubox ti_json j)
 ;
 
 
           in
           let vname = String.lowercase vname in
           let vname = String.chop_prefix ~string:vname ~prefix:"`" in
-          ubox ti_json_t (Bl.array [Bl.string vname :: jargs])
+          ubox ti_json (Bl.array [Bl.string vname :: jargs])
 
     | Record_type _ _ _ _
         -> failwith "json.to: Record_type: not implemented"
         fun u ->
           let uarr = destr u in
           let jcomps = Array.map_to_list ubox_to_json uarr in
-          ubox ti_json_t (Bl.array jcomps)
+          ubox ti_json (Bl.array jcomps)
 
     | Lambda _ _ _
         -> failwith "can't convert Lambda to json"
  = fun ti ?json_to ?json_from () ->
      let json_to : 'a -> Jt.t =
        match json_to with
-       [ None -> fun a -> uget_exn ti_json_t (to_json_struc ti (ubox ti a))
+       [ None -> fun a -> uget_exn ti_json (to_json_struc ti (ubox ti a))
        | Some m -> m
        ]
      in
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.