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

Proto/Compiler: display hash of compiled protocol

Browse Source
This commit is contained in:
Grégoire Henry 2018-06-27 11:01:30 +02:00
parent 1c2a771832
commit 5575b8b8f2
3 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/bin_client/test/demo/main.ml
View File

@ -78,13 +78,6 @@ module Fitness = struct
end end
let precheck_block
~ancestor_context:_
~ancestor_timestamp:_
(raw_block: block_header) =
Fitness.to_int64 raw_block.shell.fitness >>=? fun _ ->
return_unit
let begin_application let begin_application
~predecessor_context:context ~predecessor_context:context
~predecessor_timestamp:_ ~predecessor_timestamp:_

2
src/bin_client/test/test_injection.sh
View File

@ -31,7 +31,7 @@ done
sleep 2 sleep 2
# autogenerated from the demo source # autogenerated from the demo source
protocol_version="PrqRSDRSu849eAgN6UQXcZBAsK3jCHY7g9nQ6HWXAGkmDY4ffCH" protocol_version="PsVi9P3i73N4zstqkty4EiL76cofTFkthzSQPfLmChCvF7JopPh"
$admin_client inject protocol "$test_dir/demo" $admin_client inject protocol "$test_dir/demo"
$admin_client list protocols $admin_client list protocols

4
src/lib_protocol_compiler/compiler.ml
View File

@ -232,5 +232,7 @@ let main { compile_ml ; pack_objects ; link_shared } =
Format.printf "let src_digest = %S ;;\n" (Digest.to_hex dsrc) ; Format.printf "let src_digest = %S ;;\n" (Digest.to_hex dsrc) ;
Format.printf "let impl_digest = %S ;;\n" (Digest.to_hex dimpl) ; Format.printf "let impl_digest = %S ;;\n" (Digest.to_hex dimpl) ;
Format.printf "let intf_digest = %S ;;\n" (Digest.to_hex dintf) Format.printf "let intf_digest = %S ;;\n" (Digest.to_hex dintf)
end end ;
Format.printf "Success: %a@." Protocol_hash.pp hash