-- | Ledger queries

module Blockfrost.Client.Cardano.Ledger
  ( getLedgerGenesis
  ) where

import Blockfrost.API
import Blockfrost.Client.Types
import Blockfrost.Types

ledgerClient :: MonadBlockfrost m => Project -> LedgerAPI (AsClientT m)
ledgerClient :: forall (m :: * -> *).
MonadBlockfrost m =>
Project -> LedgerAPI (AsClientT m)
ledgerClient = forall (routes :: * -> *) mode.
GenericServant routes mode =>
ToServant routes mode -> routes mode
fromServant forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall route.
CardanoAPI route
-> route
   :- ("genesis"
       :> (Tag "Cardano \187 Ledger" :> ToServantApi LedgerAPI))
_ledger forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall (m :: * -> *).
MonadBlockfrost m =>
Project -> CardanoAPI (AsClientT m)
cardanoClient

getLedgerGenesis_ :: MonadBlockfrost m => Project -> m Genesis
getLedgerGenesis_ :: forall (m :: * -> *). MonadBlockfrost m => Project -> m Genesis
getLedgerGenesis_ = forall route.
LedgerAPI route
-> route
   :- (Summary "Blockchain genesis"
       :> (Description "Return the information about blockchain genesis."
           :> Get '[JSON] Genesis))
_genesis forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall (m :: * -> *).
MonadBlockfrost m =>
Project -> LedgerAPI (AsClientT m)
ledgerClient

-- | Get the information about blockchain genesis.
getLedgerGenesis :: MonadBlockfrost m => m Genesis
getLedgerGenesis :: forall (m :: * -> *). MonadBlockfrost m => m Genesis
getLedgerGenesis = forall (m :: * -> *) a.
MonadBlockfrost m =>
(Project -> m a) -> m a
go forall (m :: * -> *). MonadBlockfrost m => Project -> m Genesis
getLedgerGenesis_