remove top level unit type action, since the error location given by the compiler isn't always enough to add ignore (we'd have to look at the AST, and we'd like to avoid that for the diagnostics driven actions)

Author: zth

server/src/codeActions.ts

@@ -96,7 +96,6 @@ export let findCodeActionsInDiagnosticsMessage = ({
       didYouMeanAction,
       addUndefinedRecordFields,
       simpleConversion,
-      topLevelUnitType,
       applyUncurried,
       simpleAddMissingCases,
       simpleWrapOptionalWithSome,
@@ -388,41 +387,6 @@ let applyUncurried: codeActionExtractor = ({
   return false;
 };
 
-// This action detects the compiler erroring when it finds a top level value
-// that's not `unit`, and offers to wrap that value in `ignore`, which will make
-// it compile.
-let topLevelUnitType: codeActionExtractor = ({
-  line,
-  codeActions,
-  file,
-  range,
-  diagnostic,
-}) => {
-  if (line.startsWith("Toplevel expression is expected to have unit type.")) {
-    codeActions[file] = codeActions[file] || [];
-    let codeAction: p.CodeAction = {
-      title: `Wrap expression in ignore`,
-      edit: {
-        changes: {
-          [file]: wrapRangeInText(range, "ignore(", ")"),
-        },
-      },
-      diagnostics: [diagnostic],
-      kind: p.CodeActionKind.QuickFix,
-      isPreferred: true,
-    };
-
-    codeActions[file].push({
-      range,
-      codeAction,
-    });
-
-    return true;
-  }
-
-  return false;
-};
-
 // This protects against the fact that the compiler currently returns most
 // text in OCaml. It also ensures that we only return simple constructors.
 let isValidVariantCase = (text: string): boolean => {