-- | Node client support for the Sophie protocol
--
module Bcc.Api.Protocol.Sophie
  ( -- * Client support
    mkNodeClientProtocolSophie
  , mkSomeNodeClientProtocolSophie
  ) where


import           Shardagnostic.Consensus.Sophie.SophieHFC

import           Shardagnostic.Consensus.Sophie.Eras (StandardSophie)

import           Bcc.Api.Protocol.Types


mkNodeClientProtocolSophie :: ProtocolClientInfoArgs (SophieBlockHFC StandardSophie)
mkNodeClientProtocolSophie :: ProtocolClientInfoArgs (SophieBlockHFC StandardSophie)
mkNodeClientProtocolSophie = ProtocolClientInfoArgs (SophieBlockHFC StandardSophie)
ProtocolClientInfoArgsSophie


mkSomeNodeClientProtocolSophie :: SomeNodeClientProtocol
mkSomeNodeClientProtocolSophie :: SomeNodeClientProtocol
mkSomeNodeClientProtocolSophie =
    ProtocolClientInfoArgs (SophieBlockHFC StandardSophie)
-> SomeNodeClientProtocol
forall blk.
(RunNode blk, ProtocolClient blk) =>
ProtocolClientInfoArgs blk -> SomeNodeClientProtocol
SomeNodeClientProtocol ProtocolClientInfoArgs (SophieBlockHFC StandardSophie)
mkNodeClientProtocolSophie