{-# LANGUAGE ExistentialQuantification #-} {-# LANGUAGE GADTSyntax #-} module Cardano.Api.Protocol.Types ( SomeNodeClientProtocol(..) ) where import Ouroboros.Consensus.Block (BlockProtocol) import Ouroboros.Consensus.Cardano import Ouroboros.Consensus.Node.Run (RunNode) data SomeNodeClientProtocol where SomeNodeClientProtocol :: RunNode blk => ProtocolClient blk (BlockProtocol blk) -> SomeNodeClientProtocol