1. Dmitry Grebeniuk
  2. parvel

Commits

Dmitry Grebeniuk  committed 759ede9

.

  • Participants
  • Parent commits 7d5dd12
  • Branches default

Comments (0)

Files changed (1)

File tests/tests_bf.ml

View file
     ;
 
 
-    value prefixes = Stream.of_list &
+    value _prefixes1 = Stream.of_list &
+      List.map String.of_char & String.explode chars
+    ;
+
+    value _prefixes2 = Stream.of_list &
       let charslist = String.explode chars in
       let open List.Monad in
       charslist >>= fun c1 ->
       return String.(of_char c1 ^ of_char c2)
     ;
 
+    value prefixes = _prefixes2
+    ;
+
   end
 ;
 
 value () = Ser.ti_add_marshal ti_msg_to_worker;
 
 
-(* initialize listen address for network *)
+(* initialize listen address for network mode *)
 value () =
   match Sys.getenv_opt "PARVEL_LISTEN" with
-  [ Some _ -> ()
-  | None -> Parvel.set_listen_ip_port "192.168.2.100" 22528
+  [ Some _ -> ()  (* worker gets this var *)
+  | None ->  (* master doesn't get *)
+      Parvel.set_listen_ip_port "192.168.2.100" Topoman_config.master_port
   ]
 ;
 
   [ Sequentially | Par Single_process -> IO.return ()
   | Par (Host_processes n) -> (spawn_host_processes n; IO.return ())
   | Par Net ->
-(*
      let () = spawn_host_processes 2 in
-*)
      let open Parvel_deploy.Source_build in
      let src = source_rsync ~project_path:"tests"
      and bld = build_argv