hphp/hack/src/client/clientDebug.ml

   1 (**
   2  * Copyright (c) 2015, Facebook, Inc.
   3  * All rights reserved.
   4  *
   5  * This source code is licensed under the MIT license found in the
   6  * LICENSE file in the "hack" directory of this source tree.
   7  *
   8  *)
   9
  10 type env = {
  11   root : Path.t;
  12   from : string;
  13 }
  14
  15 let main (env : env) : Exit_status.t Lwt.t =
  16   let%lwt {ClientConnect.channels = ic, oc; _} =
  17       ClientConnect.connect { ClientConnect.
  18     root = env.root;
  19     from = env.from;
  20     autostart = true;
  21     force_dormant_start = false;
  22     ai_mode = None;
  23     retries = Some 800;
  24     expiry = None;
  25     no_load = false;
  26     watchman_debug_logging = false;
  27     log_inference_constraints = false;
  28     profile_log = false;
  29     progress_callback = ClientConnect.tty_progress_reporter ();
  30     do_post_handoff_handshake = true;
  31     ignore_hh_version = false;
  32     saved_state_ignore_hhconfig = false;
  33     use_priority_pipe = false;
  34     prechecked = None;
  35     config = [];
  36   } in
  37   ServerCommandLwt.connect_debug oc;
  38   (* Exit this via ctrl-C *)
  39   while true do
  40     print_endline (Timeout.input_line ic);
  41   done;
  42   Lwt.return Exit_status.No_error