From d5fcf20aaa6c3b7b4d2edda8043d2d600f4ef973 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Thu, 21 May 2026 01:43:44 +0000 Subject: Migrate the DDL over --- lib/ddl/sublanguage.ml | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'lib/ddl/sublanguage.ml') diff --git a/lib/ddl/sublanguage.ml b/lib/ddl/sublanguage.ml index a7910c5..33145c4 100644 --- a/lib/ddl/sublanguage.ml +++ b/lib/ddl/sublanguage.ml @@ -3,20 +3,14 @@ module Make (NT : Nt.S) = struct type configuration = unit type ast = Ast.statement - type error = Exec.error let name = "ddl" let parse _ = Ok () - let parse_sexp sexp = - match Parser.of_sexp sexp with - | Ok r -> Ok r - | Error (Parser.ParseError s) -> Error (Exec.ParseError s) + let parse_sexp sexp = Parser.of_sexp sexp let execute ctx ast = match Exec.execute ctx ast with | Ok (delta, _msg) -> Ok (Sublanguage_types.Transition delta) | Error e -> Error e - - let sexp_of_error = Exec.sexp_of_error end -- cgit v1.2.3