summaryrefslogtreecommitdiff
path: root/src/main.ml
diff options
context:
space:
mode:
authorSon Ho2021-11-17 14:52:44 +0100
committerSon Ho2021-11-17 14:52:44 +0100
commit49b15dbc29deb712a551af321ce18ef8d3e446d0 (patch)
tree7dd70ce4601112446d3039a908a3d2987ae21dea /src/main.ml
parent55113b54dfb29df9f53488c106a672bf2c63c293 (diff)
Make minor modifications
Diffstat (limited to 'src/main.ml')
-rw-r--r--src/main.ml8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/main.ml b/src/main.ml
index 3a1d56ed..fc9e4efd 100644
--- a/src/main.ml
+++ b/src/main.ml
@@ -17,7 +17,11 @@ type rust_module = {
let () =
(* let json = Yojson.Basic.from_file "../charon/charon/tests/test1.cfim" in *)
- let json = Yojson.Safe.from_file "../charon/charon/tests/test1.cfim" in
- match rust_module_of_yojson json with
+ let _json1 = Yojson.Safe.from_file "../charon/charon/tests/test1.cfim" in
+ let json2 = Yojson.Safe.from_file "../charon/charon/tests/test4.cfim" in
+ match statement_of_yojson json2 with
| Error s -> Printf.printf "error: %s\n" s
| Ok _ast -> print_endline "ast"
+(* match rust_module_of_yojson json with
+ | Error s -> Printf.printf "error: %s\n" s
+ | Ok _ast -> print_endline "ast"*)