diff options
Diffstat (limited to 'lib/drl/sublanguage.ml')
| -rw-r--r-- | lib/drl/sublanguage.ml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/drl/sublanguage.ml b/lib/drl/sublanguage.ml index ccc0222..64cd8c0 100644 --- a/lib/drl/sublanguage.ml +++ b/lib/drl/sublanguage.ml @@ -3,17 +3,11 @@ module Make (NT : Nt.S) = struct type configuration = unit type ast = Ast.query - type error = Exec.error let name = "drl" 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 = Exec.execute ctx ast - - let sexp_of_error = Exec.sexp_of_error end |