Safe Haskell	Safe-Inferred
Language	Haskell2010

Mafoc.Indexers.MintBurn

Contents

SQLite
Get policy data

Description

Indexer for mint and burn events.

The implementation for converting blocks to events and persisting these into sqlite is outsourced from marconi.

This just provides the CLI interface and a streaming runtime.

Synopsis

data MintBurn = MintBurn {
- chainsync :: LocalChainsyncConfig_
- dbPathAndTableName :: DbPathAndTableName
- maybePolicyIdAndAssetName :: Maybe (PolicyId, Maybe AssetName)
}
toEventsPrim :: (PolicyId -> AssetName -> Bool) -> BlockInMode CardanoMode -> [Event MintBurn]
sqliteInit :: Connection -> String -> IO ()
persistManySqlite :: Connection -> String -> [Event MintBurn] -> IO ()
getPolicyData :: forall era. (Era (ShelleyLedgerEra era), EraCrypto (ShelleyLedgerEra era) ~ StandardCrypto) => TxBody era -> MultiAsset StandardCrypto -> [(PolicyId, AssetName, Quantity, Maybe (ScriptData, Hash ScriptData))]

Documentation

data MintBurn #

Configuration data type which does double-duty as the tag for the indexer.

Constructors

MintBurn
Fields chainsync :: LocalChainsyncConfig_ dbPathAndTableName :: DbPathAndTableName maybePolicyIdAndAssetName :: Maybe (PolicyId, Maybe AssetName)

Instances

Instances details

Show MintBurn #
Instance details Defined in Mafoc.Indexers.MintBurn Methods showsPrec :: Int -> MintBurn -> ShowS # show :: MintBurn -> String # showList :: [MintBurn] -> ShowS #
Indexer MintBurn #
Instance details Defined in Mafoc.Indexers.MintBurn Associated Types data Runtime MintBurn # data Event MintBurn # data State MintBurn # Methods description :: Text # parseCli :: Parser MintBurn # toEvents :: Runtime MintBurn -> State MintBurn -> BlockInMode CardanoMode -> (State MintBurn, [Event MintBurn]) # initialize :: MintBurn -> Trace IO Text -> IO (State MintBurn, LocalChainsyncRuntime, Runtime MintBurn) # persistMany :: Runtime MintBurn -> [Event MintBurn] -> IO () # checkpoint :: Runtime MintBurn -> State MintBurn -> (SlotNo, Hash BlockHeader) -> IO () #
Show (Event MintBurn) #
Instance details Defined in Mafoc.Indexers.MintBurn Methods showsPrec :: Int -> Event MintBurn -> ShowS # show :: Event MintBurn -> String # showList :: [Event MintBurn] -> ShowS #
ToRow (Event MintBurn) #
Instance details Defined in Mafoc.Indexers.MintBurn Methods toRow :: Event MintBurn -> [SQLData]
data Event MintBurn #
Instance details Defined in Mafoc.Indexers.MintBurn data Event MintBurn = Event { slotNo :: SlotNo blockHeaderHash :: Hash BlockHeader blockNo :: BlockNo txId :: TxId txIndex :: TxIndexInBlock policyId :: PolicyId assetName :: AssetName quantity :: Quantity redeemer :: Maybe (ScriptData, Hash ScriptData) }
data Runtime MintBurn #
Instance details Defined in Mafoc.Indexers.MintBurn data Runtime MintBurn = Runtime { sqlConnection :: Connection tableName :: String assetFilter :: PolicyId -> AssetName -> Bool }
data State MintBurn #
Instance details Defined in Mafoc.Indexers.MintBurn data State MintBurn = EmptyState

toEventsPrim :: (PolicyId -> AssetName -> Bool) -> BlockInMode CardanoMode -> [Event MintBurn] #

Separate from class for reuse: this way we don't need to add dummy runtime and state when we want to call create MintBurn events outside of this indexer.

SQLite

sqliteInit :: Connection -> String -> IO () #

persistManySqlite :: Connection -> String -> [Event MintBurn] -> IO () #

Get policy data

getPolicyData :: forall era. (Era (ShelleyLedgerEra era), EraCrypto (ShelleyLedgerEra era) ~ StandardCrypto) => TxBody era -> MultiAsset StandardCrypto -> [(PolicyId, AssetName, Quantity, Maybe (ScriptData, Hash ScriptData))] #