Yaron Minsky committed 31415b8

removed logging from client

Comments (0)

Files changed (2)

     (fun host port sexp () -> dump ~host ~port ~sexp)
 let () =
-  Log.Global.set_output [ Log.Output.file `Text ~filename:("client.log") ];
     ( ~summary:"Utilities for interacting with message broker"
        [ "publish"  , pub_cmd
 let with_rpc_conn f ~host ~port =
- "starting RPC connection to %s:%d" host port;
     (Tcp.to_host_and_port host port)
     ~timeout:(sec 1.)
     (fun r w ->
- "Connection established";
       Rpc.Connection.create r w ~connection_state:()
       >>= function
-      | Error exn ->
- "Received error";
-        raise exn
-      | Ok conn ->
- "Calling handling function";
-        f conn
+      | Error exn -> raise exn
+      | Ok conn   -> f conn
 let start_server ~env ?(stop=Deferred.never ()) ~implementations ~port () =
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
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.