diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-26 15:30:53 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-26 15:30:53 -0300 |
| commit | e32ba6294781691846c3ab19281fe977350b4d0f (patch) | |
| tree | f38e92ba2fc03e966d7263c7ee2e0b5d7983ebae /lib/vcl/sublanguage.ml | |
| parent | be375a52da6174dfda5b68617d27e1542cc80499 (diff) | |
| download | Sakura-e32ba6294781691846c3ab19281fe977350b4d0f.tar.gz Sakura-e32ba6294781691846c3ab19281fe977350b4d0f.zip | |
preparation cleanup for RNT integration
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 |