Oliver Gu avatar Oliver Gu committed 45fb041

Improved pickler/unpickler names

Comments (0)

Files changed (2)

     } 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
 end
 
 module Server_time = Unit (struct
-  let name = "Server_time"
+  let name = "Query.Server_time"
 end)
 
 (* +-----------------------------------------------------------------------+
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.