gRPC in Haskell

gistfile1.hs

hello = SayHello "/helloworld.Greeter/SayHello" . HelloRequest

main :: IO ()
main = do
  c_grpc_init
  channel <- channelCreate "localhost:50051" (ChannelArgs nullPtr)
  context <- newClientContext channel
  invokeCall context (hello "Haskell") >>= print
  channelDestroy channel
  c_grpc_shutdown

 $ dist/build/helloworldclient/helloworldclient
RpcOk (HelloReply "\n\rHello Haskell")