Commits

Yaron Minsky committed 59a4baf

added .merlin file

Comments (0)

Files changed (5)

+S .
+B _dir
+PKG async core core_extended
 
 EXT=byte
 
-corebuild \
+corebuild -j 3  \
     hello_world.$EXT \
     hello_client.$EXT \
     hello_server.$EXT \
 module Topic_pub : sig
   type t
   val create : Message.t -> t
-  val publish : t -> Message.t -> unit
-  val subscribe : t -> Message.t Pipe.Reader.t
+
+  val publish         : t -> Message.t -> unit
+  val subscribe       : t -> Message.t Pipe.Reader.t
   val num_subscribers : t -> int
-  val last_message : t -> Message.t
-  val clear : t -> unit
+  val last_message    : t -> Message.t
+  val clear           : t -> unit
 end = struct
   type t = { mutable last_message: Message.t;
              mutable subscribers: Message.t Pipe.Writer.t list;
     let num_subscribers = Topic_pub.num_subscribers tpub in
     let message = Topic_pub.last_message tpub in
     {Dump. num_subscribers; message })
+
 open Async.Std
 
 (* A command that sends the hello request  *)
-let say_hello =
+let say_hello ~host ~port =
   Common.with_rpc_conn (fun conn ->
     Rpc.Rpc.dispatch_exn Hello_protocol.hello_rpc conn "Hello"
     >>| fun response ->
     printf "%s\n%!" response
   )
+    ~host ~port
 
 let command =
   Command.async_basic
 let hello_impl () hello =
   Log.Global.debug "received hello query (%s)" hello;
   Clock.after (sec 0.1)
-  >>= fun () -> return (hello ^ " World!")
+  >>= fun () ->
+(*  return (String.length hello) *)
+  return (hello ^ " World!")
 
 (* The list of RPC implementations supported by this server *)
 let implementations =
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.