-- | Apply transactions from one block. They must be valid (for
-- example, it implies topological sort).
applyToil :: GenesisWStakeholders -> [(TxAux, TxUndo)] -> GlobalToilM ()
applyToil _ [] = pass
applyToil :: GenesisWStakeholders -> [(TxAux, TxUndo)] -> GlobalToilM ()
applyToil _ [] = pass
applyToil _ [] = pass