diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-05-21 01:51:54 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-05-21 01:55:16 +0000 |
| commit | 01e8817ebd580fef547699853a38c854eac670d1 (patch) | |
| tree | 2d17b5c4a5beca25bf668223712c06dd0ac32265 /lib/scl/sublanguage.ml | |
| parent | 65c533ef102ea71b8420d556ae3a9567f17effd8 (diff) | |
| download | Sakura-01e8817ebd580fef547699853a38c854eac670d1.tar.gz Sakura-01e8817ebd580fef547699853a38c854eac670d1.zip | |
Migrate the SCL over
Diffstat (limited to 'lib/scl/sublanguage.ml')
| -rw-r--r-- | lib/scl/sublanguage.ml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/scl/sublanguage.ml b/lib/scl/sublanguage.ml index 87e4d42..0793211 100644 --- a/lib/scl/sublanguage.ml +++ b/lib/scl/sublanguage.ml @@ -3,15 +3,11 @@ module Make (NT : Nt.S) = struct type configuration = unit type ast = Ast.statement - type error = Exec.error let name = "scl" 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 @@ -19,6 +15,4 @@ module Make (NT : Nt.S) = struct | Executor.Batch { cursor_id; rows; has_more } -> Sublanguage_types.Cursor { cursor_id; rows; has_more } | Executor.Closed delta -> Sublanguage_types.Transition delta) - - let sexp_of_error = Exec.sexp_of_error end |