Change sample

Author: nojaf

analysis/src/CompletionFrontEnd.ml

@@ -1148,10 +1148,7 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
              (* Determine the field name if present *)
              let fieldName =
                match fieldExpr.pexp_desc with
-               | Pexp_ident {txt = Lident fieldName}
-                 when Res_parsetree_viewer.is_tagged_template_literal innerExpr
-                 ->
-                 fieldName
+               | Pexp_ident {txt = Lident fieldName} -> fieldName
                (* This is likely to be an exprhole *)
                | _ -> ""
              in

tests/analysis_tests/tests/src/CompletionTaggedTemplate.res

@@ -1,8 +1,16 @@
+module M = {
+    type t
+
+    let a = (_t:t) => 4
+    let b = (_:t) => "c"
+    let xyz = (_:t, p:int) => p + 1
+}
+
 @module("meh") @taggedTemplate
-external meh: (array<string>, array<string>) => string = "default"
+external meh: (array<string>, array<string>) => M.t = "default"
 
 // let x = meh`foo`.
 //                  ^com
 
-// let y = meh`bar`.len
-//                     ^com
+// let y = meh`bar`.x
+//                   ^com