Safe Haskell	Safe-Inferred
Language	Haskell2010

Marconi.Cardano.Indexers.EpochSDD

Contents

Event types and lenses
Create an indexer
Create a worker
Queries
Extract event

Description

Store SDD in a SQLIte table

Synopsis

data EpochSDD = EpochSDD !EpochNo !PoolId !Lovelace !BlockNo
sddEpochNo :: Lens' EpochSDD EpochNo
sddPoolId :: Lens' EpochSDD PoolId
sddLovelace :: Lens' EpochSDD Lovelace
sddBlockNo :: Lens' EpochSDD BlockNo
mkEpochSDDIndexer :: (MonadIO m, MonadError IndexerError m) => SQLiteDBLocation -> m (SQLiteIndexer (NonEmpty EpochSDD))
newtype EpochSDDWorkerConfig input = EpochSDDWorkerConfig {
- epochSDDWorkerConfigExtractor :: input -> EpochNo
}
epochSDDWorker :: forall input m n. (MonadIO m, MonadError IndexerError m, MonadIO n) => StandardWorkerConfig n input (NonEmpty EpochSDD) -> EpochSDDWorkerConfig input -> SQLiteDBLocation -> m (WorkerIndexer n input (NonEmpty EpochSDD) (WithTrace n SQLiteIndexer))
newtype ActiveSDDByEpochNoQuery = ActiveSDDByEpochNoQuery EpochNo
getEpochSDD :: ExtLedgerStateEvent -> Maybe (NonEmpty EpochSDD)

Event types and lenses

data EpochSDD #

Event for SDD storage

Constructors

EpochSDD !EpochNo !PoolId !Lovelace !BlockNo

Instances

Instances details

FromJSON EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods parseJSON :: Value -> Parser EpochSDD parseJSONList :: Value -> Parser [EpochSDD]
ToJSON EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods toJSON :: EpochSDD -> Value toEncoding :: EpochSDD -> Encoding toJSONList :: [EpochSDD] -> Value toEncodingList :: [EpochSDD] -> Encoding
Generic EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Associated Types type Rep EpochSDD :: Type -> Type Source # Methods from :: EpochSDD -> Rep EpochSDD x Source # to :: Rep EpochSDD x -> EpochSDD Source #
Show EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods showsPrec :: Int -> EpochSDD -> ShowS Source # show :: EpochSDD -> String Source # showList :: [EpochSDD] -> ShowS Source #
Eq EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods (==) :: EpochSDD -> EpochSDD -> Bool Source # (/=) :: EpochSDD -> EpochSDD -> Bool Source #
Ord EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods compare :: EpochSDD -> EpochSDD -> Ordering Source # (<) :: EpochSDD -> EpochSDD -> Bool Source # (<=) :: EpochSDD -> EpochSDD -> Bool Source # (>) :: EpochSDD -> EpochSDD -> Bool Source # (>=) :: EpochSDD -> EpochSDD -> Bool Source # max :: EpochSDD -> EpochSDD -> EpochSDD Source # min :: EpochSDD -> EpochSDD -> EpochSDD Source #
FromRow EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods fromRow :: RowParser EpochSDD
ToRow EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods toRow :: EpochSDD -> [SQLData] #
FromRow (Timed ChainPoint EpochSDD) #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods fromRow :: RowParser (Timed ChainPoint EpochSDD)
ToRow (Timed ChainPoint EpochSDD) #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods toRow :: Timed ChainPoint EpochSDD -> [SQLData] #
type Rep EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD type Rep EpochSDD = D1 ('MetaData "EpochSDD" "Marconi.Cardano.Indexers.EpochSDD" "marconi-cardano-indexers-1.2.0.0-inplace" 'False) (C1 ('MetaCons "EpochSDD" 'PrefixI 'True) ((S1 ('MetaSel ('Just "_sddEpochNo") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 EpochNo) :: S1 ('MetaSel ('Just "_sddPoolId") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 PoolId)) :: (S1 ('MetaSel ('Just "_sddLovelace") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 Lovelace) :*: S1 ('MetaSel ('Just "_sddBlockNo") 'NoSourceUnpackedness 'SourceStrict 'DecidedStrict) (Rec0 BlockNo))))
type Point EpochSDD #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD type Point EpochSDD = ChainPoint
type Point (NonEmpty EpochSDD) #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD type Point (NonEmpty EpochSDD) = ChainPoint

sddEpochNo :: Lens' EpochSDD EpochNo #

sddPoolId :: Lens' EpochSDD PoolId #

sddLovelace :: Lens' EpochSDD Lovelace #

sddBlockNo :: Lens' EpochSDD BlockNo #

Create an indexer

mkEpochSDDIndexer :: (MonadIO m, MonadError IndexerError m) => SQLiteDBLocation -> m (SQLiteIndexer (NonEmpty EpochSDD)) #

Smart constructor that creates a FileIndexer that stores SDD.

Create a worker

newtype EpochSDDWorkerConfig input #

Constructors

EpochSDDWorkerConfig
Fields epochSDDWorkerConfigExtractor :: input -> EpochNo

epochSDDWorker :: forall input m n. (MonadIO m, MonadError IndexerError m, MonadIO n) => StandardWorkerConfig n input (NonEmpty EpochSDD) -> EpochSDDWorkerConfig input -> SQLiteDBLocation -> m (WorkerIndexer n input (NonEmpty EpochSDD) (WithTrace n SQLiteIndexer)) #

Queries

newtype ActiveSDDByEpochNoQuery #

Constructors

ActiveSDDByEpochNoQuery EpochNo

Instances

Instances details

FromJSON ActiveSDDByEpochNoQuery #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods parseJSON :: Value -> Parser ActiveSDDByEpochNoQuery parseJSONList :: Value -> Parser [ActiveSDDByEpochNoQuery]
ToJSON ActiveSDDByEpochNoQuery #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods toJSON :: ActiveSDDByEpochNoQuery -> Value toEncoding :: ActiveSDDByEpochNoQuery -> Encoding toJSONList :: [ActiveSDDByEpochNoQuery] -> Value toEncodingList :: [ActiveSDDByEpochNoQuery] -> Encoding
(MonadIO m, MonadError (QueryError ActiveSDDByEpochNoQuery) m) => Queryable m event ActiveSDDByEpochNoQuery SQLiteIndexer #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD Methods query :: Point event -> ActiveSDDByEpochNoQuery -> SQLiteIndexer event -> m (Result ActiveSDDByEpochNoQuery) Source # queryLatest :: ActiveSDDByEpochNoQuery -> SQLiteIndexer event -> m (Result ActiveSDDByEpochNoQuery) Source #
type Result ActiveSDDByEpochNoQuery #
Instance details Defined in Marconi.Cardano.Indexers.EpochSDD type Result ActiveSDDByEpochNoQuery = [Timed ChainPoint EpochSDD]

Extract event

getEpochSDD :: ExtLedgerStateEvent -> Maybe (NonEmpty EpochSDD) #