diff --git a/src/bin_client/main_client.ml b/src/bin_client/main_client.ml index 984c30f04..43b61b543 100644 --- a/src/bin_client/main_client.ml +++ b/src/bin_client/main_client.ml @@ -30,23 +30,11 @@ let disable_disclaimer = | Some ("yes" | "y" | "YES" | "Y") -> true | _ -> false -let default () = - if not disable_disclaimer then - Format.eprintf - "@[@{@{Warning@}@}@,@,\ - \ This is @{<warning>NOT@} the Tezos Mainnet.@,\ - \ The Tezos Mainnet is not yet released.@,\ - @,\ - \ Use your fundraiser keys @{<warning>AT YOUR OWN RISK@}.@,\ - All transactions happening on the Betanet @{<warning>are expected to be valid in the Mainnet@}.@,\ - \ In doubt, we recommend that you wait for the launch of the Mainnet.@]@\n@." - let zeronet () = if not disable_disclaimer then Format.eprintf "@[<v 2>@{<warning>@{<title>Warning@}@}@,@,\ \ This is @{<warning>NOT@} the Tezos Mainnet.@,\ - \ The Tezos Mainnet is not yet released.@,\ @,\ \ The node you are connecting to claims to be running on the@,\ \ @{<warning>Tezos Zeronet DEVELOPMENT NETWORK@}.@,\ @@ -58,34 +46,27 @@ let alphanet () = Format.eprintf "@[<v 2>@{<warning>@{<title>Warning@}@}@,@,\ \ This is @{<warning>NOT@} the Tezos Mainnet.@,\ - \ The Tezos Mainnet is not yet released.@,\ @,\ \ The node you are connecting to claims to be running on the@,\ \ @{<warning>Tezos Alphanet DEVELOPMENT NETWORK.@}@,\ \ Do @{<warning>NOT@} use your fundraiser keys on this network.@,\ \ Alphanet is a testing network, with free tokens.@]@\n@." -let betanet () = +let mainnet () = if not disable_disclaimer then Format.eprintf - "@[<v 2>@{<warning>@{<title>Warning@}@}@,@,\ - \ This is @{<warning>NOT@} the Tezos Mainnet.@,\ - \ The Tezos Mainnet is not yet released.@,\ - @,\ - \ The node you are connecting to claims to be running on the@,\ - \ @{<warning>Tezos Betanet EXPERIMENTAL NETWORK@}.@,\ - \ Betanet is a pre-release experimental network and comes with no warranty.@,\ - \ Use your fundraiser keys on this network @{<warning>AT YOUR OWN RISK@}.@,\ - \ All transactions happening on the Betanet @{<warning>are expected to be valid in the Mainnet@}.@,\ - \ If in doubt, we recommend that you wait for the Mainnet launch.@]@\n@." + "@[<v 2>@{<warning>@{<title>Disclaimer@}@}@,\ + The Tezos network is a new blockchain technology.@,\ + Users are solely responsible for any risks associated@,\ + with usage of the Tezos network. Users should do their@,\ + own research to determine if Tezos is the appropriate@,\ + platform for their needs and should apply judgement and@,\ + care in their network interactions.@]@\n@." let sandbox () = if not disable_disclaimer then Format.eprintf "@[<v 2>@{<warning>@{<title>Warning@}@}@,@,\ - \ This is @{<warning>NOT@} the Tezos Mainnet.@,\ - \ The Tezos Mainnet is not yet released.@,\ - @,\ \ The node you are connecting to claims to be running in a@,\ \ @{<warning>Tezos TEST SANDBOX@}.@,\ \ Do @{<warning>NOT@} use your fundraiser keys on this network.@,\ @@ -94,7 +75,6 @@ let sandbox () = let check_network ctxt = Shell_services.P2p.versions ctxt >>= function | Error _ -> - default () ; Lwt.return_none | Ok versions -> match String.split_on_char '_' (P2p_version.best versions).name with @@ -108,10 +88,9 @@ let check_network ctxt = alphanet () ; Lwt.return_some `Alphanet | "TEZOS" :: "BETANET" :: _date :: [] -> - betanet () ; - Lwt.return_some `Betanet + mainnet () ; + Lwt.return_some `Mainnet | _ -> - default () ; Lwt.return_none let get_commands_for_version ctxt network block protocol = diff --git a/src/lib_client_commands/client_commands.ml b/src/lib_client_commands/client_commands.ml index 1a491dc86..27aedc133 100644 --- a/src/lib_client_commands/client_commands.ml +++ b/src/lib_client_commands/client_commands.ml @@ -26,7 +26,7 @@ open Client_context type command = full Clic.command -type network = [ `Betanet | `Alphanet | `Zeronet | `Sandbox ] +type network = [ `Mainnet | `Alphanet | `Zeronet | `Sandbox ] exception Version_not_found diff --git a/src/lib_client_commands/client_commands.mli b/src/lib_client_commands/client_commands.mli index 3af1ab38e..4bf16b4f1 100644 --- a/src/lib_client_commands/client_commands.mli +++ b/src/lib_client_commands/client_commands.mli @@ -26,7 +26,7 @@ open Client_context type command = full Clic.command -type network = [ `Betanet | `Alphanet | `Zeronet | `Sandbox ] +type network = [ `Mainnet | `Alphanet | `Zeronet | `Sandbox ] exception Version_not_found diff --git a/src/lib_client_commands/client_keys_commands.ml b/src/lib_client_commands/client_keys_commands.ml index 74945941f..98c989b0c 100644 --- a/src/lib_client_commands/client_keys_commands.ml +++ b/src/lib_client_commands/client_keys_commands.ml @@ -204,7 +204,7 @@ let commands version : Client_context.io_wallet Clic.command list = signers >>= return) ; begin match version with - | Some `Betanet -> + | Some `Mainnet -> command ~group ~desc: "Generate a pair of keys." (args2 (Secret_key.force_switch ()) sig_algo_arg) (prefixes [ "gen" ; "keys" ] @@ -236,7 +236,7 @@ let commands version : Client_context.io_wallet Clic.command list = end ; begin match version with - | Some `Betanet -> + | Some `Mainnet -> command ~group ~desc: "Generate keys including the given string." (args2 (switch @@ -296,7 +296,7 @@ let commands version : Client_context.io_wallet Clic.command list = Signature.Public_key_hash.pp pkh >>= fun () -> register_key cctxt ~force (pkh, pk_uri, sk_uri) ?public_key name) ; ] @ - (if version <> (Some `Betanet) then [] else [ + (if version <> (Some `Mainnet) then [] else [ command ~group ~desc: "Add a fundraiser secret key to the wallet." (args1 (Secret_key.force_switch ())) (prefix "import" diff --git a/src/lib_client_commands/client_keys_commands.mli b/src/lib_client_commands/client_keys_commands.mli index b7c2e8988..081070c65 100644 --- a/src/lib_client_commands/client_keys_commands.mli +++ b/src/lib_client_commands/client_keys_commands.mli @@ -24,5 +24,5 @@ (*****************************************************************************) val commands: - [`Zeronet | `Alphanet | `Betanet | `Sandbox] option -> + [`Zeronet | `Alphanet | `Mainnet | `Sandbox] option -> Client_context.io_wallet Clic.command list diff --git a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml index 830ca3cca..6a012c953 100644 --- a/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml +++ b/src/proto_alpha/lib_client_commands/client_proto_context_commands.ml @@ -386,7 +386,7 @@ let commands version () = return_unit end; ] @ - (if version = (Some `Betanet) then [] else [ + (if version = (Some `Mainnet) then [] else [ command ~group ~desc:"Register and activate an Alphanet/Zeronet faucet account." (args2 (Secret_key.force_switch ()) @@ -416,7 +416,7 @@ let commands version () = return_unit ); ]) @ - (if version <> Some `Betanet then [] else [ + (if version <> Some `Mainnet then [] else [ command ~group ~desc:"Activate a fundraiser account." (args1 dry_run_switch) (prefixes [ "activate" ; "fundraiser" ; "account" ]