-- | Node client support for the Shelley protocol
--
module Cardano.Api.Protocol.Shelley
  ( -- * Client support
    mkNodeClientProtocolShelley
  , mkSomeNodeClientProtocolShelley
  ) where


import           Ouroboros.Consensus.Shelley.ShelleyHFC

import           Ouroboros.Consensus.Shelley.Eras (StandardShelley)

import           Cardano.Api.Protocol.Types


mkNodeClientProtocolShelley :: ProtocolClientInfoArgs (ShelleyBlockHFC StandardShelley)
mkNodeClientProtocolShelley :: ProtocolClientInfoArgs (ShelleyBlockHFC StandardShelley)
mkNodeClientProtocolShelley = ProtocolClientInfoArgs (ShelleyBlockHFC StandardShelley)
ProtocolClientInfoArgsShelley


mkSomeNodeClientProtocolShelley :: SomeNodeClientProtocol
mkSomeNodeClientProtocolShelley :: SomeNodeClientProtocol
mkSomeNodeClientProtocolShelley =
    ProtocolClientInfoArgs (ShelleyBlockHFC StandardShelley)
-> SomeNodeClientProtocol
forall blk.
(RunNode blk, ProtocolClient blk) =>
ProtocolClientInfoArgs blk -> SomeNodeClientProtocol
SomeNodeClientProtocol ProtocolClientInfoArgs (ShelleyBlockHFC StandardShelley)
mkNodeClientProtocolShelley