From cf0fffed43d0ca7618cd0013411151e057b7a32a Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 18 May 2026 12:35:26 -0300 Subject: RNT interface Co-authored-by: Estevan Castilho --- lib/drl/sublanguage.ml | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'lib/drl/sublanguage.ml') diff --git a/lib/drl/sublanguage.ml b/lib/drl/sublanguage.ml index f47129f..ccc0222 100644 --- a/lib/drl/sublanguage.ml +++ b/lib/drl/sublanguage.ml @@ -1,8 +1,7 @@ -module Make (Storage : Management.Physical.S) = struct - module Exec = Executor.Make (Storage) +module Make (NT : Nt.S) = struct + module Exec = Executor.Make (NT) type configuration = unit - type storage = Storage.t type ast = Ast.query type error = Exec.error @@ -14,12 +13,7 @@ module Make (Storage : Management.Physical.S) = struct | Ok r -> Ok r | Error (Parser.ParseError s) -> Error (Exec.ParseError s) - let execute storage db ast = - match Exec.execute storage db ast with - | Ok rel -> Ok (Sublanguage_types.Query (rel :> Relation.relation)) - | Error e -> Error e + let execute ctx ast = Exec.execute ctx ast let sexp_of_error = Exec.sexp_of_error end - -module Memory = Make (Management.Physical.Memory) -- cgit v1.2.3