Also fix clientRegisterMethod use in echo client example

This commit is contained in:
Joel Stanley 2016-06-05 17:12:06 -05:00
parent a757e02c30
commit 8a31c475ac

View file

@ -27,7 +27,7 @@ regClient :: IO ()
regClient = do regClient = do
withGRPC $ \grpc -> withGRPC $ \grpc ->
withClient grpc (ClientConfig "localhost" 50051) $ \client -> ntimes 100000 $ do withClient grpc (ClientConfig "localhost" 50051) $ \client -> ntimes 100000 $ do
regMethod <- clientRegisterMethod client echoMethod "localhost:50051" Normal regMethod <- clientRegisterMethod client echoMethod Normal
reqResult <- clientRegisteredRequest client regMethod 1 "hi" M.empty reqResult <- clientRegisteredRequest client regMethod 1 "hi" M.empty
case reqResult of case reqResult of
Left x -> error $ "Got client error: " ++ show x Left x -> error $ "Got client error: " ++ show x