diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-06-23 23:53:26 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-06-23 23:53:26 -0300 |
| commit | c284fcd570342c31bc21169960579a20a763e32e (patch) | |
| tree | ce7485055116d794c55090ad0978e0b3f5ff4c2a /lib/scl/sublanguage.ml | |
| parent | b81586ee4a0543a5f9866586c78dccdd6328934a (diff) | |
| download | Sakura-c284fcd570342c31bc21169960579a20a763e32e.tar.gz Sakura-c284fcd570342c31bc21169960579a20a763e32e.zip | |
Format
Diffstat (limited to 'lib/scl/sublanguage.ml')
| -rw-r--r-- | lib/scl/sublanguage.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/scl/sublanguage.ml b/lib/scl/sublanguage.ml index 0793211..526e7a2 100644 --- a/lib/scl/sublanguage.ml +++ b/lib/scl/sublanguage.ml @@ -6,13 +6,12 @@ module Make (NT : Nt.S) = struct let name = "scl" let parse _ = Ok () - let parse_sexp sexp = Parser.of_sexp sexp let execute ctx ast = Exec.execute ctx ast |> Result.map (function - | Executor.Batch { cursor_id; rows; has_more } -> - Sublanguage_types.Cursor { cursor_id; rows; has_more } - | Executor.Closed delta -> Sublanguage_types.Transition delta) + | Executor.Batch {cursor_id; rows; has_more} -> + Sublanguage_types.Cursor {cursor_id; rows; has_more} + | Executor.Closed delta -> Sublanguage_types.Transition delta ) end |