Yaron Minsky avatar Yaron Minsky committed f9091ca

dispatch -> dispatch_exn

Comments (0)

Files changed (2)

 
 let shutdown =
   Common.with_rpc_conn (fun conn ->
-    Rpc.Rpc.dispatch shutdown_rpc conn ()
-    >>= function
-    | Ok  () -> return ()
-    | Error err ->
-      eprintf "failed!\n%s\n" (Error.to_string_hum err);
-      return ()
-  )
+    Rpc.Rpc.dispatch_exn shutdown_rpc conn ())
 
 let host_and_port () =
   Command.Spec.(
 open Core.Std
 open Async.Std
 
-let say_hello port host =
-  Common.with_rpc_conn ~port ~host (fun conn ->
-    Rpc.Rpc.dispatch Hello_protocol.hello_rpc conn "Hello"
-    >>= function
-    | Ok response -> printf "%s\n%!" response; return ()
-    | Error err ->
-      eprintf "An error occurred:\n%s\n%!"
-        (Error.to_string_hum err);
-      return ()
+(* A command that sends the hello request  *)
+let say_hello =
+  Common.with_rpc_conn (fun conn ->
+    Rpc.Rpc.dispatch_exn Hello_protocol.hello_rpc conn "Hello"
+    >>| fun response ->
+    printf "%s\n%!" response
   )
 
 let command =
       +> Common.port_arg ()
       +> Common.host_arg ()
     )
-    (fun port host () ->
-      say_hello port host
-    )
+    (fun port host () -> say_hello ~port ~host)
 
 let () = Command.run command
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.