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

Formatting client_p2p_commands

Browse Source
This commit is contained in:
Pierre Chambart 2018-04-25 17:33:09 +02:00 committed by Grégoire Henry
parent d71ff759dc
commit 137613ee9a
1 changed files with 67 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/lib_client_commands/client_p2p_commands.ml
View File

@ -26,7 +26,9 @@ let port_arg () =
let commands () = let commands () =
let open Clic in let open Clic in
let addr_parameter = parameter (fun _ x -> return (P2p_addr.of_string_exn x)) in let addr_parameter =
parameter (fun _ x -> return (P2p_addr.of_string_exn x))
in
[ [
command ~group ~desc: "show global network status" command ~group ~desc: "show global network status"
@ -90,7 +92,7 @@ let commands () =
@@ stop) @@ stop)
(fun port address (cctxt : #Client_context.full) -> (fun port address (cctxt : #Client_context.full) ->
P2p_services.connect cctxt ~timeout:10. (address, port) P2p_services.connect cctxt ~timeout:10. (address, port)
); ) ;
command ~group ~desc: "Remove an IP address from the blacklist and whitelist." command ~group ~desc: "Remove an IP address from the blacklist and whitelist."
no_options no_options
@ -99,7 +101,7 @@ let commands () =
@@ stop) @@ stop)
(fun () address (cctxt : #Client_context.full) -> (fun () address (cctxt : #Client_context.full) ->
P2p_services.Points.forget cctxt (address, 0) P2p_services.Points.forget cctxt (address, 0)
); ) ;
command ~group ~desc: "Add an IP address to the blacklist." command ~group ~desc: "Add an IP address to the blacklist."
no_options no_options
@ -108,7 +110,7 @@ let commands () =
@@ stop) @@ stop)
(fun () address (cctxt : #Client_context.full) -> (fun () address (cctxt : #Client_context.full) ->
P2p_services.Points.ban cctxt (address, 0) P2p_services.Points.ban cctxt (address, 0)
); ) ;
command ~group ~desc: "Add an IP address to the whitelist." command ~group ~desc: "Add an IP address to the whitelist."
no_options no_options
@ -117,7 +119,7 @@ let commands () =
@@ stop) @@ stop)
(fun () address (cctxt : #Client_context.full) -> (fun () address (cctxt : #Client_context.full) ->
P2p_services.Points.trust cctxt (address, 0) P2p_services.Points.trust cctxt (address, 0)
); ) ;
command ~group ~desc: "Check if an IP address is banned." command ~group ~desc: "Check if an IP address is banned."
no_options no_options
@ -130,7 +132,7 @@ let commands () =
"The given ip address is %s" "The given ip address is %s"
(if banned then "banned" else "not banned") >>= fun () -> (if banned then "banned" else "not banned") >>= fun () ->
return () return ()
); ) ;
command ~group ~desc: "Remove a peer ID from the blacklist and whitelist." command ~group ~desc: "Remove a peer ID from the blacklist and whitelist."
no_options no_options
@ -139,7 +141,7 @@ let commands () =
@@ stop) @@ stop)
(fun () peer (cctxt : #Client_context.full) -> (fun () peer (cctxt : #Client_context.full) ->
P2p_services.Peers.forget cctxt peer P2p_services.Peers.forget cctxt peer
); ) ;
command ~group ~desc: "Add a peer ID to the blacklist." command ~group ~desc: "Add a peer ID to the blacklist."
no_options no_options
@ -148,7 +150,7 @@ let commands () =
@@ stop) @@ stop)
(fun () peer (cctxt : #Client_context.full) -> (fun () peer (cctxt : #Client_context.full) ->
P2p_services.Peers.ban cctxt peer P2p_services.Peers.ban cctxt peer
); ) ;
command ~group ~desc: "Add a peer ID to the whitelist." command ~group ~desc: "Add a peer ID to the whitelist."
no_options no_options
@ -157,7 +159,7 @@ let commands () =
@@ stop) @@ stop)
(fun () peer (cctxt : #Client_context.full) -> (fun () peer (cctxt : #Client_context.full) ->
P2p_services.Peers.trust cctxt peer P2p_services.Peers.trust cctxt peer
); ) ;
command ~group ~desc: "Check if a peer ID is banned." command ~group ~desc: "Check if a peer ID is banned."
no_options no_options
@ -170,12 +172,12 @@ let commands () =
"The given peer ID is %s" "The given peer ID is %s"
(if banned then "banned" else "not banned") >>= fun () -> (if banned then "banned" else "not banned") >>= fun () ->
return () return ()
); ) ;
command ~group ~desc: "Clear all ACLs." command ~group ~desc: "Clear all ACLs."
no_options no_options
(prefixes [ "clear" ; "acls" ] @@ stop) (prefixes [ "clear" ; "acls" ] @@ stop)
(fun () (cctxt : #Client_context.full) -> (fun () (cctxt : #Client_context.full) ->
P2p_services.ACL.clear cctxt () P2p_services.ACL.clear cctxt ()
); ) ;
] ]