RNT interface

Co-authored-by: Estevan Castilho <tevo@riajuu.net>

1 files changed, 3 insertions, 9 deletions

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)