diff options
Diffstat (limited to 'lib/drl/executor.ml')
| -rw-r--r-- | lib/drl/executor.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/drl/executor.ml b/lib/drl/executor.ml index 5f820c8..34edc08 100644 --- a/lib/drl/executor.ml +++ b/lib/drl/executor.ml @@ -28,10 +28,14 @@ module Make (NT : Nt.S) = struct Ok (Nt.Take { limit = n; source = p }) | Ast.Const _ -> Error (Error.unsupported_operator - "Const: literal relations not yet reachable by VM; use Base") + "Const: literal relations not yet reachable by VM; use Base") + | Ast.Project (attrs, query) -> + let* source = compile resolve query in + Ok (Nt.Project { attrs; source }) + | Ast.Rename _ -> Error (Error.unsupported_operator "TODO") | _ -> Error (Error.unsupported_operator - "Select/Project/Rename/Union/Diff/Cartesian require VM operators not yet implemented") + "Select/Union/Diff/Cartesian require VM operators not yet implemented") let page_limit = 16 |