Add back global_root and local_root to Info response

Reviewed By: dkgi

Differential Revision: D30524486

fbshipit-source-id: 5b445127ba9e5b0c5a0232b8ebd16df553243ea8

Author: grievejia

source/new_server/requestHandler.ml

@@ -145,12 +145,15 @@ let process_request
   =
   match request with
   | Request.GetInfo ->
+      let { Configuration.Analysis.project_root; local_root; _ } = configuration in
       let response =
         Response.Info
           {
             version = Version.version ();
             pid = Unix.getpid () |> Pid.to_int;
             socket = Pyre.Path.absolute socket_path;
+            global_root = Path.show project_root;
+            relative_local_root = Path.get_relative_to_root ~root:project_root ~path:local_root;
           }
       in
       Lwt.return (state, response)

source/new_server/response.ml

@@ -11,9 +11,12 @@ type t =
   | Ok
   | Error of string
   | Info of {
+      (* All fields are required to implement `pyre servers` *)
       version: string;
       pid: int;
       socket: string;
+      global_root: string;
+      relative_local_root: string option;
     }
   | TypeErrors of Analysis.AnalysisError.Instantiated.t list
   | Query of Query.Response.t