Clean up now unused occurrences of Function$.

Author: cristianoc

analysis/src/CompletionFrontEnd.ml

@@ -1093,7 +1093,7 @@ let completionWithParser1 ~currentFile ~debug ~offset ~path ~posCursor
           (* Ignore list expressions, used in JSX, unit, and more *) ()
         | Pexp_construct (lid, eOpt) -> (
           let lidPath = flattenLidCheckDot lid in
-          if debug && lid.txt <> Lident "Function$" then
+          if debug then
             Printf.printf "Pexp_construct %s:%s %s\n"
               (lidPath |> String.concat "\n")
               (Loc.toString lid.loc)

analysis/src/Xform.ml

@@ -303,10 +303,7 @@ module AddTypeAnnotation = struct
     in
     let rec processFunction ~argNum (e : Parsetree.expression) =
       match e.pexp_desc with
-      | Pexp_fun (argLabel, _, pat, e, _)
-      | Pexp_construct
-          ( {txt = Lident "Function$"},
-            Some {pexp_desc = Pexp_fun (argLabel, _, pat, e, _)} ) ->
+      | Pexp_fun (argLabel, _, pat, e, _) ->
         let isUnlabeledOnlyArg =
           argNum = 1 && argLabel = Nolabel
           &&