From a0b04a0f6d14d1b89d97d184e516aaa7e3099084 Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Thu, 21 May 2026 01:28:10 +0000
Subject: Migrate the DML over

---
 lib/dml/sublanguage.ml | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'lib/dml/sublanguage.ml')

diff --git a/lib/dml/sublanguage.ml b/lib/dml/sublanguage.ml
index a67ec66..9648786 100644
--- a/lib/dml/sublanguage.ml
+++ b/lib/dml/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 = "dml"
   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 -> Ok (Sublanguage_types.Transition delta)
     | Error e -> Error e
-
-  let sexp_of_error = Exec.sexp_of_error
 end
-- 
cgit v1.2.3