diff options
Diffstat (limited to 'rego-proofs/compiler/bin/main.ml')
| -rw-r--r-- | rego-proofs/compiler/bin/main.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/rego-proofs/compiler/bin/main.ml b/rego-proofs/compiler/bin/main.ml new file mode 100644 index 0000000..f1b213c --- /dev/null +++ b/rego-proofs/compiler/bin/main.ml @@ -0,0 +1,12 @@ +open Core +open Compiler +open Compiler__.Ast +open Compiler__.Lean + +let () = + let file_name = Array.get (Sys.get_argv ()) 1 in + let policy_code = In_channel.read_all file_name in + ast_of_string policy_code + |> compile_package + |> List.map ~f:fmt_lean_expression + |> List.iter ~f:print_endline |