An example of using the blockfrost API.

Main.hs

module Main (main) where

import           Blockfrost.Client
import qualified Data.Text         as T


main :: IO ()
main = do
    project <- projectFromFile ".env"
    result <- runBlockfrost project $ do
        latestBlocks <- getLatestBlock
        errors <- tryError $ getAccountRewards "Failed"
        pure (latestBlocks, errors)

    case result of
        Left bfe     -> print $ handleError bfe
        Right (b, _) -> print $ _blockSlotLeader b


handleError :: BlockfrostError -> T.Text
handleError b = case b of
    BlockfrostError t           -> t
    BlockfrostBadRequest t      -> t
    BlockfrostTokenMissing t    -> t
    BlockfrostFatal t           -> t
    BlockfrostNotFound          -> "Not found"
    BlockfrostIPBanned          -> "IP Banned"
    BlockfrostUsageLimitReached -> "Limit Reached"
    _                           -> "Client error"