parallel: port to 5.2.1 + core v0.17

Author: glyh

src/lib/parallel/dune

@@ -7,7 +7,7 @@
   async_rpc_kernel
   async
   core
-  rpc_parallel
+  rpc_parallel.unauthenticated
   async.async_rpc
   core_kernel)
  (preprocess

src/lib/parallel/parallel.ml

@@ -1,11 +1,12 @@
 open Core
 open Async
+open Rpc_parallel_unauthenticated
 
 let initialized = ref false
 
 let worker_command_name = "parallel-worker"
 
-let worker_command = Rpc_parallel.Expert.worker_command
+let worker_command = Expert.worker_command
 
 let init_master () =
   if not !initialized then (
@@ -14,7 +15,7 @@ let init_master () =
         ~send_every:(Time_ns.Span.of_sec 10.) ~timeout:(Time_ns.Span.of_min 15.)
         ()
     in
-    Rpc_parallel.Expert.start_master_server_exn
-      ~rpc_handshake_timeout:(Time.Span.of_min 10.) ~rpc_heartbeat_config
-      ~worker_command_args:[ worker_command_name ] () ;
+    Expert.start_master_server_exn
+      ~rpc_handshake_timeout:(Time_float.Span.of_min 10.)
+      ~rpc_heartbeat_config ~worker_command_args:[ worker_command_name ] () ;
     initialized := true )