Remove unused OCaml variant in RescriptCompilerApi.Lang.t

Author: mediremi

src/Playground.res

@@ -1438,8 +1438,7 @@ let make = (~versions: array<string>) => {
   let initialContent = switch (Dict.get(router.query, "code"), initialLang) {
   | (Some(compressedCode), _) => LzString.decompressToEncodedURIComponent(compressedCode)
   | (None, Reason) => initialReContent
-  | (None, Res)
-  | (None, _) =>
+  | (None, Res) =>
     switch initialVersion {
     | Some({major: 10, minor}) if minor >= 1 => InitialContent.since_10_1
     | Some({major}) if major > 10 => InitialContent.since_11

src/bindings/RescriptCompilerApi.res

@@ -3,27 +3,23 @@
 module Lang = {
   type t =
     | Reason
-    | OCaml
     | Res
 
   let toString = t =>
     switch t {
     | Res => "ReScript"
     | Reason => "Reason"
-    | OCaml => "OCaml"
     }
 
   let toExt = t =>
     switch t {
     | Res => "res"
     | Reason => "re"
-    | OCaml => "ml"
     }
 
   let decode = (json): t => {
     open! Json.Decode
     switch string(json) {
-    | "ml" => OCaml
     | "re" => Reason
     | "res" => Res
     | other => raise(DecodeError(`Unknown language "${other}"`))

src/bindings/RescriptCompilerApi.resi

@@ -9,7 +9,6 @@
 module Lang: {
   type t =
     | Reason
-    | OCaml
     | Res
 
   let toString: t => string

src/common/CompilerManagerHook.res

@@ -320,7 +320,6 @@ let useCompilerManager = (
           let convResult = switch ready.targetLang {
           | Res => instance->Compiler.resFormat(code)->Some
           | Reason => instance->Compiler.reasonFormat(code)->Some
-          | _ => None
           }
 
           let result = switch convResult {
@@ -511,13 +510,11 @@ let useCompilerManager = (
         let compResult = switch apiVersion {
         | V1 =>
           switch lang {
-          | Lang.OCaml => instance->Compiler.ocamlCompile(code)
           | Lang.Reason => instance->Compiler.reasonCompile(code)
           | Lang.Res => instance->Compiler.resCompile(code)
           }
         | V2 | V3 | V4 =>
           switch lang {
-          | Lang.OCaml => instance->Compiler.ocamlCompile(code)
           | Lang.Reason =>
             CompilationResult.UnexpectedError(
               `Reason not supported with API version "${apiVersion->RescriptCompilerApi.Version.toString}"`,