print some stuff

Author: chenglou

analysis/src/Commands.ml

@@ -51,6 +51,10 @@ let completion ~path ~line ~col ~currentFile =
 
 let hover ~file ~line ~col ~extra ~package =
   let pos = Utils.protocolLineColToCmtLoc ~line ~col in
+  print_endline "Commands.hover pos:";
+  let (a, b) = pos in
+  print_endline (string_of_int a);
+  print_endline (string_of_int b);
   match References.locItemForPos ~extra pos with
   | None -> Protocol.null1
   | Some locItem -> (

analysis/src/References.ml

@@ -15,6 +15,8 @@ let checkPos (line, char)
   else true
 
 let locItemsForPos ~extra pos =
+  print_endline "References.locItemsForPos extra.locItems length:";
+  print_endline (string_of_int (List.length extra.locItems));
   extra.locItems |> List.filter (fun {loc; locType = _} -> checkPos pos loc)
 
 let locItemForPos ~extra pos =