diff options
Diffstat (limited to 'lib/vcl/sublanguage.ml')
| -rw-r--r-- | lib/vcl/sublanguage.ml | 22 |
1 files changed, 0 insertions, 22 deletions
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 |