hphp/hack/src/server/serverMethodJumps.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 open ServerEnv
  11
  12 let go class_ find_children env genv oc =
  13   let ctx = Provider_utils.ctx_from_server_env env in
  14   let res_list =
  15     (* Might raise {!Naming_table.File_info_not_found} *)
  16     MethodJumps.get_inheritance
  17       ctx
  18       class_
  19       ~find_children
  20       env.naming_table
  21       genv.workers
  22   in
  23   Marshal.to_channel oc res_list [];
  24   flush oc;
  25   ()