get CodeLens to a good enough state

Author: zth

analysis/src/Hint.ml

@@ -125,7 +125,12 @@ let codeLens ~path ~debug =
     (match vb with
     | {
      pvb_pat = {ppat_desc = Ppat_var _; ppat_loc};
-     pvb_expr = {pexp_desc = Pexp_fun _};
+     pvb_expr =
+       {
+         pexp_desc =
+           Pexp_construct
+             ({txt = Lident "Function$"}, Some {pexp_desc = Pexp_fun _});
+       };
     } ->
       push ppat_loc
     | _ -> ());

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

@@ -1,8 +1,7 @@
 Code Lens src/CodeLens.res
+miss, not a function
+Pexp_ident:Completion.ff
 [{
-        "range": {"start": {"line": 9, "character": 4}, "end": {"line": 9, "character": 8}},
-        "command": {"title": "{\"name\": string} => React.element", "command": ""}
-    }, {
         "range": {"start": {"line": 4, "character": 4}, "end": {"line": 4, "character": 6}},
         "command": {"title": "(~opt1: int=?, ~a: int, ~b: int, unit, ~opt2: int=?, unit, ~c: int) => int", "command": ""}
     }, {