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

Client: get timestamp in seconds

Browse Source
This commit is contained in:
Milo Davis 2018-04-23 17:25:36 -04:00 committed by Grégoire Henry
parent 439435bd11
commit ff4a5fadda
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,12 +52,17 @@ let commands () =
let open Clic in let open Clic in
[ [
command ~group ~desc: "Access the timestamp of the block." command ~group ~desc: "Access the timestamp of the block."
no_options (args1
(switch ~doc:"output time in seconds" ~short:'s' ~long:"seconds" ()))
(fixed [ "get" ; "timestamp" ]) (fixed [ "get" ; "timestamp" ])
begin fun () (cctxt : Proto_alpha.full) -> begin fun seconds (cctxt : Proto_alpha.full) ->
Block_services.timestamp Block_services.timestamp
cctxt cctxt#block >>=? fun v -> cctxt cctxt#block >>=? fun v ->
cctxt#message "%s" (Time.to_notation v) >>= fun () -> begin
if seconds
then cctxt#message "%Ld" (Time.to_seconds v)
else cctxt#message "%s" (Time.to_notation v)
end >>= fun () ->
return () return ()
end ; end ;