fix completing uncompiled across files

Author: zth

analysis/src/CompletionBackEnd.ml

@@ -562,7 +562,9 @@ let completionForExporteds iterExported getDeclared ~prefix ~exact ~env
               with
               deprecated = declared.deprecated;
               docstring = declared.docstring;
-              modulePath = ModulePath.toPathWithoutTip declared.modulePath;
+              modulePath =
+                [env.file.moduleName]
+                @ ModulePath.toPathWithoutTip declared.modulePath;
             }
             :: !res
         | _ -> ());

analysis/tests/src/CompletionPipeChain.res

@@ -48,3 +48,9 @@ let f = int->Integer.increment(2)
 
 // let _ = int->Integer.increment(2)->SuperFloat.fromInteger->t
 //                                                             ^com
+
+// let _ = int->Integer.increment(2)->Integer.toInt->CompletionSupport.Test.make->
+//                                                                                ^com
+
+// let _ = CompletionSupport.Test.make(1)->CompletionSupport.Test.addSelf(2)->
+//                                                                            ^com

analysis/tests/src/CompletionSupport.res

@@ -0,0 +1,6 @@
+module Test = {
+  type t = {name: int}
+  let add = (ax: t) => ax.name + 1
+  let addSelf = (ax: t) => {name: ax.name + 1}
+  let make = (name: int): t => {name: name}
+}

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

@@ -188,3 +188,49 @@ Completable: Cpath Value[SuperFloat, fromInteger](Nolabel)->t
     "documentation": null
   }]
 
+Complete src/CompletionPipeChain.res 51:82
+posCursor:[51:82] posNoWhite:[51:81] Found expr:[51:11->0:-1]
+Completable: Cpath Value[CompletionSupport, Test, make](Nolabel)->
+[{
+    "label": "add",
+    "kind": 12,
+    "tags": [],
+    "detail": "t => int",
+    "documentation": null
+  }, {
+    "label": "addSelf",
+    "kind": 12,
+    "tags": [],
+    "detail": "t => t",
+    "documentation": null
+  }, {
+    "label": "make",
+    "kind": 12,
+    "tags": [],
+    "detail": "int => t",
+    "documentation": null
+  }]
+
+Complete src/CompletionPipeChain.res 54:78
+posCursor:[54:78] posNoWhite:[54:77] Found expr:[54:11->0:-1]
+Completable: Cpath Value[CompletionSupport, Test, addSelf](Nolabel, Nolabel)->
+[{
+    "label": "add",
+    "kind": 12,
+    "tags": [],
+    "detail": "t => int",
+    "documentation": null
+  }, {
+    "label": "addSelf",
+    "kind": 12,
+    "tags": [],
+    "detail": "t => t",
+    "documentation": null
+  }, {
+    "label": "make",
+    "kind": 12,
+    "tags": [],
+    "detail": "int => t",
+    "documentation": null
+  }]
+