ignoring this for now

This commit is contained in:
Simon Petit 2024-12-10 18:00:07 +01:00
parent 4a42d3496f
commit 87959fae33

View File

@ -1,9 +1,4 @@
open Ast
open Printf
let () =
let input = "SELECT aa, ab FROM b1" in
let lexbuf = Lexing.from_string input in
match Parser.main Lexer.read_token lexbuf with
| Query(Select (Column("ab")::Column("aa")::[], [Table "b1"])) -> printf("ok")
| _ -> printf("not ok")
printf "hello"