Try to output only the uri in case of references to an entire file.

Author: cristianoc

analysis/.depend

@@ -26,7 +26,7 @@ src/ProcessAttributes.cmx : src/SharedTypes.cmx src/PrepareUtils.cmx
 src/ProcessCmt.cmx : src/Utils.cmx src/Uri2.cmx src/SharedTypes.cmx \
     src/Shared.cmx src/ProcessAttributes.cmx src/Packages.cmx src/Log.cmx \
     src/FindFiles.cmx src/Files.cmx src/BuildSystem.cmx
-src/Protocol.cmx : src/vendor/Json.cmx
+src/Protocol.cmx : src/Uri2.cmx src/vendor/Json.cmx
 src/References.cmx : src/Utils.cmx src/Uri2.cmx src/SharedTypes.cmx \
     src/ProcessCmt.cmx src/Log.cmx src/Infix.cmx
 src/Shared.cmx : src/PrintType.cmx src/Log.cmx src/Files.cmx

analysis/src/Commands.ml

@@ -130,14 +130,16 @@ let references ~path ~line ~col =
           allReferences
           |> List.fold_left
                (fun acc (uri2, references) ->
-                 (references
-                 |> List.map (fun loc ->
-                        Protocol.stringifyLocation
-                          {
-                            uri = Uri2.toString uri2;
-                            range = Utils.cmtLocToRange loc;
-                          }))
-                 @ acc)
+                 if references = [] then [Protocol.stringifyFileLocation uri2]
+                 else
+                   (references
+                   |> List.map (fun loc ->
+                          Protocol.stringifyLocation
+                            {
+                              uri = Uri2.toString uri2;
+                              range = Utils.cmtLocToRange loc;
+                            }))
+                   @ acc)
                []
         in
         "[\n" ^ (allLocs |> String.concat ",\n") ^ "\n]")

analysis/src/Protocol.ml

@@ -56,6 +56,9 @@ let stringifyLocation h =
   Printf.sprintf {|{"uri": "%s", "range": %s}|} (Json.escape h.uri)
     (stringifyRange h.range)
 
+let stringifyFileLocation uri =
+  Printf.sprintf {|{"uri": "%s"}|} (Json.escape (Uri2.toString uri))
+
 let stringifyDocumentSymbolItem i =
   Printf.sprintf
     {|{

analysis/src/References.ml

@@ -475,7 +475,7 @@ let allReferencesForLocItem ~full:({file; package} as full) locItem =
       | None -> []
       | Some src ->
         let uri, loc = (Uri2.fromPath src, Utils.topLoc src) in
-        [(uri, [loc])]))
+        [(uri, [])]))
   | Typed (_, _, NotFound) | LModule NotFound | Constant _ -> []
   | TypeDefinition (_, _, stamp) -> forLocalStamp ~full stamp Type
   | Typed (_, _, (LocalReference (stamp, tip) | Definition (stamp, tip)))

analysis/tests/src/expected/Cross.res.txt

@@ -1,5 +1,5 @@
 References tests/src/Cross.res 0:17
 [
-{"uri": "References.res", "range": {"start": {"line": 0, "character": 0}, "end": {"line": 0, "character": 0}}}
+{"uri": "References.res"}
 ]