Clean up code

Author: ryyppy

re_pages/Playground.re

@@ -1771,76 +1771,6 @@ module Button3 = {
     | _ => [||]
     };
 
-  let controlPanel =
-    switch (compilerState) {
-    | Ready(ready)
-    | Compiling(ready, _)
-    | SwitchingCompiler(ready, _, _) =>
-      let availableTargetLangs =
-        Api.Version.availableLanguages(ready.selected.apiVersion);
-
-      let selectedTargetLang =
-        switch (ready.targetLang) {
-        | Res => (Api.Lang.Res, ready.selected.compilerVersion)
-        | Reason => (Reason, ready.selected.reasonVersion)
-        | OCaml => (OCaml, ready.selected.ocamlVersion)
-        };
-
-      let onCompilerSelect = id => {
-        compilerDispatch(
-          SwitchToCompiler({id, libraries: ready.selected.libraries}),
-        );
-      };
-
-      let onTargetLangSelect = lang => {
-        compilerDispatch(
-          SwitchLanguage({lang, code: React.Ref.current(editorCode)}),
-        );
-      };
-
-      let onCompileClick = () => {
-        compilerDispatch(
-          CompileCode(ready.targetLang, React.Ref.current(editorCode)),
-        );
-      };
-
-      // When a new compiler version was selected, it should
-      // be shown in the control panel as the currently selected
-      // version, even when it is currently loading
-      let compilerVersion =
-        switch (compilerState) {
-        | SwitchingCompiler(_, version, _) => version
-        | _ => ready.selected.id
-        };
-
-      let onFormatClick = () => {
-        compilerDispatch(Format(React.Ref.current(editorCode)));
-      };
-
-      let isCompilerSwitching =
-        switch (compilerState) {
-        | SwitchingCompiler(_, _, _) => true
-        | _ => false
-        };
-
-      <>
-        <ControlPanelOld
-          isCompilerSwitching
-          compilerVersion
-          availableTargetLangs
-          availableCompilerVersions={ready.versions}
-          selectedTargetLang
-          loadedLibraries={ready.selected.libraries}
-          onCompilerSelect
-          onTargetLangSelect
-          onCompileClick
-          onFormatClick
-        />
-      </>;
-    | Init => "Initializing"->s
-    | SetupFailed(msg) => <> {("Setup failed: " ++ msg)->s} </>
-    };
-
   <>
     <Meta
       title="ReScript Playground"