utxorpc-server-0.0.4.1: example/QueryImpl.hs

module QueryImpl (handlerImpls) where

import Control.Monad.IO.Class (MonadIO)
import EmptyHandlers (emptySStreamHandler, emptyUnaryHandler)
import Network.GRPC.Server (ServerStreamHandler, UnaryHandler)
import Proto.Utxorpc.V1alpha.Query.Query
import Utxorpc.Server (QueryHandlers (..))

handlerImpls ::
  (MonadIO m) =>
  (String -> m ()) ->
  QueryHandlers m
handlerImpls logF =
  QueryHandlers
    (readParamsHandler logF)
    (readUtxosHandler logF)
    (searchUtxosHandler logF)
    (readGenesisHandler logF)
    (readEraSummaryHandler logF)

readParamsHandler ::
  (MonadIO m) =>
  (String -> m ()) ->
  UnaryHandler m ReadParamsRequest ReadParamsResponse
readParamsHandler = emptyUnaryHandler

readUtxosHandler ::
  (MonadIO m) =>
  (String -> m ()) ->
  UnaryHandler m ReadUtxosRequest ReadUtxosResponse
readUtxosHandler = emptyUnaryHandler

searchUtxosHandler ::
  (MonadIO m) =>
  (String -> m ()) ->
  UnaryHandler m SearchUtxosRequest SearchUtxosResponse
searchUtxosHandler = emptyUnaryHandler

readGenesisHandler ::
  (MonadIO m) =>
  (String -> m ()) ->
  UnaryHandler m ReadGenesisRequest ReadGenesisResponse
readGenesisHandler = emptyUnaryHandler

readEraSummaryHandler ::
  (MonadIO m) =>
  (String -> m ()) ->
  UnaryHandler m ReadEraSummaryRequest ReadEraSummaryResponse
readEraSummaryHandler = emptyUnaryHandler