Source

core hello world / broker_protocol.ml

Diff from to

File broker_protocol.ml

   type t = single list with sexp,bin_io, compare
 end
 
-let publish_rpc = Rpc.Rpc.create
-  ~name:"publish"
-  ~version:0
-  ~bin_query:Message.bin_t
-  ~bin_response:Unit.bin_t
+let publish_rpc =
+  Rpc.Rpc.create
+    ~name:"publish"
+    ~version:0
+    ~bin_query:Message.bin_t
+    ~bin_response:Unit.bin_t
 
-let subscribe_rpc = Rpc.Pipe_rpc.create
-  ~name:"subscribe"
-  ~version:0
-  ~bin_query:Topic.bin_t
-  ~bin_response:Message.bin_t
-  ~bin_error:String.bin_t
+let subscribe_rpc =
+  Rpc.Pipe_rpc.create
+    ~name:"subscribe"
+    ~version:0
+    ~bin_query:Topic.bin_t
+    ~bin_response:Message.bin_t
+    ~bin_error:String.bin_t
 
-let dump_rpc = Rpc.Rpc.create
-  ~name:"dump"
-  ~version:0
-  ~bin_query:Unit.bin_t
-  ~bin_response:Dump.bin_t
+let dump_rpc =
+  Rpc.Rpc.create
+    ~name:"dump"
+    ~version:0
+    ~bin_query:Unit.bin_t
+    ~bin_response:Dump.bin_t
 
-let shutdown_rpc = Rpc.Rpc.create
-  ~name:"shutdown"
-  ~version:0
-  ~bin_query:Unit.bin_t
-  ~bin_response:Unit.bin_t
+let shutdown_rpc =
+  Rpc.Rpc.create
+    ~name:"shutdown"
+    ~version:0
+    ~bin_query:Unit.bin_t
+    ~bin_response:Unit.bin_t
 
-let clear_rpc = Rpc.Rpc.create
-  ~name:"clear"
-  ~version:0
-  ~bin_query:Topic.bin_t
-  ~bin_response:Unit.bin_t
+let clear_rpc =
+  Rpc.Rpc.create
+    ~name:"clear"
+    ~version:0
+    ~bin_query:Topic.bin_t
+    ~bin_response:Unit.bin_t