balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix cli.ml

Browse Source
This commit is contained in:
Galfour 2019-06-01 11:51:49 +00:00
parent 6febd855c4
commit a7298dc16d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/bin/cli.ml
View File

@ -47,7 +47,7 @@ let compile_file =
toplevel @@ toplevel @@
let%bind contract = let%bind contract =
trace (simple_error "compile michelson") @@ trace (simple_error "compile michelson") @@
Ligo.Contract.compile_contract_file source entry_point syntax in Ligo.Run.compile_contract_file source entry_point syntax in
Format.printf "Contract:\n%s\n" contract ; Format.printf "Contract:\n%s\n" contract ;
ok () ok ()
in in
@ -61,7 +61,7 @@ let compile_parameter =
toplevel @@ toplevel @@
let%bind value = let%bind value =
trace (simple_error "compile-input") @@ trace (simple_error "compile-input") @@
Ligo.Contract.compile_contract_parameter source entry_point expression syntax in Ligo.Run.compile_contract_parameter source entry_point expression syntax in
Format.printf "Input:\n%s\n" value; Format.printf "Input:\n%s\n" value;
ok () ok ()
in in
@ -75,7 +75,7 @@ let compile_storage =
toplevel @@ toplevel @@
let%bind value = let%bind value =
trace (simple_error "compile-storage") @@ trace (simple_error "compile-storage") @@
Ligo.Contract.compile_contract_storage source entry_point expression syntax in Ligo.Run.compile_contract_storage source entry_point expression syntax in
Format.printf "Storage:\n%s\n" value; Format.printf "Storage:\n%s\n" value;
ok () ok ()
in in