1. Oliver Gu
  2. ibx

Commits

Oliver Gu  committed 45fb041

Improved pickler/unpickler names

  • Participants
  • Parent commits 026719b
  • Branches master

Comments (0)

Files changed (2)

File lib/ib.ml

View file
     } with fields, sexp
 
   let pickler =
-    Pickler.create
+    Pickler.create ~name:"Ib.Client_header"
       Pickler.Spec.(
         wrap (
           Fields.fold
     } with fields, sexp
 
   let unpickler =
-    Unpickler.create ~name:"Server_header"
+    Unpickler.create ~name:"Ib.Server_header"
       Unpickler.Spec.(
         Fields.fold
           ~init:(empty ())
     } with fields, sexp
 
   let pickler =
-    Pickler.create
+    Pickler.create ~name:"Ib.Query"
       Pickler.Spec.(
         wrap (
           Fields.fold
 end
 
 module Response = struct
-  type t = {
-    tag      : Recv_tag.t;
-    version  : int;
-    query_id : Query_id.t option;
-    data     : Response_data.t;
-  } with fields, sexp
+  type t =
+    { tag      : Recv_tag.t;
+      version  : int;
+      query_id : Query_id.t option;
+      data     : Response_data.t;
+    } with fields, sexp
 
   let pickler = lazy (
-    Pickler.create ~name:"Response"
+    Pickler.create ~name:"Ib.Response"
       Pickler.Spec.(
         wrap (
           Fields.fold

File lib/query.ml

View file
 end
 
 module Server_time = Unit (struct
-  let name = "Server_time"
+  let name = "Query.Server_time"
 end)
 
 (* +-----------------------------------------------------------------------+