New cardano-cli ping command.

IntersectMBO · Nov 26, 2022 · c314014 · c314014
1 parent 84fa2e2
commit c314014
Show file tree

Hide file tree

Showing 5 changed files with 602 additions and 2 deletions.
diff --git a/cardano-api/src/Cardano/Api/StakePoolMetadata.hs b/cardano-api/src/Cardano/Api/StakePoolMetadata.hs
@@ -42,7 +42,6 @@ import           Cardano.Ledger.Crypto (StandardCrypto)
 
 import qualified Cardano.Ledger.Keys as Shelley
 
-
 -- ----------------------------------------------------------------------------
 -- Stake pool metadata
 --

diff --git a/cardano-cli/cardano-cli.cabal b/cardano-cli/cardano-cli.cabal
@@ -90,6 +90,8 @@ library
                         Cardano.CLI.Shelley.Run.Read
                         Cardano.CLI.Shelley.Run.Validate
 
+                        Cardano.CLI.Ping
+
                         Cardano.CLI.TopHandler
 
   other-modules:        Paths_cardano_cli
@@ -125,8 +127,10 @@ library
                       , directory
                       , filepath
                       , formatting
+                      , io-classes
                       , iproute
                       , network
+                      , network-mux
                       , optparse-applicative-fork
                       , ouroboros-consensus
                       , ouroboros-consensus-byron
@@ -141,7 +145,9 @@ library
                       , set-algebra
                       , split
                       , strict-containers
+                      , strict-stm
                       , text
+                      , tdigest
                       , time
                       , transformers
                       , transformers-except

diff --git a/cardano-cli/src/Cardano/CLI/Parsers.hs b/cardano-cli/src/Cardano/CLI/Parsers.hs
@@ -1,16 +1,18 @@
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TypeApplications #-}
 
 module Cardano.CLI.Parsers
   ( opts
   , pref
   ) where
 
-import           Cardano.Prelude
 import           Cardano.CLI.Byron.Parsers (backwardsCompatibilityCommands, parseByronCommands)
+import           Cardano.CLI.Ping (parsePingCmd)
 import           Cardano.CLI.Render (customRenderHelp)
 import           Cardano.CLI.Run (ClientCommand (..))
 import           Cardano.CLI.Shelley.Parsers (parseShelleyCommands)
+import           Cardano.Prelude
 import           Options.Applicative
 import           Prelude (String)
 
@@ -45,6 +47,7 @@ parseClientCommand =
     -- so we list it first.
     [ parseShelley
     , parseByron
+    , parsePing
     , parseDeprecatedShelleySubcommand
     , backwardsCompatibilityCommands
     , parseDisplayVersion opts
@@ -62,6 +65,9 @@ parseByron =
          parseByronCommands
     ]
 
+parsePing :: Parser ClientCommand
+parsePing = CliPingCommand <$> parsePingCmd
+
 -- | Parse Shelley-related commands at the top level of the CLI.
 parseShelley :: Parser ClientCommand
 parseShelley = ShelleyCommand <$> parseShelleyCommands
-Original file line number
+Diff line change
@@ Expand Up / @@ -42,7 +42,6 @@ import Cardano.Ledger.Crypto (StandardCrypto) @@
     import qualified Cardano.Ledger.Keys as Shelley
     -- ----------------------------------------------------------------------------
     -- Stake pool metadata
     --
@@ Expand Down @@