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

Client: describe unsigned data commands

Browse Source
This commit is contained in:
Milo Davis 2018-04-26 14:32:50 -04:00 committed by Benjamin Canou
parent 0a88f1887c
commit ec7eeaaa0e
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/proto_alpha/lib_client_commands/client_proto_context_commands.ml
View File

@ -48,6 +48,10 @@ let alphanet =
{ Clic.name = "alphanet" ;
title = "Alphanet only commands" }
let binary_description =
{ Clic.name = "description" ;
title = "Binary Description" }
let commands () =
let open Clic in
[
@ -369,4 +373,28 @@ let commands () =
return ()
end ;
command ~group:binary_description ~desc:"Describe unsigned block header"
no_options
(fixed [ "describe" ; "unsigned" ; "block" ; "header" ])
begin fun () (cctxt : Proto_alpha.full) ->
cctxt#message "%a"
Data_encoding.Binary_schema.pp
(Data_encoding.Binary.describe
~toplevel_name:"Unsigned block header"
(Alpha_context.Block_header.unsigned_encoding)) >>= fun () ->
return ()
end ;
command ~group:binary_description ~desc:"Describe unsigned block header"
no_options
(fixed [ "describe" ; "unsigned" ; "operation" ])
begin fun () (cctxt : Proto_alpha.full) ->
cctxt#message "%a"
Data_encoding.Binary_schema.pp
(Data_encoding.Binary.describe
~toplevel_name:"Unsigned operation"
Alpha_context.Operation.unsigned_encoding) >>= fun () ->
return ()
end
]