3 files changed, 0 insertions, 32 deletions
diff --git a/lib/vcl/ast.ml b/lib/vcl/ast.ml
deleted file mode 100644
index ef573c0..0000000
--- a/lib/vcl/ast.ml
+++ /dev/null
@@ -1 +0,0 @@
-type statement = Use of string
diff --git a/lib/vcl/executor.ml b/lib/vcl/executor.ml
deleted file mode 100644
index ff95583..0000000
--- a/lib/vcl/executor.ml
+++ /dev/null
@@ -1,9 +0,0 @@
-module Make (NT : Nt.S) = struct
-  let execute (ctx : Sublanguage_context.t) (stmt : Ast.statement) :
-      (Sublanguage_types.result, Condition.t) result =
-    match stmt with
-    | Ast.Use branch_name ->
-        Result.map (fun delta -> Sublanguage_types.Transition delta) (ctx.switch_branch branch_name)
-
-  let _ = (module NT : Nt.S)
-end
diff --git a/lib/vcl/sublanguage.ml b/lib/vcl/sublanguage.ml
deleted file mode 100644
index 437c93b..0000000
--- a/lib/vcl/sublanguage.ml
+++ /dev/null
@@ -1,22 +0,0 @@
-module Make (NT : Nt.S) = struct
-  module Error = struct
-    open Condition
-
-    let unrecognized_command expr =
-      condition "unrecognized-command" "Unrecognized command" ("expression" |=| of_sexp expr)
-  end
-
-  module Exec = Executor.Make (NT)
-
-  type configuration = unit
-  type ast = Ast.statement
-
-  let name = "vcl"
-  let parse _ = Ok ()
-
-  let parse_sexp = function
-    | Sexplib.Sexp.(List [Atom "use"; Atom branch]) -> Ok (Ast.Use branch)
-    | sexp -> Error (Error.unrecognized_command sexp)
-
-  let execute = Exec.execute
-end